Sie können immer 100 Formatbedingungen hinzufügen, basierend auf dem Wert nach dem Q=
in E=0.0,Q=99
. Hier ist ein Makro, das das für Sie mit den von Ihnen ausgewählten Zellen erledigt, indem Sie jeden leeren Zellenwert direkt mit 1 bis 100 vergleichen oder mit dem Wert nach dem Q=
ersten Vergleich, wenn dieser erste Vergleich einen Fehler ergibt.
Sie können das Makro nach dem Ausführen löschen, damit Sie die Datei nicht als XLSM speichern müssen. Entfernen Sie das Kommentarzeichen für die Selection.FormatConditions.Delete
Zeile, indem Sie den Apostroph entfernen, wenn Sie auch die aktuellen Formatierungsbedingungen entfernen möchten.
Dies setzt voraus, dass Ihre Zahl immer eine ganze Zahl zwischen 1 und 100 ist (entweder als bloßer Zellenwert oder nach dem Wert Q=
). Bei Dezimalwerten funktioniert es nicht.
Sub FormatMe() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False 'Selection.FormatConditions.Delete Dim addr As String addr = Replace(Selection.Cells(1).Address, "$", "") For i = 1 To 100 With Selection.FormatConditions.Add(xlExpression, Formula1:= _ "=OR(" & addr & " = " & i & ", IFERROR(RIGHT(" & addr & _ ", LEN(" & addr & ") - FIND(""Q"", " & addr & ", 2) - 1) = """ & i & """, FALSE))") .Interior.Color = RGB(255, 255 - Int(i / 100 * 255), 0) End With Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub