Seltsames einfügen
15.12.2004 13:52:37
Harald
mit folgendem Code kopiere ich Zeilen die 2 Bedingungen erfüllen, untereinander in ein neues Sheet.
Das funzt auch prima. Er fügt die Zeilen in das neue Sheet beginnend mit Zeile 1 ein.
Wenn ich jedoch in dem Quellblatt einen benutzerdefinierten Autofilter (zwecks Datumseingrenzung) lege und dann den Code starte, fügt er die Daten in das Zielblatt in unterschiedliche Zeilen. Je nach Datumseingrenzung mal ab Zeile 45, dann mal 98 usw.
Man kann auch nicht mehr in eine darüberliegende Zelle scrollen.
Versteh ich nicht. Kann man das irgendwie umgehen ?
Hier der Code.
Sub test3()
Sheets.Add
Sheets("Tabelle2").Name = "LF"
Sheets("Erfassung").Select
For lgQuell = 1 To Range("A500").End(xlUp).Row
If Cells(lgQuell, 2) Like "*M" And Cells(lgQuell, 10) Like ("LF") Then
lgZiel = lgZiel + 1
Rows(lgQuell).Copy Sheets("LF").Rows(lgZiel)
End If
Next
End Sub
Gruß
Harald