Ich habe folgenden Code der alle Zeilen der Tabelle1 Kopieren sollte, welche in der Spalte G eine 1 stehen haben. Diese sollen dann in der Tabelle2 untereinander, ohne Leerzeilen eingefügt werden. Das funktioniert aber nicht recht. Kann mir jemand den Fehler zeigen?
Danke.
Freundliche Grüsse,
Roger
Sub Zeilen_kopieren()
Dim Zeile As Long
With Sheets("Tabelle1")
For Zeile = 1 To .Range("G65536").End(xlUp).Row
If .Cells(Zeile, 7) > 0 Then
.Cells(Zeile, 7).EntireRow.Copy
If Sheets("Tabelle2").Range("A1") = "" Then
Sheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteAll
Else
Sheets("Tabelle2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:= _
xlPasteAll
End If
End If
Next 'Zeile
End With
End Sub