ToggleButton visible/hide/activate

'Callback for toggleButton82 onAction Public Sub Macro82(control As IRibbonControl, pressed As Boolean) Application.ScreenUpdating = False Sheets("Ergebnis").Visible = pressed Sheets("Ergebnis").Activate Application.ScreenUpdating = True End Sub 'Callback for toggleButton82 getPressed Public Sub tgl82_getPressed(control As IRibbonControl, ByRef returnedVal) returnedVal = Sheets("Ergebnis").Visible = xlSheetVisible End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

So, habe mich bisschen mit beschäftigt und hätte eine zufriedenstellende Lösung. Allerdings passt der Zustand des ToggleButton nicht dazu. Kann man den Zustand mit einem Befehl beeinflussen?
Das habe ich gemacht. Vielleicht nicht Profihaft, aber es funktioniert für mich soweit bis auf den Button Zustand. Oder muss ich am getpressed Befehl noch tun?


'Callback for toggleButton82 onAction
Public Sub Macro82(control As IRibbonControl, pressed As Boolean)
'   Stop
Application.ScreenUpdating = False
Application.EnableEvents = False
If Sheets("Ergebnis").Visible  True Then       'Blatt nicht sichtbar?
Sheets("Ergebnis").Visible = pressed        'JA = Blatt einblenden
TbStat = 1
Sheets("Ergebnis").Activate                 'Blatt auswählen
TbStat = 2
ElseIf ActiveSheet.Name = ("Ergebnis") Then  'Blatt aktiv?
Sheets("Ergebnis").Visible = False          'JA = Blatt ausblenden
ElseIf ActiveSheet.Name  ("Ergebnis") Then     'Blatt aktiv?
Sheets("Ergebnis").Select                   'NEIN = Blatt auswählen
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'Callback for toggleButton82 getPressed
Public Sub tgl82_getPressed(control As IRibbonControl, ByRef returnedVal)
returnedVal = Sheets("Ergebnis").Visible = xlSheetVisible
End Sub

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Grußformel

Nun würde ich jedoch gerne, dass wenn ein Blatt sichtbar ist, ich es mit dem toggleButton nur aktiviere und nicht gleich ausblende. Sondern nur Blätter ausblende mit togglebutton die aktiv im Vordergrund sind. Geht das überhaupt damit? Oder muss ich zwei Button habe? Ein Button für ein/aus und ein Button für aktivieren?

Beliebteste Forumthreads (12 Monate)

ToggleButton visible/hide/activate

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ToggleButton visible/hide/activate

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread