kopieren in nächste freie Zeile
Gisela
ich möchte, dass jeweils auf dem TB "gesamt" in die nächste freie Zeile ab C11 (Spalten A und B können schon mal ohne Inhalt sein) kopiert wird.
Kann mir bitte jemand helfen? Was muss ich wie ändern?
Sub zeilenkopieren()
Application.ScreenUpdating = False
Dim a As Long, i As Long
a = 11
For i = 11 To 100
If Worksheets("Mrz").Cells(i, 7) "" Then
Worksheets("Mrz").Rows(i).Copy Worksheets("gesamt").Cells(a, 1)
a = a + 1
End If
Next i
Application.ScreenUpdating = True
End Sub
Vielen Dank und Grüße
Gisela
Anzeige