Find und schleife
02.12.2019 14:52:17
Klaus
Ich würde gerne eine Tabelle durchsuchen und wenn das Ergebnis existiert dann würde ich gerne die Zelle färben. Falls es nicht existiert soll er den nächsten Bereich durchsuchen und dann aber mit einer anderen Farbe die Zelle füllen. Leider ergibt es einen Laufzeitfehler 9. Kann mir jemand weiterhelfen?
Danke schonmal!
Sub Test ()
If Worksheets("Tabelle 1").Range("B1:B30").Find(What:=hallo, LookIn:=xlFormulas, LookAt:=xlPart) _
= True Then
Range("B5").Select
With Selection.Interior
.Color = 49407
End With
ElseIf Worksheets("Tabelle 2").Range("B1:B30").Find(What:=hallo, LookIn:=xlFormulas, LookAt:= _
xlPart) = True Then
Range("B5").Select
With Selection.Interior
.Color = 49000
End With
Else
MsgBox "falsch"
End If
End Sub