Hallo,
ja, es gibt den ganzen Begriff schon einmal. Hier mal der agnze Code.
Ich durchlaufe mehrere tabellenblätter. Aus denen kopiere ich BEgriffe, die in Zeile 11 bis 50 stehen in ein Statistikblatt. In den Tabellenblättern können Begriffe mehrfach vorkommen, sollen aber in das Statistikblatt nur einmal eingetragen werden und dafür eine 2 hinter den Begriff geschrieben werden, der mehrfach vorkommt.
Sub suchen()
For ws = 1 To Sheets.Count
If Sheets(ws).Name = "Statistik" Then ws = ws + 1
For i = 11 To 50
With Sheets("Statistik")
Begriff = Sheets(ws).Cells(i, 3)
Set c = .Columns(1).Find(What:=Begriff, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
lz = .Cells(Rows.Count, 1).End(xlUp).Row
If lz = 6 Then lz = lz + 5
.Cells(lz + 1, 1) = Begriff
.Cells(lz + 1, 5) = 1
'Cells(11, 5) = x
'x = x + 1
'Else
'c(1, 5) = c(1, 5) + 1
End If
End With
Next i
Next ws
End Sub