Hilfe
Neues Thema
Antworten
Hallo Leuz,
ich will mit VBA einen Hyperlink in eine Excel Tabelle einfügen.
In der Hilfe von Excel steht nur ein beispiel drin wie man mit einem Hyperlink eine e-mail auf die MS Seite schreiben kann.
Ich möchte mit einem Klick auf dem Hyperlink allerdings auf ein Lokales Tabellenblatt verweisen z.B. von Tabelle1 nach Tabelle4
Ich danke schon mal im vorraus.
Seite 1 von 1
Hyperlink In Excel Vba Ich möchte per VBA einen Hyperlink in Excel einfügen
#1
datalohr 
- Gruppe: aktive Mitglieder
- Beiträge: 50
- Beigetreten: 26. Oktober 06
- Reputation: 0
- Geschlecht:Männlich
- Wohnort:Trutzhain
- Interessen:Ich Programmier gerne und viel in QBASIC, Visual Basic, HTML, VB- und JavaScript, ASPX.Net, VBA (Excel, Word) und Batch.<br /><br />Ich bin in einem Verein tätig, der LAN-Partys organisiert.<br /><br />Ich spiele gerne Call of Duty 2, Silent Hunter 3, Age of Empires 3
geschrieben 31. Oktober 2006 - 10:12
Das immer alle so negativ eingestellt sind macht mich krank.
Nach oben
#2
sn00b
- Gruppe: aktive Mitglieder
- Beiträge: 2.235
- Beigetreten: 07. November 05
- Reputation: 0
- Geschlecht:Männlich
geschrieben 31. Oktober 2006 - 10:49
Worksheets("Tabelle1").Activateich denke mal das das das ist was du suchst!
anstelle von .Activate kann auch .Select verwendet werden!
Dieser Beitrag wurde von Master.Max bearbeitet: 31. Oktober 2006 - 11:23
#3
datalohr
- Gruppe: aktive Mitglieder
- Beiträge: 50
- Beigetreten: 26. Oktober 06
- Reputation: 0
- Geschlecht:Männlich
- Wohnort:Trutzhain
- Interessen:Ich Programmier gerne und viel in QBASIC, Visual Basic, HTML, VB- und JavaScript, ASPX.Net, VBA (Excel, Word) und Batch.<br /><br />Ich bin in einem Verein tätig, der LAN-Partys organisiert.<br /><br />Ich spiele gerne Call of Duty 2, Silent Hunter 3, Age of Empires 3
geschrieben 31. Oktober 2006 - 13:26
Vielen Dank für deinen Denkanstoss
ich habs so gelöst:
ich habs so gelöst:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TAdress4 As Integer
TAdress4 = Mid(Target.Address, 4)
If Left(Target.Address, 2) = "$B" Then
If TAdress4 <= Worksheets.Count And TAdress4 > 1 Then Sheets(Val(TAdress4)).Select
End If
End Sub
Das immer alle so negativ eingestellt sind macht mich krank.
Thema verteilen:
Seite 1 von 1
