Clever-Excel-Forum

Normale Version: Mit dem Namen(Caption) eines Buttons eine Tabelle mit gleichem Namen öffnen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo Leute

Ich habe leider nicht viel Ahnung von Excel und noch viel weniger von VBA.
Muß aber ein Problem lösen.
Ich habe auf einem Tabellenblatt, 12 Befehlsschaltflächen Active X, ohne Namen(Caption). Mit einem anderen Button erstelle ich neue Tabellenblätter und weise diesen einen Namen aus einer Zelle zu. Der gleiche Name wird an die erste Befehlsschaltfläche ohne Namen vergeben. Jetzt möchte ich mit dieser Befehlsschaltfläche das gleichnamige Tabellenblatt öffnen. Aber wie? Ich dachte in Richtung

Sub TabelleOeffnen()

    Dim strTabellenBlatt as String
    strTabellenBlatt = ???????????? cmdButton1.Caption
    Worksheets(strTabellenBlatt).Activate

End Sub


Ich hoffe jemand kennt o. findet eine Lösung.
Viele Grüße Sagulum
Hallo,

meinst du so? Kleine Einführung in Klassen
Hallo,

mal eine leicht verruchte Anfrage,

... und was für Funktionen haben die Buttons?
... und wie weißt Du nach vier Wochen Urlaub noch, welcher Button für was zuständig ist?

Im Übrigen benutzt Du doch Aktive X-Buttons. Da muß man keine Klimmzüge machen, die
lassen sich bequem direkt programmieren.
Hallo

Also ich versuchs mal anders zu beschreiben. Ich will auf einem Tabellenblatt in je eine Zelle einen Namen und eine Nummer eintragen. Mit einem Klick auf einem Button soll ein Tabellenblatt erstellt werden. Das erstellte Tabellenblatt bekommt den Namen aus der Zelle. Weiterhin wird ein weiterer vorhandener Button ohne Namen(Caption) mit dem gleichen Namen versehen den das soebend erstellte Tabellenblatt bekommen hat. Bis hier hin funktioniert mein Code.
Jetzt soll mit dem Button(der gerade einen neuen Namen bekommen hat) das Gleichnamige Tabellenblatt aktiviert werden. Der Code für die Buttons sollte also so gestaltet sien, das ein neuer Name(Caption) des Buttons ein Tabellenblatt mit dem Namen(Caption) des Buttons aktivieren kann.

Käpt`n Blaubär
Die 12 Button stehen einfach bereit um einen Namen zu bekommen und später das zugehörige Tabellenblatt zu aktivieren.

Leider kann ich den Aktive x Button nicht so einfach programieren, da fehlt mir einiges an Grundlagenwissen.

Es grüßt Sagulum
Hallo sagulum,

hiermit:
Code:
Private Sub CommandButton1_Click()
    Sheets(ActiveSheet.CommandButton1.Caption).Activate
End Sub