Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink als Button

Hyperlink als Button
14.07.2008 17:40:00
Gerd
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

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink als Button
14.07.2008 17:44:11
mumpel
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)size>
Gruß, René

Nachtrag:
14.07.2008 17:47:31
mumpel
Schaltfläche Zeichnen, doppelt anklicken und das Grundgerüst durch zuvor genanntes Makro ersetzen. Zum Schluß den bearbeitungsmodus beenden.

Anzeige
AW: Nachtrag:
14.07.2008 17:57:00
Gerd
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

AW: Nachtrag:
14.07.2008 17:59:06
mumpel
ActiveSheet.Previous.Activate

AW: Hyperlink als Button
14.07.2008 17:53:15
Klaus
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.

Anzeige
AW: Hyperlink als Button
14.07.2008 17:57:00
mumpel
@ Klaus.
Und was soll dieser umständliche Unsinn? gefällt Dir mein Code nicht?

AW: Hyperlink als Button
14.07.2008 19:05:41
Klaus
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.

Anzeige
AW: Hyperlink als Button
15.07.2008 04:20:28
mumpel
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.

36 Forumthreads zu ähnlichen Themen

auto. gen. Hyperlinks als Symbol darstellen
bytzmaster

Hallo und schönen futen Abend,
Ich fasse mich ma kurz und leg gleich los:
Ich habe eine Tabelle, in der Tabelle werden ständig automatisch Daten eingelesen.
Diese Daten sind Ordnerstrukturen, die Dateien die sich in den Ordnern befinden und komplette Pfade zu den Dateien die sich da...
11.07.2009 13:05:45
Thread-ID: 1087794
4 Beiträge
Anzeige
Zellinhalt mit Makro als Wert einfügen
Patricia

Hallo
ich möchte gerne mit unten stehenden Makro, den Inhalt einer Zelle bzw. mehreren Zellen als nur Wert automatisch einfügen. Habe ich sonst immer mit strg c-inhalte einfügen-werte gemacht. Das ist aber bei manchen Kalk. wegen vieler verschiedener Werte, sehr aufwendig. Mein problem ist...
27.10.2009 20:38:51
Thread-ID: 1112362
4 Beiträge
wenn dann neue zeile einfügen --> als Makro
Jan

Hallo Jungs und Mädels,
ich, als VBA Neuling, habe ein Problem mit einer ExcelTabelle, bei dem ich alleine nicht mehr weiterkomme.
Angenommen, in A2 steht =Summe(D1:D35), in B2 steht irgendwas, und wenn in C2 eine "2" steht, soll eine neue Zeile eingfügt werden. [Fall1]
"...
02.05.2011 14:18:11
Thread-ID: 1212646
6 Beiträge
Anzeige
Neues Tabellenblatt/Button einfügen
Sascha

Hallo zusammen.
Ich brauche mal eure Hilfe bezüglich VBA.
Ich habe auf einem Tabellenblatt 2 cmdButtons.
1. Neues Bauteil, 2. Neues Tabellenblatt..
Über den 2. öffnet sich eine Userform, in der ich den Namen für das neue Blatt vergeben kann. Nun wird das Erste, bzw das Tabellenb...
16.01.2015 11:03:56
Thread-ID: 1403183
2 Beiträge
Makro automatisch ausführen ohne ein Button
TroFa

Hallo,
Ich habe ein Problem.
Über ein CommandButton funktioniert das folgende Makro einwandfrei. Private Sub CommandButton3_Click() If Range("B184").Value = 500 Then Exit Sub Else Range("B13").Select Range("B184").GoalSeek Goal:=500, ChangingCell:=Range("B13") End If End Sub
Nun...
08.10.2015 12:19:42
Thread-ID: 1451368
2 Beiträge
CommandButton: Tabellenblätter einfügen
Joline

Hallo ihr Lieben,
mir stellt sich folgende Frage, ich möchte mit Hilfe eines CommandButtons eine Arbeitsmappe auslesen, die Arbeitsmappe besteht aus mehreren Tabellenblättern, die auch wieder auf verschiedenen Tabellenblättern eingefügt werden sollen.
Ich habe eine Datei mit 4 auszule...
24.08.2017 14:54:46
Thread-ID: 1576372
4 Beiträge
Bildeinfügen über Schaltfläche VBA
Simon

Hallo zusammen
Ich habe ein Probelm mit Bilder einfügen.
Ich möchte folgendes:
1. Auf schaltfläche klicken = Explorer öffnen
2. Bild als Jpg, Png usw einfügen
3. Schliessen
.Nun muss das ganze wieder gelöscht werden können
.Es muss in einer Schaltfläche eingefügt wer...
16.01.2018 08:40:53
Thread-ID: 1602465
6 Beiträge
VBA: Button auf anderem Sheet als das Makro
D. Junker
Guten Morgen,
Ich kriegs einfach nicht hin, mit einem Button auf einem Sheet ein Makro eines anderen Sheet abzuspielen.
Bsp.
Sheet 1 enthält einen CommandButton1
In Sheet 2 habe ich folgendes Makro:
Sub Makro1() Range("E11").Select Selection.Copy Selection.End(xlDown).Select Se...
08.07.2003 07:50:14
Thread-ID: 278130
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
3
5
4
1
1
3
5
2
3
4
8
16
18
9
3
2
1
2
1
2
3
8
1