Weitersuchen mit For each Schleife
30.08.2006 17:55:45
Alex
bin leider im Archiv nirgends fündig geworden und schon nahe am Verzweifeln. Leider komm ich nicht klar mit der Suche via VBA. Hier mein Code:
#Code:
Sub CommandButton2_Click()
Dim strZ As String
Dim Cll As Range
Dim objZ As Range
strZ = "ness"
For Each Cll In ActiveWorkbook.Worksheets(1).Columns(5)
Set objZ = ActiveWorkbook.Worksheets(1).Cells.Find(What:=strZ, LookAt:=xlPart)
If objZ Is Nothing Then
MsgBox "Kein Eintrag"
Else
objZ.Interior.ColorIndex = 8
End If
Next Cll
Set objZ = Nothing
Set Cll = Nothing
End
Sub
Der String "ness" kommt dabei aber mehrfach in Spalte E vor, aber nur der erste Eintrag wird markiert.
Kann mir jemand erklären, wo mein Fehler liegt? Normalerweise sollte durch "For Each" doch jede Zelle in Spalte E angesprochen werden - oder hab ich da einen totalen Denkfehler?!?!?
Danke für Eure Hilfe!
'A