Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1488to1492
1488to1492
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Hyperlink einfügen

Forumthread: Hyperlink einfügen

Hyperlink einfügen
20.04.2016 13:10:26
Excelbastler
Hallo zusammen,
ich möchte gerne ein Makro zum einfügen eines Dateipfades (in Form eines Hyperlinks) schreiben. Mein aktuelles Problem ist das schneiden des Strings.
Wie kann ich den hinteren Teil eines Strings bis zu einem gewissen Zeichen ( / ) wegschneiden lassen?
Bsp.:
Ist C:\Test\Test.xls
Soll C:\Test\
Oder gibt es eine Möglichkeit nur den Pfad auswählen zu lassen, ohne Datei? Dann würde das bearbeiten des Strings wegfallen.
Aktuell sieht das ganze so aus: 
Sub HyperHyper()
ChDir "\"
ChDrive "c:\"
DATEINAME = Application.GetOpenFilename
If DATEINAME = False Then Exit Sub
MsgBox "Dateiname:" & vbNewLine & DATEINAME
geschnitten = VBA.Left(Text, VBA.InStr(1, DATEINAME, "*") - 1)
MsgBox "Dateiname:" & vbNewLine & geschnitten
End Sub
Ich hoffe ihr könnt mir helfen..
Danke im Voraus!
Gruß,
Flo

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink einfügen
20.04.2016 13:37:53
baschti007
Hey Versucht mal so
Sub Ordner()
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen Vorlage", &H1000, 17)
On Error Resume Next
Pfad = BrowseDir.items().Item().Path & "\"
If Pfad = "" Then Exit Sub
MsgBox Pfad
End Sub

Anzeige
AW: Hyperlink einfügen
20.04.2016 13:43:46
Rudi
Hallo, 
Sub aaaa()
Dim p As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "c:\"
If .Show Then
p = .SelectedItems(1)
End If
End With
If Len(p) Then MsgBox p
End Sub

Gruß
Rudi

AW: Hyperlink einfügen
20.04.2016 15:01:05
Excelbastler
Danke euch zwei für die schnellen Antworten!
Funktioniert super!
Hier mein fertiges Makro:
Sub Hyperlink_einfüge()
Dim p As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ""
If .Show Then
Pfad = .SelectedItems(1)
End If
End With
If Len(p) Then _
ActiveSheet.Hyperlinks.Add anchor:=ActiveSheet.Range("B5"), _
Address:=Pfad
End Sub
Gruß,
Flo
Anzeige

Forumthreads zu verwandten Themen

Dynamischen Hyperlink im Web aufrufen
Heidi
Hallo Forum,

habe lange selbst geknobelt, komme aber nicht mehr weiter.

Zum Hintergrund:
Ich surfe per VBA-Schleife verschiedene Webseiten an und kopiere Teile des Html-Quellcodes raus, um mit dessen Inhalt Auswertungen in Excel zu machen. Das funktioniert auch soweit alles,...
03.01.2004 20:09:56
Thread-ID: 358306
2 Beiträge
Durch Makro Link von Datei in eine Zelle einfügen.
Datei

Hallo,
es geht um folgendes.
Ich möchte ein VBA Code mit den ich per "öffnen" ein hyperlink in eine Zelle hinzugefügt bekomme.
Dabei soll es so funktionieren.
Ich klick auf Makro --> "Öffnen/Einfügen Fenster geht auf --> ich wähle die Datei aus --> Link von dieser Datei...
24.10.2019 18:02:49
Thread-ID: 1719532
7 Beiträge
Hyperlink auf zu Beginn ausgewählte Datei
leila

Guten Morgen,
folgendes führt mein Makro aus:
frägt zuerst welche Datei ausgewählt werden soll und somit übertragen wird.
anschließend soll ein Hyperlink zu dieser Datei gesetzt werden.
Bisher habe ich es nur so hinbekommen, dass am Ende nochmals gefragt wird welcher Hyperlink z...
18.08.2014 11:07:59
Thread-ID: 1376989
2 Beiträge
Anzeige
Automatisch Mails mit Anhang verschicken
Edis
Hallo zusammen. Ich will folgendes machen:
Ich habe eine Excel-Datei. Ich habe 2 Tabellenblätter. Ein Tabellenblatt heißt "Tabelle1" und die andere heißt "Firmen“.
Ich möchte, wenn ich in Tabelle1 in Spalte u ein Datum eintrage, dass in Spalte R nachgeschaut wird, welcher Wert dort steht und...
26.02.2023 23:11:06
Thread-ID: 1921851
3 Beiträge
In VBA Userform einen Hyperlink einfügen
T.Albers
Hallo zusammen.

Ich habe folgendes Problem: Ich möchte, dass ein Text in einer Listbox zu einem Hyperlink umgewandelt wird, der beim anklicken eine Datei auf dem Server öffnet.

Was bisher geschah: Ich habe eine Intelligente Tabelle im Excel angelegt und will diese über eine Userfor...
05.02.2024 15:18:47
Thread-ID: 1963544
3 Beiträge
Anzeige
Webadresse automatisch in Link Adresse einfügen
Heinz

Schönen Sonntag, im Forum
Ich sollte einige hunderte Webeadressen in der Spalte A als Hyperlink einfügen.
Nur sollte der Wert in Spalte A sichtbar sein, nicht der Hyperlink.
Habe ein Beispiel hochgeladen.
Hätte dazu jemand eine Lösung, kann auch in VBA sein.
Danke, Heinz
...
08.07.2018 18:24:27
Thread-ID: 1632775
6 Beiträge
Link mehrere Tabellenblätter
Kisska
Hallo zusammen,
Ich möchte in die Zelle A2 einen Hyperlink zum Tabellenblatt "Übersicht" setzen und zwar für gleichzeitig mehrere ausgewählten Tabellenblätter.
Wenn ich den Link bei einem Tabellenblatt erzeuge, dann mehrere Tabellenblätter auswähle und dann die Zelle mit dem Link einkopiere,...
12.09.2022 13:30:40
Thread-ID: 1898306
6 Beiträge
VBA / Zeile verschieben mit Hyperlink
Steve
Hallo zusammen,
ich habe ein kleines Problem, welches ich mit meinen VBA Kenntnissen noch nicht selbst lösen kann:
Ich möchte eine komplette Zeile eine Zeile nach oben verschieben (Zeile darüber befindet sich danach unter der verschobenen Zeile) mit folgendem Makro:
Private Sub Hoch_Cli...
05.08.2022 19:13:09
Thread-ID: 1893894
4 Beiträge
Anzeige
VBA / Zeile verschieben mit Hyperlink
Steve
Hallo zusammen,
ich versuche es einfach nochmal, evtl. ist meine Anfrage bereits zu weit runter gerutscht (?)..
ich habe ein kleines Problem, welches ich mit meinen VBA Kenntnissen noch nicht selbst lösen kann:
Ich möchte eine komplette Zeile einer Tabelle eine Zeile nach oben verschiebe...
08.08.2022 17:36:11
Thread-ID: 1894093
4 Beiträge
Per VBA komplettes Tabellenblatt mit Versatz kopieren
martinexcel1996
Servus zusammen,

ich möchte gern per VBA ein Tabellenblatt aus einer anderen Datei einfügen. Das hab ich dank Code aus dem Archiv soweit hinbekommen (siehe unten)
Allerdings besteht noch das Problem, dass das kopierte Tabellenblatt einem automatischen Export aus einem anderen Programm e...
06.03.2024 15:35:06
Thread-ID: 1968415
4 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum