Makro Problem

[Ivan 16]

Hallo

Folgendes:
Mit dem Makrorecorder habe ich folgendes Makro aufgezeichnet.

Code:

Sub Makro6()
    Sheets("tbTabelle1").Select
    Range("qGE[ZT]").Select
    Selection.NumberFormat = ";;;"
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=A2=A3"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    ExecuteExcel4Macro "(2,1,"";;;"")"
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Führe ich das Makro danach aus kommt folgende Fehlermeldung: Siehe Bild
Drücke ich Debuggen wird mir diese Zeile gelb hinterlegt:
ExecuteExcel4Macro "(2,1,"";;;"")"

Wie muss ich den Code ändern, so das er richtig läuft?

Danke für eure Hilfe

[Klaus-Dieter]

Hallo,

welches Excel4Makro hast du da denn eingebaut? Am besten, du stellst die Datei mal ein.

[Ivan 16]

Hallo Klaus-Dieter

Ich habe kein  Excel4Makro in der Datei eingebaut!
Ich verstehe nicht warum das Makro nicht funktioniert, habe keine Änderung am Code gemacht.
Ob das an der Power Query Tabelle liegt, wo ich das Makro ausführen möchte, keine aAhnung.

[Klaus-Dieter]

Hallo,

ExecuteExcel4Macro "(2,1,"";;;"")"

wo hast du das Makro dann her?

[Kuwer]

Hi Klaus,

welches Excel4Makro hast du da denn eingebaut?

das wird intern von MS bei der Bedingten Formatierung verwendet.

Hallo Ivan,

beschreibe doch mal genau die Schritte, die Du beim Aufzeichnen gemacht hast.

Gruß Uwe

[Ivan 16]

Hallo
Das Makro hat der Makrorecorder so aufgezeichnet.

[Klaus-Dieter]

Hallo Ivan,

dann zeige uns doch mal die Datei. So lässt sich das kaum nachvollziehen.

@ Uwe, da ich fast nie mit dem Makrorekorder arbeite, hatte ich das noch nicht.

[Ivan 16]

Hallo Uwe

Gerne sage ich die Schritte:
Makrorecorder einschalten
das Tabellenblatt auswählen
Dann in Spalte A die Zeilen A2 bis A10 markiert
dann Bedingte Formatierung , neue Regel anklicken
dann denn Breich auswählen wo die Formel eingetragen wird und die Formel "=A2=A3" eingeben
dann unter Formatieren , Benutzerbedefiniert  ";;;" eingeben und auf ok drücken 
zum Schluß aufübernehmen und das wars

---

Hallo

Habe auf die schnelle eine Testdatei erstellt dort ist es das gleiche Problem , ein fach nur das Makro laufen lassen.

---

Hallo

Habe auf die schnelle eine Testdatei erstellt dort ist es das gleiche Problem , ein fach nur das Makro laufen lassen.

[00202]

Hallo, :19:

bezogen auf deine Beispieldatei: :21:

Code:

Option Explicit
Public Sub Main()
    With ThisWorkbook.Worksheets("Tabelle1").Range("A2:A10")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="=A2=A3"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).NumberFormat = ";;;"
        .FormatConditions(1).StopIfTrue = False
    End With
End Sub

[Ivan 16]

Hallo Case

Super vielen Dank für deine Hilfe, nun läuft es wie gewünscht.