Forums Neueste Beiträge
 

Eigene Umschalt-Schaltfläche in Symbolleiste

21/10/2009 - 09:31 von Alexander Früh | Report spam
Hallo NG,

ich möchte mir gerne den befehl zum Umschalten zwischen Datenansicht und
Formelansicht (Strg + #) auf meine Symbolleiste legen.
Am liebsten hàtte ich gerne dazu eine Schaltflàche, die auch den "Status"
anzeigt, wie bei der Schaltflàche für die Zeichnen-Symbolleiste.
Gibt es so einen Schalter standardmàßig, oder müsste ich mir den selbst
basteln, indem nach dem Einschalten das Icon veràndere und nach dem
Ausschalten wieder zurücksetze.
Oder hat das von Euch vielleicht schon mal jemand gemacht und was Fertiges
parat? ;-)
Vielen Dank für Eure Hilfe.

Gruß Alex
 

Lesen sie die antworten

#1 Andreas Killer
21/10/2009 - 12:16 | Warnen spam
On 21 Okt., 09:31, Alexander Früh
wrote:

ich möchte mir gerne den befehl zum Umschalten zwischen Datenansicht und
Formelansicht (Strg + #) auf meine Symbolleiste legen.


...
Oder hat das von Euch vielleicht schon mal jemand gemacht und was Fertiges
parat? ;-)


Jupp, halbwegs, hàngt dran. Legt das Makro in Deine PERSONL.XLS, zieh
einen Button in eine Symbolleiste und weise ihm das Makro zu.

Was nicht funtkioniert ist die Anzeige wenn Du das Blatt wechselst.
Dazu müsstest Du in der PERSONL.XLS über die Application-Events bei
Worksheet_Activate den Button aktualisieren. Aufwendig, da hatte ich
keine Lust zu, ich sehe auch so das die Formeln angezeigt werden. .-)

Was auch nicht geht ist das "merken" der Spaltenbreite vor dem
Umschalten und wieder rücksetzen nach erneutem Umschalten (und das
natürlich in beide Richtungen). In die Richtung hatte ich schon mal
probiert, ging aber irgendwie nicht auf Anhieb und schon kam die faule
Seite in mir zum Vorschein. :)

Wenn Du einen der beiden Punkte ergànzen könntest/würdest... ich hàtte
gerne eine Kopie. :-)

Andreas.

Public Sub ZeigeFormeln()
'Button "Zeige Formeln" in Symboleiste "Meine - Makros"

Dim B, C As CommandBarButton
With ActiveWindow
.DisplayFormulas = Not .DisplayFormulas
End With
'Wurden wir von einer Symbolleiste aus aufgerufen?
B = Application.Caller
If TypeName(B) = "Variant()" Then
'Button ermitteln
Set C = CommandBars(B(2)).Controls(B(1))
'Button umschalten
If Not ActiveWindow.DisplayFormulas Then
C.FaceId = 624
C.Caption = "Zeige Formeln"
Else
C.FaceId = 385
C.Caption = "Zeige Ergebnisse"
End If
End If
End Sub

Ähnliche fragen