WinFuture-Forum.de: Hyperlink In Excel Vba - WinFuture-Forum.de

Zum Inhalt wechseln

Nachrichten zum Thema: Entwicklung
Seite 1 von 1

Hyperlink In Excel Vba Ich möchte per VBA einen Hyperlink in Excel einfügen


#1 Mitglied ist offline   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

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.
Das immer alle so negativ eingestellt sind macht mich krank.
0

Anzeige



#2 Mitglied ist offline   sn00b 

  • Gruppe: aktive Mitglieder
  • Beiträge: 2.242
  • Beigetreten: 07. November 05
  • Reputation: 0
  • Geschlecht:Männlich

geschrieben 31. Oktober 2006 - 10:49 

Worksheets("Tabelle1").Activate
ich 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

0

#3 Mitglied ist offline   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:

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.
0

Thema verteilen:


Seite 1 von 1

1 Besucher lesen dieses Thema
Mitglieder: 0, Gäste: 1, unsichtbare Mitglieder: 0