Ribbon ein ausblenden

Forumthread: Ribbon ein ausblenden

01.03.2015 06:05:01

ludmila

Hallo,
in beigefügter Datei möchte ich gerne erreichen, dass wenn ich das Tabellenblatt wechsle auch das zugehörige Ribbon erscheint.
Bei Preisliste nur Speichern
Bei Zusammenfassung nur Zusammenfassung usw.
Bin schon am verzweifeln.
Danke!
Gruß
Ludmila
https://www.herber.de/bbs/user/96071.xlsm

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ribbon ein ausblenden

01.03.2015 09:57:47

mumpel
Nachtrag

01.03.2015 10:01:14

mumpel
AW: Nachtrag

02.03.2015 05:18:51

ludmila
AW: Nachtrag

02.03.2015 10:25:10

mumpel
AW: Nachtrag

03.03.2015 06:10:53

ludmila
AW: Nachtrag

03.03.2015 07:13:54

ludmila
AW: Nachtrag

03.03.2015 11:01:11

mumpel
AW: Nachtrag

04.03.2015 05:19:11

ludmila
AW: Nachtrag

04.03.2015 11:10:39

mumpel
AW: Nachtrag

08.03.2015 00:06:10

ludmila

AW: Ribbon ein ausblenden

01.03.2015 09:57:47

mumpel

Hallo!
Dafür kannst Du das getVisible-Attribut nutzen, in dessen Callback Du den Namen der aktiven Arbeitsmappe abfragst. In "DieseArbeitsmappe" das "Workbook_SheetActivate"-Ereignis setzen, in der die Zeile "objRibbon.Invalidate" steht. Im Archiv müsste es schon ein Beispiel dafür geben.
Gruß, René

Nachtrag

01.03.2015 10:01:14

mumpel

Kleines Beispiel: Ribbon- Tab an Blatt binden

AW: Nachtrag

02.03.2015 05:18:51

ludmila

Hallo Mumpel,
danke erstmal für Deine Hilfe.
Ich habe Deinen Rat befolgt und das Beispiel verwandt. Das funktioniert auch.
Wie ist es jedoch wenn ich mehrere Tabellenblätter habe.
Da hackt es bei mir aus.
Vielleicht hast Du ein kleines Muster.
Danke!
Gruß
Ludmila

Die Datei https://www.herber.de/bbs/user/96097.xlsm wurde aus Datenschutzgründen gelöscht

AW: Nachtrag

03.03.2015 06:10:53

ludmila

Hallo Mumpel,
danke, das war es was ich wollte.
Gruß
Ludmila

AW: Nachtrag

03.03.2015 07:13:54

ludmila

Hallo Mumpel,
jetzt ist es mir schon peinlich, dass ich Deine Zeit so in Anspruch nehme.
Ich habe festgestellt, dass sich dass Standard Ribbon ausblendet.
Dies habe ich zwar selbst hinbekommen, jedoch blendet sich das Ribbon z.B. "Zusammenfassung" nicht ein.
Bei der Preisliste funktioniert das.
Was muß ich ändern.
Vielen, vielen Dank!
Gruß
Ludmila
https://www.herber.de/bbs/user/96115.xlsm

AW: Nachtrag

03.03.2015 11:01:11

mumpel

Du hast ja auch angewiesen dass das Tab "Preisliste" aktiviert wird.

Public Sub getVisible_Tab1(control As IRibbonControl, ByRef returnValue)

  If ActiveSheet.Name = control.ID Then
     returnValue = True
     objRibbon.ActivateTab (control.ID)
  End If

End Sub

VBA/HTML - CodeConverter für Office-Foren, AddIn für Office 2002-2013 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:mumpel
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

AW: Nachtrag

04.03.2015 05:19:11

ludmila

Hallo Mumpel,
funktioniert leider nicht, jetzt kommt immer Fehlermedlung.
Danke!
Gruß
Ludmila
https://www.herber.de/bbs/user/96137.xlsm

AW: Nachtrag

04.03.2015 11:10:39

mumpel

Und wie lautet sie?

AW: Nachtrag

08.03.2015 00:06:10

ludmila

Hallo Mumpel,
leider komme icherst jetzt dazu mich bei Dir zu bedanken.
Nachdem ich den Code so abgeändert habe funkt es.
Danke!
Gruß
Ludmila

Public Sub getVisible_Tab1(control As IRibbonControl, ByRef returnValue)
On Error Resume Next
If ActiveSheet.Name = control.ID Then
returnValue = True
objRibbon.ActivateTab (control.ID)
End If
On Error GoTo 0
End Sub

Forumthread: Ribbon ein ausblenden

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread