Office: Eigenes Ribbon & Auswahlfeld (Drop-Down)

Schtief · 27. Februar 2017

Hallo Zusammen,

ich möchte meiner Excel-Datei ein eigenes Ribbon bzw. dem Standard-Ribbon einen zusätzlichen Tab hinzufügen. Auf diesem soll sich ein Drop-Down-Feld befinden.

Habe mich bereits etwas in die Thematik von XML und dem Custom UI Editor eingearbeitet jedoch weiß ich nicht ob das was ich mir vorstelle so funktioniert.

Also das Drop-Down-Feld soll eine Liste aller in einer Access-DB befindlichen Tabellen anzeigen und per Buttonklick diese in die Excel importieren.

Diesen Teil bekomme ich ohne Probleme über VBA hin, wenn zB das Auswahlfeld (Combobox) in einer UserForm ist.

Code:

Private Sub UserForm_Initialize()
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim strDB As String
Dim strTabelle As String
Dim strTabelleBox As String

cmbTabellen.Clear

strDB = ThisWorkbook.Path & "DBVers1.accdb"
Set cat = New ADOX.Catalog
cat.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDB

For Each tbl In cat.Tables
If tbl.Type = "TABLE" Then
cmbTabellen.AddItem tbl.Name
End If
Next
cmbTabellen.AddItem "neue Tabelle"
Set cat = Nothing

' strTabelleBox = cmbTabellen.Value

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Obriger Code füllt eine ComboBox zuverlässig mit den Tabellen der DB. Wie fülle ich nun ein Auswahlfeld in dem Ribbon?

Die zweite Frage an der Stelle wäre auch die "Weiterverarbeitung" der Auswahl. Ich möchte dass ein Eintrag ausgewählt wird und dieser Wert soll an ein Makro weitergegeben werden, welches nach einem Button auf dem Ribbon startet. Also sowas wie im obrigen Code "cmbTabellen.Value"

Viele Grüße
Steffen

:)

mumpel · 1. März 2017

Hallo!

Zur 2. Frage:
Das Kombinations- oder Auswahlfeld kann auch direkt eine Prozedur aus,lösen, man benötigt also nicht extra eine Schaltfläche. Das Auswahl- oder Kombinationsfeld kann aber kein anderes Element in Deinem Ribbon auslösen.

Zur 1. Frage:
Müsste funktionieren. Ich kann es aber nicht testen da ich keine Datenbank habe. Ich möchte auch nicht extra eine Datenbank erstellen. Du kannst ja mal eine Datenbank als Beispiel anhängen.

In meiner Signatur findest Du einen Link zu einem umfangreichen RibbonX-Workshop.

Gruß, René

Schtief · 1. März 2017

Habe nun eine Beispieldatenbank (ohne Inhalt) gebaut. Da es sich bei meinem Problem jedoch nur um eine Auflistung der Tabellen handelt, dürfte diese ausreichen.

Zu der Direktauslösung bei Auswahl aus dem Auswahlfeld. Ich persönlich finde das nicht sehr "schön" wenn direkt was passiert, da es in meinem Fall alle Daten in einem Tabellenblatt löscht und mit den neuen Daten füllt. Hätte dafür also gerne noch den "Zwischenschritt" mit dem Button.

Anbei die DB las ZIP-file

mumpel · 1. März 2017

Für den Zwischenschritt müsste die Auswahl zwischengespeichert werden. Z.B. in einer öffentlichen Variablen. Ich schau es mir heute Abend mal an.

Schtief · 2. März 2017

Hallo Mumpel,

eine Sache ist mir auch noch aufgefallen. Ich habe von deiner Webseite (sehr gute Quelle im Übrigen, vielen Dank für so eine Arbeit *top) das Drop-Down Excel heruntergeladen und versucht die Logik hinter den XML-Befehlen und Makros zu verstehen.

Wird die Befüllung der Drop-Down Felder nur einmal beim Öffnen (bzw. aktivieren der Makros) ausgeführt? Habe in dem Sub "Artikel_getItemID" ein debug.Print id eingebaut um zu schauen, wann das Makro ausgelöst wird und das Direktfenster wird einmalig beim Öffnen der Datei durchgeführt.

Wenn das Drop-Down nicht so dynamisch ist, dass es Einträge während der Laufzeit einfügt, dann würde sich alle Mühe in dem Falle nicht lohnen und ich würde das Auswahlfeld einfach in eine UF verschieben, welche vom Ribbon aus ausgelöst werden kann.

Grüße und schon mal vielen Dank für deine Zeit bisher
Steffen

mumpel · 2. März 2017

Zur Laufzeit füllen kann man das mit dem onLoad-Ereignis. Das kann man z.B. auslösen wenn man in eine andere Tabelle wechselt. Das wirst Du alles lernen wenn Du den Workshop komplett durcharbeitest.

Schtief · 5. März 2017

Hallo Mumpel,

habe nun ein DropDown-Feld welches die in der Datenbank vorhandenen Tabellen auflistet.

Code:
Hier der XML-Code
Code:

Option Private Module
Option Explicit
Public objRibbon As IRibbonUI

Public Sub onload(ribbon As IRibbonUI)
Set objRibbon = ribbon
End Sub

Dim strTabellen() As String

Sub Tabelle_getItemCount(control As IRibbonControl, ByRef count)
Dim cat As ADOX.Catalog
Dim tblTabInfo As ADOX.Table
Dim strDB As String
Dim i As Integer
Dim varTabellen() As Variant

strDB = ThisWorkbook.Path & "DBVers1.accdb"
Set cat = New ADOX.Catalog
cat.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDB

For Each tblTabInfo In cat.Tables
With tblTabInfo
If .Type = "TABLE" Then
ReDim Preserve varTabellen(i + 1) As Variant
varTabellen(i) = .Name
i = i + 1
End If
End With
Next
Set cat = Nothing
count = i
End Sub

Sub Tabelle_getItemLabel(control As IRibbonControl, index As Integer, ByRef label)
Dim cat As ADOX.Catalog
Dim tblTabInfo As ADOX.Table
Dim strDB As String
Dim i As Integer
Dim varTabellen() As Variant

strDB = ThisWorkbook.Path & "DBVers1.accdb"
Set cat = New ADOX.Catalog
cat.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDB

For Each tblTabInfo In cat.Tables
With tblTabInfo
If .Type = "TABLE" Then
ReDim Preserve varTabellen(i + 1) As Variant
varTabellen(i) = .Name
i = i + 1
End If
End With
Next
Set cat = Nothing

label = varTabellen(index)
End Sub

Sub Tabelle_getItemID(control As IRibbonControl, index As Integer, ByRef ID)
ID = index
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier der VBA-Code.

Leider fehlen dem Ribbon nun noch zwei Anforderungen. Zum Einen wird die Liste der Tabellen zur Laufzeit nicht angepasst. Dachte das würde das onload Ereignis erledigen.
Zum Anderen fehlt noch der "Zwischenschritt" bis zum Import der Tabelle. Ist es möglich die DropDown Auswahl, als Variable oder Argument zwischen zu speichern?

Grüße
Steffen

EDIT: Weiß nicht wie ich den XML-COde hier vernünftig einfügen kann...

mumpel · 12. Januar 2021

von Schtief

(...) Zum Einen wird die Liste der Tabellen zur Laufzeit nicht angepasst (...)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In "DieseArbeitsmappe", damit wird das Ribbon mit jedem Blattwechsel aktualisiert.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not objRibbon Is Nothing Then objRibbon.Invalidate
End Sub

Lukas Mosimann. Projektbetreuung:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schtief · 21. März 2017

Hallo mumpel,

ich bringe den Thread mal wieder hoch.

Habe deinen Vorschlag mit dem Blattwechsel probiert, jedoch muss das Ribbon nicht so häufig aktualisiert werden. (Nur wenn eine bestimmte Prozedur ausgeführt wird.)

Habe versucht deine Anweisung ans Ende dieser Prozedur einzubauen, jedoch wird das Ribbon nicht aktualisiert.

Ich habe mir dein Tutorial, insbesondere das zu Auswahlfeldern angeschaut. Komme aber nicht dahinter wie ich die OnAction-Prozedur für meine Anwendung umsetzen kann.

Ich würde gerne bei der OnAction-Prozedur das ausgewählte Label in einer Variable speichern. Also sowas wie:

Code:

Sub Tabelle_OnAction(control As IRibbonControl, labelAs String, index As Integer)
pstrAuswahl = label
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ist das überhaupt so möglich?

Grüße
Steffen

Office: Eigenes Ribbon & Auswahlfeld (Drop-Down)

Eigenes Ribbon & Auswahlfeld (Drop-Down)

Eigenes Ribbon & Auswahlfeld (Drop-Down)

Eigenes Ribbon & Auswahlfeld (Drop-Down)

Eigenes Ribbon & Auswahlfeld (Drop-Down)

Eigenes Ribbon & Auswahlfeld (Drop-Down) - Similar Threads - Ribbon Auswahlfeld Drop

Ribbon haben sich vor vba-Eingabe gelöst

Ribbon Schaltfläche aktivieren bzw. deaktivieren

Ribbon Gruppen Dynamisch erstellen

Benutzerdefiniertes RibbonX und XLAM

Eigenes Ribbon anpassen -> XML

Ribbon im Formular bei Unterformularen

Excel Ribbon manuell erstellen (XML erstellen und wo einbinden)