|
Danke LT67,
deine Nachricht habe ich leider zu spät gesehen.
Ich wollte den Tag damit verbringen mit "Dim" zu spielen, testen und auszuprobieren, googeln usw. Doch dann habe ich jemanden erzählt was ich vorhabe und der war fit in VBA. Keine Ahnung was er da geschrieben hat aber kurz drauf hatte ich eine Mail mit der Lösung! Da muss ich mich jetzt mal durcharbeiten, möchte es da nächste mal selbst schaffen. Aber das was ich da bekommen habe, funktioniert perfekt.
Sub Aufuellen()
Dim letztezeile As Long
Dim i As Long
letztezeile = Sheets("Register 1").Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
Range("A5:K5").Copy
For i = letztezeile To 6 Step -1
Cells(i, 1).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Dein Vorschlag LT67 werde ich mir aber auch anschauen und schauen wie das alles funktioniert. Vielen Dank noch mal dafür.
Vielen Dank auch an Ralf für seine Hilfe.
LG Fio
|