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)