Variable in Formel für die bedingte Formatierung

Hallo,

ich bin in dem VBA-Thema noch sehr neu und baue gerade an einer Tabelle mit einem Fragebogen zur Bewertung von Arbeitsabläufen hinsichtlich der Digitalisierung. Die Tabelle hat ein Tabellenblatt mit Erläuterungen, ein Tabellenblatt mit dem Fragebogen und eins mit den Ergebnis.

Zwei der Fragen auf dem Fragebogen werden jedoch möglicherweise mit n/a beantwortet, weil die Frage nicht auf den Arbeitsablauf zutrifft. Dadurch gibt es unterschiedliche maximale Gesamtpunktzahlen.

Auf dem Tabellenblatt mit dem Ergebnis werden für die Antworten Punkte vergeben und diese zusammengezählt. Für das Summen-Feld habe ich vier bedingte Formatierungen gebaut. Einmal eine bedingte Formatierung für eine Farbskala und drei Bedingte Formatierungen um hinter der Summe die mögliche Gesamtpunktzahl stehen zu haben (Beispiel: "SummePunkte von 29").
Bei der bedingten Formatierung mit der Farbskala habe ich beim Mittelwert und Maximum jeweils eine Wenn-Formel eingebaut um die unterschiedlichen Gesamtpunktzahlen zu berücksichtigen und bei den anderen bedingten Formatierungen sind es Regeln die jeweils eine Formel nutzen ob sie angewendet werden.

Jetzt ist es aber so, dass man in der Tabellen vielleicht nicht nur einen Arbeitsablauf bewerten möchte sondern mehrere. Dafür habe ich eine Button eingebaut, welcher mit Makros einen neues Tabellenblatt mit dem Fragebogen und einen neuen Abschnitt auf dem Tabellenblatt mit den Ergebnissen hinzufügt.

Ich möchte jedoch auch, dass ein neu eingefügtes Summenfeld auf dem Ergebnisblatt auch mit bedingten Formatierungen wie eben beschrieben formatiert wird. Folgenden Code habe ich für die erste Formatierung des Textes bisher:



Sub testbedingte()

    Dim frage50 As Integer

    Dim frage120 As Integer

    Dim formula As String

    

    zusätzlichefragebögen = Sheets.Count - 3

    

    frage50 = (zusätzlichefragebögen * 17) + 7

    frage120 = (zusätzlichefragebögen * 17) + 14

    

    formula = "=UND(C" & frage50 & "=""n/a"";C" & frage12 & "=""n/a"")"

    

    'Fehler

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:=formula

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    ExecuteExcel4Macro "(2,1,""0"" von 26"""")"

    Selection.FormatConditions(1).StopIfTrue = False

End Sub

Beim Ausführen des Codes kommt die Meldung "Laufzeitfehler '5': Ungültiger Prozeduraufruf oder ungültiges Argument"

Hat jemand eine Idee was mein Fehler ist?

Hallo,

da du mir schon bei den anderen bedingten Formatierungen schon so schnell und gut geholfen hast, könntest du mir auch noch bei bedingten Formatierung für die Farbskala noch helfen?

Ich hatte dort mit dem Makrorecorder wieder ein Code ausgeben lassen und dort versucht die entsprechende Formel einzufügen leider wieder ohne Erfolg. Hier der Code



Sub SummeFarbskala2()

    Dim frage50 As Integer

    Dim frage120 As Integer

    Dim ZusaetzlicheFrageBoegen As Integer

    Dim strFormula As String

    

    ZusaetzlicheFrageBoegen = Sheets.Count - 3

    

    frage50 = (ZusaetzlicheFrageBoegen * 17) + 7

    frage120 = (ZusaetzlicheFrageBoegen * 17) + 14

    

    strFormula = "=WENN(UND(C" & frage50 & "=""n/a"";C" & frage120 & "=""n/a"");26;WENN(UND(C" & frage50 & "=""n/a"";C" & frage12 & ">""n/a"");27;29))"



    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueNumber

    Selection.FormatConditions(1).ColorScaleCriteria(1).Value = 0

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 255

        .TintAndShade = 0

    End With

    

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 65535

        .TintAndShade = 0

    End With

    

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueFormula

        

        'Fehler

    Selection.FormatConditions(1).ColorScaleCriteria(3).Value = strFormula

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 5287936

        .TintAndShade = 0

    End With

End Sub

Beim Ausführen wirft er den Fehler "Laufzeitfeler '1004': Anwendungs- oder objektdefinierter Fehler" und markiert wieder die Zeile unter dem Kommentar Fehler. Vielleichtkannst du mir ja wieder helfen. Vielen Dank im voraus.

Gruß Thies

Variable in Formel für die bedingte Formatierung

Forumthread: Variable in Formel für die bedingte Formatierung

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Variable in Formel für die bedingte Formatierung

Forumthread: Variable in Formel für die bedingte Formatierung

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread