Gibt es die Möglichkeit sämtliche Text-Zellen eines Arbeitsblattes (mit mehr als 2000 Zeilen) rot zu markieren, welche die Zahl "02" enthalten?
Herzlichen Dank im voraus.
John
Gibt es die Möglichkeit sämtliche Text-Zellen eines Arbeitsblattes (mit mehr als 2000 Zeilen) rot zu markieren, welche die Zahl "02" enthalten?
Herzlichen Dank im voraus.
John
meinst du das so:
Sub Makro1()
Dim Zelle As Range, pos As Integer
For Each Zelle In Range("A1:E10")
pos = InStr(1, Zelle.Value, "02")
If pos <> 0 Then
Zelle.Interior.ColorIndex = 3
End If
Next Zelle
End Sub
Gruß
Steffen D
Sub search02()
Dim rng As Range
For Each rng In Range("a1:i2000")
If rng.Value = 2 Or rng.Text = "02" Then
rng.Interior.ColorIndex = 3
End If
Next
End Sub
Gruß
gordon
Gruss
John
Aus irgendeinem Grund, den ich nicht kenne, funktionniert deine Lösung nicht. Aber, trotzdem, danke für deine prompte Antwort.
Gruss
John