Excel97 Text auf Command Button zurückgeben!
Erich Jung
Ich habe folgendes Problem: In einer Arbeitsmappe sind mehrere
Tabellenblätter.
Ein Übersichtsblatt das ein Verzeichnis der restlichen Tabellenblätter
enthält.
Auf den Ü-Blatt sind mehrere Command Buttons bei deren Betätigung
mittels VBA-Makro auf die jeweils andern Blätter verzweigt wird. Jedem
Knopf ist ein Makro zugewiesen.
Ich möchte aber nur ein Makro für diese Arbeit haben. Meine Idee ist die
Beschriftung des Makro-Buttons auszulesen und an das Makro übergeben das
dann das richtige Tabellenblatt aufruft.
Die buttons sinf mit A, B, C, D.... und die Tabellenblätter ebenfalls
mit A, B, C, D .... usw. beschriftet.
Kann mir von den Experten jemand helfen.
Vielen Dank schon mal!
--
\|/
Gruss Erich (@ @)
-----------------------------------------------oOO-(_)-OOo---
erich...@t-online.de
Marcel Heimann
<Erich...@de.bosch.com> wrote:
Hallo Erich!
>Ich möchte aber nur ein Makro für diese Arbeit haben. Meine Idee ist die
>Beschriftung des Makro-Buttons auszulesen und an das Makro übergeben das
>dann das richtige Tabellenblatt aufruft.
Im Makro einfach Application.Caller abfragen, also
ButtonName=Application.Caller
Mfg
Marcel
Michael Velten
vielleicht hilft Dir die folgende Variante weiter. Angenommen Du hast zwei
Buttons, die sich in der Ü-Tabelle befinden, dann ruft der aktivierte Button
immer die Funktion "Aktieren" mit dem Argument "Tabelle", welches den Namen
des betätigten Steuerelements wiederspiegelt, auf.
Private Sub CommandButton1_Click()
Aktivieren CommandButton1.Caption
End Sub
Private Sub CommandButton2_Click()
Aktivieren CommandButton2.Caption
End Sub
Private Function Aktivieren(Tabelle)
Sheets(Tabelle).Activate
End Function
Mit freundlichen Grüßen
Michael
___________________________
Michael Velten
eMail: Velten...@T-Online.de
Erich Jung <Erich...@de.bosch.com> schrieb in im Newsbeitrag:
388F0B32...@de.bosch.com...
> Hallo zusammen.
>
> Ich habe folgendes Problem: In einer Arbeitsmappe sind mehrere
> Tabellenblätter.
> Ein Übersichtsblatt das ein Verzeichnis der restlichen Tabellenblätter
> enthält.
> Auf den Ü-Blatt sind mehrere Command Buttons bei deren Betätigung
> mittels VBA-Makro auf die jeweils andern Blätter verzweigt wird. Jedem
> Knopf ist ein Makro zugewiesen.
>
> Ich möchte aber nur ein Makro für diese Arbeit haben. Meine Idee ist die
> Beschriftung des Makro-Buttons auszulesen und an das Makro übergeben das
> dann das richtige Tabellenblatt aufruft.
>
Erich Jung
>
> Hallo zusammen.
>
> Ich habe folgendes Problem: In einer Arbeitsmappe sind mehrere
> Tabellenblätter.
> Ein Übersichtsblatt das ein Verzeichnis der restlichen Tabellenblätter
> enthält.
> Auf den Ü-Blatt sind mehrere Command Buttons bei deren Betätigung
> mittels VBA-Makro auf die jeweils andern Blätter verzweigt wird. Jedem
> Knopf ist ein Makro zugewiesen.
>
> Ich möchte aber nur ein Makro für diese Arbeit haben. Meine Idee ist die
> Beschriftung des Makro-Buttons auszulesen und an das Makro übergeben das
> dann das richtige Tabellenblatt aufruft.
>
> Die buttons sinf mit A, B, C, D.... und die Tabellenblätter ebenfalls
> mit A, B, C, D .... usw. beschriftet.
>
> Kann mir von den Experten jemand helfen.
Hallo
Nochmal die Frage: Wie kann ich auf von mir erstellten Schaltflächen,
die z.B. mit "A", "B" .... usw. beschriftet sind, den Text der auf der
Schaltfläche steht auslesen.
.
Dim TextSchaltfläche
TextSchaltfläche = CommandButton1.Caption
....
bringt mich zu keinem Ergebnis.
Danke für Eure Hilfe!
Marcel Heimann
wrote:
Hallo Erich!
>Nochmal die Frage: Wie kann ich auf von mir erstellten Schaltflächen,
>die z.B. mit "A", "B" .... usw. beschriftet sind, den Text der auf der
>Schaltfläche steht auslesen.
>
>.
>Dim TextSchaltfläche
>
>TextSchaltfläche = CommandButton1.Caption
>....
>
>bringt mich zu keinem Ergebnis.
Dann machst Du irgendetwas falsch.
Ich habe grade mal testweise einen Commandbutton auf ein Worksheet gesetzt,
Caption "Test" und als Code:
MsgBox CommandButton1.Caption
klicke ich den Button, erscheint eine Messagebox mit "Test".
Hast Du den Button aus der Steuerelement-Toolbox?
Mfg
Marcel
Erich Jung
>
> Dann machst Du irgendetwas falsch.
> Ich habe grade mal testweise einen Commandbutton auf ein Worksheet gesetzt,
> Caption "Test" und als Code:
> MsgBox CommandButton1.Caption
> klicke ich den Button, erscheint eine Messagebox mit "Test".
> Hast Du den Button aus der Steuerelement-Toolbox?
>
> Mfg
> Marcel
Hallo Marcel,
ich glaube ich stelle mich irgendwie zu bloed an.
Ich habe ein neues Worksheet erstellt. Aus der Format-Symbolleiste eine
Schaltfläche eingefuegt und beschriftet. Es wird hier immer von Caption
geredet, wie komme ich aber an die Eigenschaften der "Schaltflaeche"
heran. Dein Beispiel umgesetzt bringt mir folgende Fehlermeldung:
Laufzeitfehler 424; Objekt erforderlich.
Und nu?
Michael Velten
die Schaltfläche bekommst Du nicht über die "Format"-, sondern über die
"Formular"- oder "Steuerelement-Toolbox"-Symbolleiste. Wobei in den
vorherigen Beispielen von letzterem die Rede war.
Du erstellst nun eine neue Befehlsschaltfläche, klickst mit der rechten
Maustaste darauf und wählst aus dem Kontextmenü den Eintrag "Eigenschaften".
Hier kannst Du den Wert für "Caption" festlegen.
Danach doppelklickst Du auf die Schaltfläche und fügst, im erscheinenden
Code-Fenster, den gewünschten Code ein.
Ich hoffe mal daß ich Dir damit ein bißchen weiterhelfen konnte.
Mit freundlichen Grüßen
Michael
___________________________
Michael Velten
eMail: Velten...@T-Online.de
> Hallo Marcel,