OpenOffice.info

Verfasst: **Fr, 15.05.2020 16:40**

z.B.:

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

Gruß
Stephan

Verfasst: **Fr, 15.05.2020 20:23**

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

Verfasst: **Fr, 15.05.2020 21:41**

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.

Verfasst: **Sa, 16.05.2020 09:41**

so, hier eine Beispieldatei

Gruß
Stephan

OpenOffice.info

Makro erstellen um vorgegebene Zellen zu färben

Re: Makro erstellen um vorgegebene Zellen zu färben

Re: Makro erstellen um vorgegebene Zellen zu färben

Re: Makro erstellen um vorgegebene Zellen zu färben

Re: Makro erstellen um vorgegebene Zellen zu färben