Kopieren bzw. Filtern
06.06.2005 17:46:56
Erich
Habe wieder mal ein Problem.
Mit diesem Code aus dem Forum
Sub DatenFiltern()
Dim iRow As Integer, iRowT As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 1).Value = "01.01.2005" Then
iRowT = iRowT + 1
Worksheets("1").Rows(iRowT).Value = _
Rows(iRow).Value
End If
iRow = iRow + 1
Loop
iRow = 1
End Sub
Wenn ich diesen Code ausführe schreibt er mir
die Daten in die gleiche Zeile in das zweite Blatt.
Wie muß ich den Code ändern, um die Daten
ab Zeile 1 der neuen Tabelle zu schreiben.
Ich hoffe man versteht was ich meine.
Vorab schon mal Danke.
Gruss Erich
Anzeige