Sub Faerbe()
On Error Resume Next
With ThisComponent.Sheets
zellnamen = .getByName("Tabelle1").getCellRangeByName("A1:A52798").getDataArray()
For i = 0 To UBOUND(zellnamen)
.getByName("Tabelle2").getCellRangeByName(zellnamen(i) (0)).CellBackColor = RGB(0,0,0)
Next i
End With
End Sub
Es kommt keine Fehlermeldung weil ich vorsichtshalber "On Error Resume Next" ins Makro geschrieben habe um die Fehlermeldung zu unterdrücken, die käme wenn nicht alle der Zellen A1:A52798 auch Inhalt hätten.
Lösche diese Zeile aus dem Makro und Du bekommst mutmaßlich eine Fehlermeldung die Aufschluss gibt was schief läuft.
Gruß
Stephan
Hinweis: ich hätte auch eine Beispieldatei angehängt, aber der Upload funktioniert momentan nicht. Habe das bereits gemeldet.