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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen