Hilfe bei suche per vba
20.01.2005 12:52:29
Marc
mit dem uneren Code durchsuche ich ein Tabellenblatt (Statistik) nach einem betsimmten begriff. Dabei durchsuche ich den gesamten genutzten Bereich des Tabellenblattes. Nun würde ich gere allerdings nur eine Spalte durchsuchen lassen, aber irgendwie komme ich nicht drauf, wie ich das anstellen könnte.
Wäre toll, wenn mir jemand helfen könnte.
Gruß
Marc
Private Sub Suche
For ws = 1 To Sheets.Count
If Sheets(ws).Name <> "Übersicht" And Sheets(ws).Name <> "CD-Liste" Then
If Sheets(ws).Name = "Statistik" Then ws = ws + 1
For i = 11 To 50
With Sheets("Statistik")
Begriff = Sheets(ws).Cells(i, 3)
With Sheets("Statistik").UsedRange
Set c = .Find(What:=Trim(Begriff), LookIn:=xlValues, LookAt:=xlWhole)
End With
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
Else
If c <> "" Then
v = c.Row
x = Cells(v, 5).Value
x = x + 1
Cells(v, 5).Value = x
End If
End If
End With
Next i
End If
Next ws
End Sub
Anzeige