Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige