[Gelöst] Bedingte Formatierungen ändern

[F3K Total]

OT:
Habe die drei Makros in deiner ersten Beispieldatei gesehen.
Wenn Du in die Zusatzinformation (Reiter Allgemein, unten) des jeweiligen Buttons

• Summe Woche Ein/Aus -> 0
• Summe Tage Ein/Aus -> 1
• Fehlzeiten Ein/Aus -> 2

schreibst, kommst du mit einem Makro für alle drei Varianten aus:

Code: Alles auswählen

Sub S_Spalten_einblenden_ausblenden(Event)
Dim oTabelleNr as Integer 
Dim n as Integer
 	' Nummer der aktuellen Tabelle wird ausgelesen -----------------
 	oDoc = Thiscomponent
	oSheet = oDoc.CurrentController.ActiveSheet.Rangeaddress
 	oTabelleNr = oSheet.sheet
 	oSheet = thisComponent.sheets(oTabelleNr)
 	aW = array("B","C","D","E")
 	aT = array("J","O","T","Y","AD","AI","AN")
 	aF = array("I","N","S","X","AC","AH","AM")
 	aC = array(aW,aT,aF)
 	n = event.source.model.tag
 	for i = 0 to ubound(aC(n))
 	    oSpalte = oSheet.Columns.getByName(aC(n)(i))
	    if oSpalte.isVisible then
		    oSpalte.isVisible = false
	    else  
		    oSpalte.isVisible = true
	    end if
	next i
End Sub

Gruß R

[WernerFP]

Hallo R,

ich habe das an weiteren Dateien noch einmal verifiziert. Es liegt definitiv am Tabellenschutz, der nicht für alle betroffenen Sheets deaktiviert war.

Ja klar, den 'Bug' aus der Überschrift streiche ich, weil es glücklicherweise kein Bug bei den Zellvorlagen ist.

Aber ein Gui-Bug ist es dennoch. Die Menüeinträge 'Löschen' und 'Ändern...' in den Formatvorlagen sollten ausgegraut sein, wenn sie nicht aktiv sind. Ein aktiver Menübefehl muss auf eine Ausführung reagieren und bei Erfolglosigkeit einen Fehler ausgeben. Das ist sonst irreführend.
Ich weiß nicht, wie lange ich da ohne deinen Hinweis noch gesucht hätte...

OT - Dein Makro:
Schön, wenn es nicht nur funktioniert, sondern auch noch elegant ist!

(In meinen Makros stecken noch ein paar Schwierigkeiten beim Umstieg von VBA auf Basic. Da bin ich froh um jeden Schnipsel an schönem Code, aus dem ich Infos ziehen kann.)

Gruß
WernerFP