Thema: Hyperlink als Button

Hallo,
ich habe folgendes Problem: Ich habe einen Fragebogen erstellt, der sich über mehrere Tabellenblätter erstreckt. Nun möchte ich am Ende jeden Tabellenblatts einen Button derart anfügen, dass man durch Anklicken des Buttons auf das nächste Tabellenbltt gelangt.
Ich habe das zwar schon mit einem Hyperlink hinbekommen, das sieht aber noch nicht optimal aus (kein 3D-Effekt). Ich würde es gerne mit dem Steuerelement Befehlsschaltfläche realisieren, habe aber keine Ahnung, wie man das macht (da ich noch nie etwas mit VBA gemacht habe).
Kann mir jemand helfen?
Gerd

Hallo!
Mit dem folgenden Code gelangst Du zum nächsten Blatt.

Private Sub commandbutton1_click()
ActiveSheet.Next.Activate
End Sub

Code eingefügt mit VBA in HTML 1.2 ( Hilfe zum Programm)
Gruß, René

Schaltfläche Zeichnen, doppelt anklicken und das Grundgerüst durch zuvor genanntes Makro ersetzen. Zum Schluß den bearbeitungsmodus beenden.

Vielen Dank René!
Es hat geklappt mit dem Code. Eine Frage habe ich noch: Was muss ich anstelle von "next" eingeben, wenn ich auf die vorhergehende Tabelle gelangen will.
Gruß, Gerhard

ActiveSheet.Previous.Activate

Hallo Gerd,
rechtsclick in die Tool-Leiste, "Visual Basic" aktivieren.
Auf "Steuerelement-Toolbox" clicken (gekreutzter Hammer+Schraubendreher)
Den Button oder genauer die Befehlsschaltflache anwählen, Cursor wird ein kreuz
Den Button mit dem Kreuz per ziehen in der Größe an dem Ort erzeugen wo du ihn haben willst.
Der "Entwurfsmodus" sollte sich von selbst aktiviert haben. Das ist das Geodreieck-Lineal-Stift Icon. Das ist gut, im Entwurfsmodus bleiben.
Rechtsclick auf den Button und "Eigenschaften". Unter Caption schreibst du "nächste Seite" oder sowas.
Gewöhn dir gleich sorgfältige Namensgebung an und bennenne den Button im Feld (Name) zB mit "CmB_SeiteWeiter". Sonst verlierst du später den überblick.
Immer noch in den Buttoneigenschaften stellst du "TakeFocusOnClick" auf "False".
Nun click in der VBA-Toolleiste auf "Aufzeichnen" (der rote Punkt), benenne das Makro zB. mit "MakroNextTabelle" und mache genau das was der Button machen soll manuell (also Tabelle 2 anwählen) und drücke "Aufzeichnung beenden" (das Viereck, wie beim Kasettenrekorder).
Stelle den Entwurfsmodus wieder an (s.o.).
Doppelclick links auf den Button.
schreibe zwischen Private Sub CmB_SeiteWeiter_Click() und End Sub den Namen deines Makros, also "MakroNextTabelle". Das ganze sollte so aussehen:

Private Sub CmB_SeiteWeiter_Click()
MakroSeiteWeiter
End Sub

Beende die VBA-Ebene, beende den Entwurfsmodus und probier aus, ob dein Button funktioniert!
Grüße,
Klaus M.vdT.

@ Klaus.
Und was soll dieser umständliche Unsinn? gefällt Dir mein Code nicht?

Hallo Rene,
kein Angriff, ich habe das getippt bevor ich deine und Gerds antworten gesehen habe. Ich dachte mir blos ich geh mal auf das (da ich noch nie etwas mit VBA gemacht habe) von Gerd ein und mach eine Schritt-für-Schritt Anleitung ...
als ich an den Anfängen von VBA stand, hätte ich mit einer dahingeworfenen Codezeile nichts anfangen können. Aber Gerd wurde geholfen, er hat dein Vorschlag verstanden und sich bedankt, also ist doch alles gut.
Grüße,
Klaus M.vdT.

Aber doch bitte nicht den Makrorecorder empfehlen. Der "Select" und "Activate" zu viel, was unsinnig ist. Das sollte man eine Anfänger von Anfang an beibringen. Lieber die Codezeile schreiben und eine Erklärung dazu.