Thema: Zelle verschieben

Guten Abend,
ich habe folgende Zeilen im Makro:

 

ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Select

damit ist die aktive Zelle, die beschriebene Zelle in Spalte "A".
Jetzt würde ich gern diese aktive Zelle nach unten kopieren.
Dies habe ich mal aufgezeichnet:
' Selection.AutoFill Destination:=Range("A114:A115")
bekomme es aber mit variablen nicht hin, da aber die letzte beschriebene Zelle beim nächsten mal
z.B "A115:A115" sein wird, hakt es bei mir.

Würde mich um Unterstützung sehr freuen,
danke im Voraus
gruß wolfgang

Hi Wolfgang,

vielleicht so:

ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Offset(0, 0)

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

Hallo Karin,
leider klappt es nicht.
Wert letzte Zelle: "Version: 3.04"
Wenn ich auf den Wert der letzten Zelle mit der Maus nach unten ziehe klappt es,
dann wird "Version: 3.05".
Das zellenformat ist: "Version:" @"

mfg wolfgang

Hi Wolfgang,

    With ActiveSheet.Cells(Rows.Count, "A").End(xlUp)

        .Offset(0, 0).AutoFill Destination:=Range(.Offset(0, 0), .Offset(1, 0)), Type:=xlFillDefault

    End With

Bis später
Karin

Link zur Homepage: https://excel-inn.de/