Ich habe einen Code gefunden der mir Zeilen kopiert wenn... er kopiert mir die Zeilen in Tabelle2 Spalte "A" aber ich würde gerne das der Code die Zeile ab Spalte "O" hin kopiert.
~
Sub Zeilen_kopieren()
Dim Zeile As Long, Spalte As Long, a As Long
Application.ScreenUpdating = False
a = 1
With Worksheets("Tabelle1")
For Zeile = 8 To 200
For Spalte = 5 To 6
If InStr(.Cells(Zeile, Spalte), 40) > 0 Then
Worksheets("Tabelle1").Rows(Zeile).Copy _
Destination:=Worksheets("Tabelle2").Rows(a)
a = a + 1
Exit For
End If
Next Spalte
Next Zeile
End With
End Sub
~Welche Zeile muss wie umgeschrieben werden? Danke!
Mit freundlichen Grüßen
Thomas