Hey!
Also ich überlege schon seit einer Stunde ob es nun möglich ist die nächste gefundene freie Zelle mit einem Inhalt zu füllen.
Ich hab damal sowas geshrieben
Do Until ThisWorkbook.Worksheets("Neu").Range("A" & i) = ""
i = i + 1
Range("C5").Copy
Worksheets("Neu").Range("A").PasteSpecial xlPasteValues
Loop
Das funktioniert aber leider nicht.
Kennt jemand eine andere bessere Lösung?
Also ich überlege schon seit einer Stunde ob es nun möglich ist die nächste gefundene freie Zelle mit einem Inhalt zu füllen.
Ich hab damal sowas geshrieben
Do Until ThisWorkbook.Worksheets("Neu").Range("A" & i) = ""
i = i + 1
Range("C5").Copy
Worksheets("Neu").Range("A").PasteSpecial xlPasteValues
Loop
Das funktioniert aber leider nicht.
Kennt jemand eine andere bessere Lösung?