Makro erstellen um vorgegebene Zellen zu färben

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Makro erstellen um vorgegebene Zellen zu färben

Beitrag von Stephan »

z.B.:

Code: Alles auswählen

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
mikeleb
*******
Beiträge: 1315
Registriert: Fr, 09.12.2011 16:50

Re: Makro erstellen um vorgegebene Zellen zu färben

Beitrag von mikeleb »

Hallo,
wie startest du das Makro? Welche Fehlermeldung erscheint? Sind Makros überhaupt aktiviert?
Gruß,
mikeleb
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Makro erstellen um vorgegebene Zellen zu färben

Beitrag von 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

Hinweis: ich hätte auch eine Beispieldatei angehängt, aber der Upload funktioniert momentan nicht. Habe das bereits gemeldet.
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Makro erstellen um vorgegebene Zellen zu färben

Beitrag von Stephan »

so, hier eine Beispieldatei

Gruß
Stephan
Dateianhänge
Beispieldatei_mit_Makro.ods
(11.5 KiB) 102-mal heruntergeladen
Antworten