Supportnet / Forum / Tabellenkalkulation
Makro funktioniert nicht??!!??
Frage
Guten Abend zusammen,
ich möchte gerne um Hilfe bitten:
Habe folgendes Makro erstellt:
Sub Fuellen()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Range("B:F")), Range("B:F").End(xlUp).Column, ("B:F") = "B:F")
For LoI = 7 To LoLetzte
If Cells(LoI, 1) = "" Then Cells(LoI, 1) = Cells(LoI - 1, 1)
Next LoI
End Sub
Damit soll die Daten in den Zellen B:F nach unten kopiert werden, bis ein neuer Datensatz beginnt.
Heißt, z.B. in Spalte B2:F2 stehen Daten die sollen bis z.B. B7:F7 kopiert werden. In B8:F8 steht dann wieder ein neuer Datensatz.
Dieser soll dann z.B. bis B9:F9 kopiert werden.
Es handelt sich um 1300 Datensätze mit unterschiedlichen Mengen an Zeilen die kopiert werden müssen.
Hoffentlich versteht jemand das Wirwarr.
Danke vorab für jegliche Hilfe.
Viele Grüße, Meikel
Antwort 1 von Meikel
Danke, hat sich erledigt. Ich hab's gefunden!!