Ich bräuchte ein Macro das mir aus dem Blatt CAQ 200(C) alle Zeilen in denen in Spalte E das Wort "Endkontrolle" steht, in das Blatt mit dem Namen Endkontrolle ab zeile 2 kopiert.
Kann mir jemand helfen ?
Gruß Heino
Sub Kopieren()
Dim i As Long, Zähler As Long
Dim Blatt1 As Worksheet
Dim Blatt2 As Worksheet
Set Blatt1 = ThisWorkbook.Sheets("CAQ200(C)")
Set Blatt2 = ThisWorkbook.Sheets("Endkontrolle")
Zähler = 1
Application.ScreenUpdating = False
For i = 1 To 65000 'Zeilenanzahl einstellen, die überprüft werden soll
If Blatt1.Range("E" & i) = "Endkontrolle" Then
Zähler = Zähler + 1
Blatt1.Select
Blatt1.Rows(i).Select
Selection.Copy
Blatt2.Select
Rows(Zähler).Select
ActiveSheet.Paste
End If
Next i
Application.ScreenUpdating = True
End Sub