Herbers Excel-Forum - das Archiv
Hyperlink mit Makro erstellen
- Hyperlink mit Makro erstellen von Rainer Schirm vom 03.11.2003 22:02:12
- AW: Hyperlink mit Makro erstellen - von Josef Ehrensberger am 03.11.2003 22:24:43
- AW: Hyperlink mit Makro erstellen - von Josef Ehrensberger am 03.11.2003 22:24:43
 |
Betrifft: Hyperlink mit Makro erstellen
von: Rainer Schirm
Geschrieben am: 03.11.2003 22:02:12
Ich habe folgendes Problem.
Ein Makro erstellt mit Hilfe einer Schleife mehrere Tabellenblätter, in welche Daten geschrieben werden.
Außerdem wird ein Tabellenblatt "Allgemein" erstellt. In diesem Tabellenblatt werden alle anderen Tabellenblätter untereinander aufgelistet.
Ich möchte nun in diesem Tabellenblatt einen Hyperlink auf die anderen Tabellenblätter einfügen. Beim Betätigen des Hyperlinks soll das entsprechende Tabellenblatt geöffnet werden.
In den einzelnen Tabellenblättern wird auch ein Hyperlink zum Tabellenblatt "Allgemein" eingefügt. Da hier ja immer auf dasselbe Tabellenblatt verwiesen wird, war es kein Problem, das in die Schleife mit einzubauen.
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Allgemein!A1", TextToDisplay:="Allgemein"
Nun meine Frage:
Kann ich nach 'SubAddress:=' einen Variablen-Namen angeben, welchem ich zuvor in der Schleife immer den Namen des Tabellenblattes, welches geöffnet werden soll, zuweise.
mfG
R. Schirm
 |
Betrifft: AW: Hyperlink mit Makro erstellen
von: Josef Ehrensberger
Geschrieben am: 03.11.2003 22:24:43
Hallo Rainer,
baue doch eine InputBox in deine Schleife ein
in der du denn Tabellenblattnamen eingibst.
z.B.:
Sub DeinMakro()
Dim strSub As String
'Beginn der Schleife
strSub = InputBox("Name des Tabellenblattes", "Name", "")
....SubAddress:= strSub
strSub=vbNullString
'Ende der Schleife
Gruß Sepp
| |