522 Aufrufe
Gefragt in Tabellenkalkulation von
Guten Abend zusammen
meine Arbeitsmappe besteht aus 50 Tabellenblättern
die ich mit einer Schaltfläche ansprechen möchte .
Tabellenblatt 1 soll 49 Schaltflächen enthalten . In den 49
Tabellenblättern sollt jeweils ein " zurück Butten " stehen , mit dem ich
wieder auf Tabellenblatt 1 gelange.
jetzt meine Frage : kann man das mit einem einzigen Makro lösen
oder muss man jede Schaltfläche mit dem Makrorecorder aufzeichnen
MfG

5 Antworten

0 Punkte
Beantwortet von
Hallo, so etwa.

Beschriftung der Schaltfläche = Tabellennummer

Sub tabelle_anzeigen()
Dim ta As String
ta = ActiveSheet.Shapes(Application.Caller).DrawingObject.Characters.Text
Sheets("Tabelle" & ta).Select
End Sub
0 Punkte
Beantwortet von
hallo zusammmen
so , ich habe jetzt die 49 Schaltflächen in Blatt 1 erstellt

in den restlichen Tabellenblättern jeweils eine Schaltfläche um wieder auf Blatt 1 in die Übersicht zu kommen . Wie nun weiter
Sorry mit dem Makro komm ich nicht zurecht
MfG
0 Punkte
Beantwortet von fedjo Experte (2.2k Punkte)
Hallo,
welche Schaltflächen hast du eingefügt.
Formularsteuerelemente oder
ActiveX Steuerelemente (ist die bessere Lösung)

Gruß
fedjo
0 Punkte
Beantwortet von
HALLO i
Ich habe Formularsteuerelemente verwendet
0 Punkte
Beantwortet von fedjo Experte (2.2k Punkte)
Hallo,
verwende die ActiveX Steuerelemente!

Steuerelemente einfügen, Größe anpassen
Rechte Maustaste, Eigenschaft. Caption, Text ändern
Linke Maustaste, Doppelklick auf den Button,
Sheets einfügen die anzeigt werden soll: (Sheets("Tabelle3").Select)

Muster

Gruß
fedjo
...