Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
868to872
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
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink mit Abfrage erstellen

Hyperlink mit Abfrage erstellen
16.05.2007 13:59:26
KooK
Hallo,
vielen Dank für Eure Hilfe schon mal vorneweg :-)
Ich möchte mit einem Makro einen Hyperlink auf Dateiordner erstellen. Dieser Link hat immer die gleiche Adresse, mit Ausnahme des letzten Ordners. Dieser letzte Ordner ändert sich sehr häufig. Nun möchte ich ein Makro schreiben, das mir ein Popup aufruft indem ich nur noch den Namen des letzten Ordners eingebe.
Der Name des Links kann immer gleich bleiben.
z.B. Verzeichnis \\server\verzeichnis\ordner1, ordner2, ordner3,....
Hier brauche ich dem Makro nur mitteilen "ordner2" und der Link steht in der Zeile in der ich beim Aufruf war.
Ich hoffe ich habe mich verständlich ausgedrückt und Ihr Cracks könnt mir helfen.
Gruß KooK

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink mit Abfrage erstellen
19.05.2007 09:55:00
Oberschlumpf
Hallo
Ist diese Lösung zufriedenstellend?
Userbild
die ersten 4 HLs sind fest vergeben mit "\\server\verzeichnis\ordner1" bis "\\server\verzeichnis\ordner4"
Schreibe in das SelectChange-Ereignis des Blattes diesen Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lstrFolder As String, lbMsg As Byte
If Target.Address = "$B$8" Then
If Target.Hyperlinks.Count = 0 Then
lstrFolder = InputBox("Geben Sie bitte einen Ordner mit gültigem Pfad ein:", _
"Pfadeingabe", "\\server\verzeichnis\")
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:=lstrFolder, _
TextToDisplay:=lstrFolder
Else
lbMsg = MsgBox("Wollen Sie den bestehenden Hyperlink verändern?",  _
vbQuestion + vbYesNo, "Pfadeingabe")
If lbMsg = vbYes Then
lstrFolder = InputBox("Geben Sie bitte einen Ordner mit gültigem  _
Pfad ein:", "Pfadeingabe", "\\server\verzeichnis\")
If lstrFolder = "" Then
Exit Sub
Else
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:= _
lstrFolder, _
TextToDisplay:=lstrFolder
End If
End If
End If
End If
End Sub


Wird die Zelle B8 angeklickt (Taget.Address musst du natürlich anpassen), wird, wenn kein HL vorhanden, sofort die Frage nach einem Ordner gestellt. Wenn HL vorhanden, wird zuerst gefragt, ob der HL geändert werden soll.
Nachteil, den ich nicht abfangen konnte:
Besteht schon ein HL auf einen Ordner, wird dieser auf jeden Fall geöffnet, und erst dann erscheint die Frage, ob der HL geändert werden soll.
Aber vllt hast du ja nun eine Idee, wie man programmieren muss, damit zuerst die Frage erscheint, und erst bei neuer HL-Vergabe, oder bei Bestätigung des alten HL wird dieser geöffnet.
Konnte ich helfen?
Ciao
Thorsten

Anzeige

51 Forumthreads zu ähnlichen Themen

Problem mit Hyperlink VBA
Florian

Hallo zusammen!
Bin verzweifelt auf Suche nach einer Lösung: per Makro erzeuge ich eine Datei mit Hyperlinks auf andere Dateien / Ordner im Netzwerk. Das ganze ist nun sehr mysteriös:
wenn ich die Datei (neu) erzeuge ohne sie (per Code) zu speichern (Code "Datei.Close savechanges := tr...
01.03.2010 19:42:00
Thread-ID: 1142503
3 Beiträge
Anzeige
Mit Formel erstellten Hyperlink mit VBA auslesen
Jörg

Hallo zusammen,
ich erstelle mir per Tabellen-Formel einen Hyperlink. Dieser funktioniert im Excel (V 2016) auch perfekt! Basis ist u.a. ein Wert aus einer anderen Zelle:
=WENN(ODER(Übersicht!$D15="ETS";Übersicht!$D15="VTS");WENN(A15="";""; HYPERLINK("\\DNS-Pfad\Transportschaeden_Exter...
27.07.2017 14:19:42
Thread-ID: 1571088
6 Beiträge
Hyperlink mit Doppelklick erstellen
Nils

Hallo zusammen,
ich bin ein VBA-Neuling und habe folgendes Problem.
Ich habe ein Makro, welches mir ein neues Tabellenblatt erstellt. Dabei wird dem neuen Tabellenblatt automatisiert der Name der gerade aktiven Zelle zugewiesen. Das funktioniert soweit ganz ordentlich.
Nun möchte ic...
10.01.2019 17:45:55
Thread-ID: 1667289
3 Beiträge
Anzeige
Hyperlink mit Makro erstellen
Rainer Schirm
Ich habe folgendes Problem.
Ein Makro erstellt mit Hilfe einer Schleife mehrere Tabellenblätter, in welche Daten geschrieben werden.
Außerdem wird ein Tabellenblatt "Allgemein" erstellt. In diesem Tabellenblatt werden alle anderen Tabellenblätter untereinander aufgelistet.
Ich möchte nun in...
03.11.2003 22:02:12
Thread-ID: 332558
2 Beiträge
Hyperlinks mit festem Pfad erstellen?
Selma

Hallo Leute,
mit diesem Makro erstelle ich zur Zeit für dan markierten Zellenbereich die Hyperlinks.
In markierten Zellenbereich stehen nur die Dateinamen (ohne Pfad) z.B. "Anlage 205 vom 24.05.2007.doc"
Alle Dateien liegen im Verzeichnis "d:\schriftverkehr 2007\Anlagen\"
Beim...
03.06.2007 21:42:00
Thread-ID: 875189
3 Beiträge
Probleme mit Hyperlink doch nur mit VBA Oder?
Thomas

Guten Morgen liebe Exceler,
habe folgendes Problem:
Ich habe mir eine Datei mit Miniaturbilder gebastelt mit Grundriss, Außenansicht, Stadtplan. Alle sind mit dem Orginalbild (per Hyperlink) verknüpft, so das sich dann das Orginalbild öffnet. Alle Bilder sind lokal abgelegt.
Jetzt...
15.02.2008 08:34:00
Thread-ID: 951735
4 Beiträge
Inhaltsverzeichniss automatisch erstellen mit Link
Gerhard

Hallo
Habe mit Hilfe dieses Forums mir ein Inhaltsverzeichnis meiner vorhanden Sheets erstellt, das wie folgt aussieht:
Sub Übersicht() Dim wks As Worksheet Dim i As Integer Dim wb As Workbook Dim ws As Worksheet Set wb = ActiveWorkbook Set wks = wb.Worksheets("01_Übersicht") Workshee...
15.05.2008 06:06:00
Thread-ID: 977636
6 Beiträge
Hyperlinks zu Tabellenblättern mit VBA erstellen
Dete

Hallo zusammen,
ich habe schon länger gegoogelt aber leider noch keine wirklich passende Lösung gefunden, daher hoffe ich hier auf Hilfe.
Folgende, eigentlich einfache Problemstellung:
Ich habe eine Excel-Tabelle, die aus einem Übersichtsblatt ("Übersicht"), in dem in der Spalte B i...
24.10.2019 08:45:46
Thread-ID: 1719414
10 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
5
2
5
1
2
3
5
9
3
2
2
1
9
4
1
2
3
4
4
3
5
2
3