Hallo zusammen!
Habe hier folgenden Code, der aus Spalte L in Blatt1 Werte herauslesen soll und dann die Zeile in Blatt2 kopieren soll:
Dim i As Integer
Dim iAnz As Integer
Const Blatt1 = "Until"
Const Blatt2 = "Ziel"
Sheets("Blatt1").Activate
Range("L1").Select
iAnz = 0
i = 0
Do Until i = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value = "1" Then
Selection.EntireRow.Copy
Sheets(Blatt2).Activate
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Sheets("Blatt1").Select
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Es wurden " & iAnz & " Sätze übertragen"^
Doch leider sagt er mir immer, dass 0 Sätze übertragen wurden, obwohl ich doch sehe, dass in Spalte L der Wert 1 mind. 6x vorkommt!
Wer kann mir helfen das Problem zu lösen?
Danke, Dominik