Excel Basic Problem

Hallo zusammen,

Ich habe folgendes Problem:

Zitat

Dim Adresse As String
Dim Jahr as Integer

Worksheets("Einträge").Activate
Range("A1").Select

While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Activate
Adresse = ActiveCell.Value
Range(Adresse).Value = Adresse
Wend

Alles anzeigen

In den Zellen sind Werte wie F2 oder A1 etc.

funktioniert nich

Könnt ihr mir helfen?