ich habe folgenden Code, der auch funktioniert:
Dim c As Range
Dim V As Long
With ActiveSheet
On Error GoTo ende
Kogr = .Columns(1).Find("Kogr", LookIn:=xlValues, LookAt:=xlWhole).Row
V = .Rows(Kogr).Find("V", LookIn:=xlValues, LookAt:=xlWhole).Column
lastcell = .Cells(Rows.Count, 1).End(xlUp).Row
For Each c In .Range(.Cells(Kogr + 1, V), .Cells(lastcell, V))
If c = "*" Then
.Rows(c.Row).Interior.ColorIndex = 43
Else
.Rows(c.Row).Interior.ColorIndex = 3
End If
Next
.Columns(V + 1).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
.Cells(Kogr, V + 1) = "Kommentar "
End With
ende:
Es wird in der Spalte, in der "V" als Spaltenüberschrift steht gesucht. Dann wird überprüft, ob in dieser Spalte "*" steht, ist das der Fall wird die ganze Zeile grün eingefärbt, falls nicht in rot.Jetzt soll noch in der Spalte, in der "St" steht, nach "3" gesucht werden.
Diejenigen Zeilen die zum einen in der "V" Spalte kein "*" aufweisen und zum anderen in der "St" Spalte eine "3" aufweisen, sollen nun in einer dritten Farbe eingefärbt werden.
Das Ganze muss, wie ihr sehen könnt, variabel gehalten werden, da die Zeile in der "Kogr" steht und die Spaltenpositionen sich verändern können.
Das übersteigt meinen Horizont leider. Hier der Link zur Datei:
https://www.herber.de/bbs/user/109165.xlsm
Danke schon einmal im Voraus für Eure Hilfe!
Gruß,
Pseudo