Hallo,
ich möchte einen Code haben, der mir aus dem nachstehenden Tabellenblatt A alle Zeilen kopiert, bei denen in Spalte 3 kein x steht. Es sollte aber nur der Spaltenbereich 1-109 in das Tabellenblatt Summary kopiert werden. Leider bekomme ich mit dem unten stehenden Code einen Laufzeitfehler 1004. Kann mir jemand von euch weiterhelfen?
Viele Grüße
VielzuBlutigerAnfänger
Sub Summary()
Dim i As Long, x As Long
Sheets("Summary").Select
x = 8
For i = 8 To 1000
If Sheets("A").Range(i, 3) <= x Then
Sheets("A").Range(Cells(i, 1), Cells(i, 109)).Copy _
Destination:=Sheets("Summary").Cells(x, 1)
x = x + 1
End If
Next i
End Sub
|