Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlinks per Makro zuweisen

Forumthread: Hyperlinks per Makro zuweisen

Hyperlinks per Makro zuweisen
11.06.2007 17:37:00
Sonnenpeter
Hallo zusammen,
ich versuche mich gerade Hyperlinks per Makro zuzuweisen.
Der Makrorecorder gibt mir folgendes vor:

Sub Makro11()
Range("B12").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'Mitarbeiter 1'!B12", TextToDisplay:="Mitarbeiter 1"
End Sub


Ein versuch von mir:
Adresse = "B" & Zeile 'variable von Zeile 12 bis Ende der Datenliste
Set wks2 = Sheets("Daten")
With wks2
.Hyperlinks.Add.Range (Adresse), Anchor:=Selection, Address:="", SubAddress:= _
"'Mitarbeiter 1'!B12", TextToDisplay:="Mitarbeiter 1"
End With
Ach ja, wie immer wenn ich was neues machen will :-( Versuch Irrtum, Versuch Irrtum.......
Gruß Sonnenpeter

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlinks per Makro zuweisen
11.06.2007 18:05:15
Tino
Hallo,
versuche mal

Sub Oeffne_Webseite()
Dim Pfad As String
Dim wshshell As Object
Dim appIE As Object
Dim script As String
Pfad = "http://webseite/"
Set appIE = CreateObject("InternetExplorer.application")
appIE.Visible = True
appIE.navigate Pfad
End Sub


Gruss
Tino

Anzeige
sorry Dim script As String brauchst du nicht
11.06.2007 18:07:28
Tino 

Sub Oeffne_Webseite()
Dim Pfad As String
Dim wshshell As Object
Dim appIE As Object
Pfad = "http://webseite/"
Set appIE = CreateObject("InternetExplorer.application")
appIE.Visible = True
appIE.navigate Pfad
End Sub


Anzeige
AW: Hyperlinks per Makro zuweisen
11.06.2007 18:08:29
Sonnenpeter
Hallo Tino,
der Hyperlink soll auf eine Tabelle in der gleichen Arbeitsmappe verweisen bzw. zugreifen.
Gruß Peter

AW: Hyperlinks per Makro zuweisen
11.06.2007 18:20:58
Tino
Hallo,
meine schuld
versuch mal "zeile" muss noch zugewiesen werden in schleife oder so
Adresse = "B" & zeile 'variable von Zeile 12 bis Ende der Datenliste
Set wks2 = Sheets(2)
With wks2
.Hyperlinks.Add Anchor:=Adresse, Address:="", SubAddress:= _
"'Mitarbeiter 1'!B12", TextToDisplay:="Mitarbeiter 1"
End With

Anzeige
AW: Hyperlinks per Makro zuweisen
11.06.2007 18:37:49
Sonnenpeter
Hallo Tino,
danke für Deine Hilfe
.Hyperlinks.Add Anchor:=Sheets("Daten").Range(Adresse), Address:="", SubAddress:= _
"'" & Blattname & "'!B12"
Habe das Probl. so lössen können.
Gruß Peter
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige