Schleife laeuft nur einmal
abu
habe eine kleines Problem mit einer Scheife und hoffe Ihr koennt mir ein bissel helfen.
Zur Schleife: Blatt Daily soll ab Zeile 2, in Spalte C durchsucht werden und alle Zeilen die in C den gleichen Wert haben kopieren und ins Blatt DailyMail ab Zeile 2 eingefuegt und anschliessend geloescht werden.
Die Schleife laeuft einmal durch ohne Fehler aber beim 2 Durchlauf bleibt sie immer hier haengen:
Range(Cells(2, 1), Cells(iT, 6)).PasteSpecial xlPasteAll
Warum laeuft es einmal durch und beim 2mal nicht mehr. Was ist denn beim 2ten mal anders?
Hoffe ihr koennt mir helfen.
Beste Gruesse
abu
If WorkSheetExists("Daily") Then
Worksheets("Daily").Activate
With ActiveSheet
With Range("A1:F1")
.Copy
End With
End With
Sheets.Add.Name = "DailyMail"
Worksheets("DailyMail").Activate
With ActiveSheet
Range("A1:F1").PasteSpecial xlPasteAll
End With
Worksheets("Daily").Activate
Do While MailZeile 1
Worksheets("Daily").Activate
checker = Cells(2, 3).Value
iT = 2
Do While Cells(iT, 3) = checker
iT = iT + 1
Loop
iT = iT - 1
Range(Cells(2, 1), Cells(iT, 6)).Copy
Worksheets("DailyMail").Activate
With ActiveSheet
If MailZeile 1 Then
Rows("2:" & MailZeile).Delete
End If
.Cells(2, 1).Select
Range(Cells(2, 1), Cells(iT, 6)).PasteSpecial xlPasteAll
Cells.Select
Cells.EntireColumn.AutoFit
End With
Worksheets("Daily").Activate
Range(Cells(2, 1), Cells(iT, 6)).Delete Shift:=xlUp
Loop
End If