Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle verschieben

Forumthread: Zelle verschieben

Zelle verschieben
05.04.2024 18:03:09
wolfgang
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle verschieben
05.04.2024 18:08:48
Beverly
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/
Anzeige
Leider klappt es nicht
05.04.2024 19:01:01
wolfgang
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
Dann so:
05.04.2024 19:11:22
Beverly
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/
Anzeige
Super Danke perfekt ! -)
05.04.2024 19:50:52
wolfgang
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige