Makro zum kopieren von Zeilen ändern
25.11.2004 22:06:10
Zeilen
ich habe ein kleines Makro (siehe nachstehend) welches einwandfrei funktioniert.
Mit diesem Makro kopiere ich die in Splate J mit einem Z markierten Zeilen in ein
anderes Tabellenblatt.
Jedoch schaffe ich es nicht im gleichen Makro die gleichen Zeilen zusätzlich an
das Ende der aktuellen Tabelle zu kopieren. Kann mir jemand bitte helfen,
das Makro zu verändern, das die zu kopierende Zeile in die erste freie Zeile
in das aktuelle Tabellenblatt kopiert wird.
Ich bin mit meinem Latein am Ende. :-(
Sub von_Heute_zu_Ablage()
Dim wsK As Worksheet, wsA As Worksheet, r%, z%, s%
Set wsK = ThisWorkbook.Worksheets("Heute")
Set wsA = ThisWorkbook.Worksheets("Ablage")
For r = wsK.Cells(65536, 10).End(xlUp).Row To 1 Step -1
z = wsA.Cells(65536, 1).End(xlUp).Row + 1
s = wsK.Cells(r, 255).End(xlToLeft).Column
If wsK.Cells(r, 10) = "Z" Then
wsK.Range(wsK.Cells(r, 1), wsK.Cells(r, s)).Cut Destination:=wsA.Cells(z, 1)
wsK.Cells(r, 1).EntireRow.Delete
End If
Next r
End Sub
Danke im Voraus für Eure Hilfe
Gruß
Michael