Ab Zeile 10 einfügen ....
16.10.2008 09:44:27
TomTom
ich würde gerne die Zeilen, die aus meiner Quelle mit der Schleife rausgelesen werden, in die einzelnen Blätter schreiben, ABER erst ab Zeile 10. was muss ich da ändern ?
Private Sub CommandButton1_Click()
Dim StrG As String, x As Long, j As Long
StrG = "START"
With Worksheets("Test_jo")
For j = 1 To 500
If Left(.Cells(j, 1), Len(StrG)) = StrG Then
x = x + 1
Worksheets("Start").Cells(x, 1).Value = .Cells(j, 1).Value
End If
Next
x = 0
StrG = "ATTEMPT"
For j = 1 To 500
If Left(.Cells(j, 1), Len(StrG)) = StrG Then
x = x + 1
Worksheets("Attempt").Cells(x, 1).Value = .Cells(j, 1).Value
End If
Next
x = 0
StrG = "STOP"
For j = 1 To 500
If Left(.Cells(j, 1), Len(StrG)) = StrG Then
x = x + 1
Worksheets("Stop").Cells(x, 1).Value = .Cells(j, 1).Value
End If
Next
End With
End Sub
Danke mal Tom