Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1584to1588
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
1584to1588
1584to1588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verlinkung durch VBA

Verlinkung durch VBA
18.10.2017 11:57:38
Martina
Hallo Excelspezis,
ich stehe vor einer kleinen Mauer und komme nicht weiter.
Ich möchte gerne mit einem Klickbutton in meiner Userform eine Verlinkung einfügen.
Also wenn ich den Button klicke, soll das Fenster öffnen, welches sich unter
Eifügen, Link einfügen öffnet.
Bin für jeden Ansatz dankbar.
LG
Martina

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verlinkung durch VBA
18.10.2017 12:10:19
Sandra
Hallo Martina,
versuchs mal hiermit, dem gewünschten Button mit folgendem Code versehen:
Public Sub hyperlinköffnen()
Application.Dialogs(xlDialogInsertHyperlink).Show
End Sub
Liebe Grüße Sandra
AW: Verlinkung durch VBA
18.10.2017 12:39:31
Martina
Vielen Dank euch beiden. Klappt wunderbar.
Liebe Grüße und eine schöne Restwoche .
Gerne, wünsche ich Dir auch...(owT)
18.10.2017 12:44:59
Sandra
.
AW: Verlinkung durch VBA
18.10.2017 12:11:24
Bernd
Hi,
im Netz gefunden, eventuell auch eine Lösung:
Sub Hyperlink()
Dim Angebot
'Hyperlink für Angebot generieren
MsgBox "Verzeichnis," & Chr(13) & _
"bitte im folgenden Fenster auswählen, damit es als Hyperlink eingefügt wird.",  _
vbInformation, "Hinweis"
Angebot = Application.GetOpenFilename
If Angebot  False Then
Sheets("Tabelle1").Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Angebot, _
SubAddress:="", TextToDisplay:="Link zur Datei"
End If
End Sub
MfG Bernd
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige