Also am besten erkläre ich dir schnell zeile um zeile dann kannst du es selber für deine bedürfnisse anpassen...
Dim wrkbook As String
wrkbook = Workbooks.Active
hier definieren wir den namen der variable für dein workbook (name der .xls datei)
dim max_x as integer
max_x = Workbooks(wrkbook).Worksheets("blatt 1").UsedRange.Rows.Count
max_x = max_x
hier lesen wir die anzahl zeilen aus und erstellen eine variabel für das ergebnis
(fals dein arbeitsblatt anders heisst als blatt 1 dann must du entweder den namen zu blatt 1 ändern oder im code blatt 1 mit dem namen deines blatts ersetzen)
Dim x As Integer
x = 1
Dim y As String
y = A
hier erstellen wir 2 variabeln für die zeilen und spalten einfach die y variable verändern wenn du nicht spalte a vergleichen möchtest
Do
If (Workbooks(wrkbook).Worksheets("blatt 1").Range("" & y & x) < 1) Then
Workbooks(wrkbook).Worksheets("blatt 1").Range("" & y & x).Select
Selection.Interior.ColorIndex = 3
x = x + 1
Else
x = x + 1
End If
Loop Until x = maxx
der teil vom code ist eingentlich der wichtige das programm durchläuft hier zelle um zelle bis es am ende ankommt und überprüft ob der inhalt < 1 ist fals nicht wird die zelle rot markiert...
der teil mit <1 kann mit jedem beliebigen kriterium also z.B kleiner als, grösser als, gleich, ungleich ersetzt oder auch ergänzt werden mit und & oder kriterien
auch hier gilt:
(fals dein arbeitsblatt anders heisst als blatt 1 dann must du entweder den namen zu blatt 1 ändern oder im code blatt 1 mit dem namen deines blatts ersetzen)