Makro Felder auffüllen
30.08.2017 11:43:22
Iris
ich habe eine Datei in der in Feld A2 ein Wert steht, dann wieder in Feld A243, dann in Feld A417 etc.
Jetzt möchte ich ein Makro schreiben was immer den Wert von oben in die leeren Zellen darunter kopiert, also den Wert aus A2 in die Felder A3 bis A242, und den Wert aus A243 in die Felder A244-A416 etc.
Die Werte in Spalte A sind in keinem regelmäßigen Abstand.
Das Makro soll prüfen bis wo kein Wert vorhanden ist und dort jeweils den von oben drüber reinschreiben.
Dafür habe ich das hier:
Sub auffüllen()
With Sheets("Tabelle7")
Range("A2").Select
lngRow = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Each Zelle In .Range("A2:A" & lngRow) ' 7. Schleife prüft bis wo die Felder _
_
_
_
_
_
_
_
_
leer sind und gefüllt werden müssen
If Zelle = "" Then Zelle = Zelle.Offset(-1, 0)
Next
End With
End Sub
funktioniert aber leider nicht.
Was mache ich falsch?
Gruß!
Iris