OpenOffice.info

so, hier eine Beispieldatei

Gruß
Stephan

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

[color=#FF0000]Hinweis: ich hätte auch eine Beispieldatei angehängt, aber der Upload funktioniert momentan nicht. Habe das bereits gemeldet.[/color]

Hallo,
wie startest du das Makro? Welche Fehlermeldung erscheint? Sind Makros überhaupt aktiviert?

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

z.B.:

[code]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[/code]

Gruß
Stephan