ich möchte alle Werte der Spalte A bis zur nächsten ausgefüllten Zelle runterkopieren. Das geht irgendwie mit F5 (gehe zu) oder per Makro. Nur das kriege ich nicht hin
Könnt Ihr mir bitte helfen?
Danke
Peter
Sub Kopieren()
Dim lzeile As Long
Dim sWert As String
For lzeile = 1 To Range("A65536").End(xlUp).Row
If Not IsEmpty(Range("A" & lzeile).Value) Then
sWert = Range("A" & lzeile).Value
Else
Range("A" & lzeile).Value = sWert
End If
Next lzeile
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen