Bedingte Formatierung via VBA
25.11.2020 18:21:20
Samy
Da anscheinend Bereich "wird angewendet auf" unter Bedingte Formatierung nicht beinflussbar ist.
Würde ich gerne die Bedingten Formatierungen über VBA setzen:
Mit folgendem Code finde ich anhand dem Wert "prod" die entsprechende Spalte wo die bedingte Formatierung stattfinden soll.
Mir ist zurzeit eigentlich nur noch schleierhaft wie ich es schaffe den Bereich "N22:N1000" im VBA anzupassen. Also wenn z.B. in Spalte A der Wert "prod" zu finden ist soll es die Formel mit dem Bereich "A22:A1000" angeben und nicht "N22:N1000" usw.
Vielen Dank für die Hilfe.
LG Samy
Sub Find_mehrmals()
Dim Rafound As Range
Dim StAdresse As String
With Worksheets("Messprotokoll")
Set Rafound = .Rows(1).Find("prod", .Range("A1"), xlValues, _
xlPart, xlByRows, xlNext, False, False, False)
If Not Rafound Is Nothing Then
StAdresse = Rafound.Address
Do
With Rafound.Offset(21, 0).Resize(979, 1)
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=N22:N1000="""""
.FormatConditions(1).Interior.ColorIndex = 5
End With
Set Rafound = .Rows(1).FindNext(Rafound)
If Not Rafound Is Nothing Then
If StAdresse = Rafound.Address Then
Exit Do
Else
End If
End If
Loop While Rafound.Address StAdresse
End If
End With
Set Rafound = Nothing
End Sub