Hallo jungs,

hab mir jetzt aus diversen Foren folgendes zusammengesucht:
habs nicht so mit vba...


Sub SuchKopier()
Dim zaehler1 As Long
Dim suche1 As Range
Dim letzte As Long
Dim such As String
such = InputBox("Suchbegriff eingeben", "Finden und Zeilen kopieren")
If such = "" Then Exit Sub
Worksheets.Add.Move After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = such

With Worksheets(such)

For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Set suche1 = Worksheets(1).Range("A" & zaehler1 & ":A" & _
Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Find(such)

If Not suche1 Is Nothing Then
Sheets(1).Rows(suche1.Row).Copy
letzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
.Rows(letzte + 1 & ":" & letzte + 1).Insert Shift:=xlDown
Sheets(1).Application.CutCopyMode = False
zaehler1 = suche1.Row
End If
Next zaehler1
End With
End Sub

problem ist nur wenn ich aus einer liste:
name1 1
name1 2
name1 3
name1 2

nach "name1" suche
erstellt er mir zwar ein neues tabellenblatt mit dem "namen" "name1" aber gibt mir nur zeile zwei und vier an. ich will aber alle zeilen in denen der "name1" vorkommt aus der gesamtliste nehmen und in ein neues tabellenblatt kopieren. wo ist der fehler? kann mir einer weiterhelfen?

lg