Excel 64 Bit VBA Bedingte Formatierung - Fehler

Hallo Community,


aktuell habe ich ein Problem, bei dem ich nicht mehr weiter weiß. Ich vermute sogar, es ist ein BUG.

Bei Excel 2010 32 Bit funktioniert der Code, bei der 64 Bit Variante nicht.


Wenn ich eine bedingte Formatierung für einen Bereich per Code hinzufüge, zu dem schon eine bedingte Formatierung besteht (also eine Überlappung und damit ein "Formatkonflikt"), gibt es einen Laufzeitfehler. Allerdings nur bei .Font (also Schriftformatierung). Beim Hintergrundformat geht alles ohne Probleme.


Laufzeitfehler 1004 (Anwendungs- oder objektdefinierter Fehler)


Nachstellen kann man das recht einfach...


Man fülle (beispielhaft) folgende Daten in ein Tabellenblatt:

Kategorie Unterkategorie Produkt Name Produkt Nr
Hardware 0
Hardware Systeme 0
Hardware Systeme PC 1
Hardware
Systeme

Server 2
Software 0
Software Betriebssysteme 0
Software Betriebssysteme Windows 10 3
Software Betriebssysteme Windows Server 2012 4

Nun fügt man in einem Modul folgenden Code hinzu und lässt ihn laufen:


Sub Set_Formatting()

Dim rangearea As String, rangearea_products As String
rangearea = "$A$2:$D$9"
rangearea_products = "$C$2:$D$9"

Dim rangearea_category As String, rangearea_categories As String
rangearea_category = "$A$2:$A$9"
rangearea_categories = "$A$2:$B$9"

Dim formula_1 As String, formula_2 As String, formula_x As String
formula_1 = "=UND($A2 <> """"; $B2 = """"; $C2 = """"; $D2 = 0)"
formula_2 = "=UND($A2 <> """"; $B2 <> """"; $C2 = """"; $D2 = 0)"
formula_x = "=$D2 <> 0"

'Bedingte Formatierung zurücksetzen
If Cells.FormatConditions.Count <> 0 Then Cells.FormatConditions.Delete

'Zeilen mit Produktnummern formatieren
With Range(rangearea_categories).FormatConditions.Add(Type:=xlExpression, Formula1:=formula_x)
.Font.Color = RGB(255, 255, 255)
End With

'Kategorie formatieren

'Ab Spalte C bis D formatieren
With Range(rangearea_products).FormatConditions.Add(Type:=xlExpression, Formula1:=formula_1)
.Interior.Color = RGB(0, 0, 0)
.Font.Color = RGB(0, 0, 0)
End With
'komplette Zeile formatieren
With Range(rangearea).FormatConditions.Add(Type:=xlExpression, Formula1:=formula_1)
.Interior.Color = RGB(0, 0, 0)
.Font.Color = RGB(255, 255, 255)
.Font.Bold = True
End With

'Unterkategorie formatieren

'Spalte A formatieren
With Range(rangearea_category).FormatConditions.Add(Type:=xlExpression, Formula1:=formula_2)
.Interior.Color = RGB(31, 73, 125)
.Font.Color = RGB(31, 73, 125)
End With
'Ab Spalte C bis D formatieren
With Range(rangearea_products).FormatConditions.Add(Type:=xlExpression, Formula1:=formula_2)
.Interior.Color = RGB(31, 73, 125)
.Font.Color = RGB(31, 73, 125)
End With
'komplette Zeile formatieren
With Range(rangearea).FormatConditions.Add(Type:=xlExpression, Formula1:=formula_2)
.Interior.Color = RGB(31, 73, 125)
.Font.Color = RGB(255, 255, 255)
.Font.Bold = True
End With

End Sub



Bei "Kategorie formatieren" zweite bedingte Formatierung bleibt der Code stehen.

Wie gesagt, unter 32 Bit kein Problem, unter 64 Bit Laufzeitfehler.


Hat jemand eine Antwort darauf?


Im Internet habe ich mich dumm und dämlich gesucht, kein Ergebnis.

Daher würde ich mich sehr auf eine Antwort freuen. Danke!