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

Formel für Hyperlink per VBA richtig schreiben

Forumthread: Formel für Hyperlink per VBA richtig schreiben

Formel für Hyperlink per VBA richtig schreiben
30.10.2012 06:07:32
Franz
Guten Morgen Fachleute,
ich möchte per VBA eine Formel in ein Blatt eintragen, krieg aber das letzte Drittel nicht hin:
soweit funktionierts:
Cells(1, 6).FormulaR1C1 = "=HYPERLINK(R1C11)"
auch das mit einer einfachen Anzeige krieg ich noch:
Cells(1, 6).FormulaR1C1 = "=HYPERLINK(R1C11,""zum Ordner"")"
jetzt soll aber statt "zum Ordner" variabel eine bestimmte Zellenbezeichnung rein:
Im Blatt gibt es mehrere benamte Zellen, die Namen lauten "Musikart0", "Musikart1" usw. bis "Musikart4" Was auch noch klappt ist z. B., wenn ich schreibe:
Cells(1, 6).FormulaR1C1 = "=HYPERLINK(R1C11,Musikart1)"
dann steht in der Zelle F1: =HYPERLINK($K$1;Musikart1) - richtig so:
Userbild
Nun sollte das aber variabel gestaltet sein. Dazu gibt es im Makro die Variable btMusikart. Die geht von 0 - 4. Schreib ich jetzt im Code:
Cells(1, 6).FormulaR1C1 = "=HYPERLINK(R1C11,Musikart & btMusikart)"
dann krieg ich das hier:
Userbild
Ich hab auch verschiedene andere Variationen ausprobiert, klappt aber nicht. Gibt es die Möglichkeit, im Makro den Zellennamen mit der Variablen so zu verbinden, dass die Formel richtig eingetragen wird? Ich hoffe, ich konnte ausdrücken, worum es geht. Für Eure Hilfe wär ich Euch sehr dankbar.
Danke schonmal und Grüße
Franz

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel für Hyperlink per VBA richtig schreiben
30.10.2012 07:34:25
hary
Moin Franz 
"=HYPERLINK(R1C11,Musikart" & btMusikart & ")"

gruss hary

AW: Formel für Hyperlink per VBA richtig schreiben
30.10.2012 07:50:55
Franz
Morgen Hary,
ja, jetzt wo ich's seh, wird's mir klar - es muss ja das Ganze in Anführungszeichen - vielen Dank!
Grüße
Franz

AW: geht auch so
30.10.2012 08:00:54
hary
Hallo Franz
Probier das mal. 
Dim btMusikart As Long
btMusikart = 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 6), Address:="", SubAddress:= _
"K1", TextToDisplay:="Musikart" & btMusikart

gruss hary

Anzeige
AW: geht auch so
30.10.2012 08:16:59
Franz
Hallo Hary,
nein, so geht's nicht. Jetzt wird "Musikart1" angezeigt, statt dem, was in der Zelle mit Namen "Musikart1" steht, nämlich "01Klassik".
Aber danke, das andere mit der Formel ist ja wunderbar.
Grüße
Franz

AW: geht auch so
30.10.2012 08:25:34
hary
Hallo Franz
Dachte du bekommst es angepasst. TextToDisplay= Text zum anzeigen 
Dim btMusikart As Long
btMusikart = 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 6), Address:="", SubAddress:= _
"K1", TextToDisplay:=Range("Musikart" & btMusikart).Value

gruss hary

Anzeige
AW: geht auch so
30.10.2012 09:53:29
Franz
sorry Hary, hast natürlich recht, hätt ich auch selber draufkommen können. Hatte aber ehrlich grad nicht die ZEit, mir das in Ruhe anzuschauen, da wär ich erst später draufgekommen.
Auf jeden Fall nochmal ein Dankeschön und Grüße
Franz

halt stopp! Fehler
30.10.2012 10:04:22
Franz
Hallo Hary,
ich konnt's erst jetzt ausprobieren: in K1 steht ein PFad drin. Mit....
Cells(1, 6).FormulaR1C1 = "=HYPERLINK(R1C11,Musikart" & btMusikart & ")"
... öffnet er wie gewünscht den Explorer mit dem angegebenen Ordner.
Mit Deinem neuen Code...
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 6), Address:="", SubAddress:= _
"K1", TextToDisplay:=Range("Musikart" & btMusikart).Value
springt er lediglich zur Zelle K1
Grüße
Franz

Anzeige
AW: halt stopp! Fehler
30.10.2012 10:26:35
hary
Hallo
Kann im Moment nicht testen. SubAdress ist das ziel 
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 6), Address:="", SubAddress:= _
Range("K1").value, TextToDisplay:=Range("Musikart" & btMusikart).Value

gruss hary

AW: halt stopp! Fehler
30.10.2012 10:41:33
Franz
danke für die Antwort. Aber jetzt klappt er nicht mehr der Link:
Code:
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 6), Address:="", SubAddress:= _
Range("K1").Value, TextToDisplay:=Range("Musikart" & btMusikart).Value
ergibt:
Userbild
das Kreuz wird zwar zur Hand, der TippText zeigt den richtigen Pfad, es tut sich aber nichts....?
Grüße
Franz
P.S.: aber wie gesagt, bitte keinen übermäßigen Aufwand, die andere Lösung klappt ja........
Anzeige

Forumthreads zu verwandten Themen

VBA Hyperlinks durch =HYPERLINK Funktion ersetzen
alex

Hallo zusammen,
Ich bin gerade ein wenig am herumexperimentieren mit meiner Mappe(ich will die Performance sowohl beim speichern als auch beim navigieren durch die Arbeitsmappe erhöhen).
Auf XLimits habe ich gelesen das man Hyperlinks durch die =HYPERLINK funktion ersetzn sollte da das...
20.03.2010 10:38:49
Thread-ID: 1147197
3 Beiträge
VBA: Hyperlinks dynamisch erstellen
Bernd

Hallo zusammen,
nachfolgende Darstellen meiner Tabelle zeigt die Erstellen von Hyperlinks per Verketten von Zellen.
Kundenliste EFGM2StraßePLZWohnortGoogle Maps7Emmastr. 7428213Bremenhttp://maps.google.com/maps?f=q&source=s_q&hl=de&geocode=&q=Emmastr. 74,+...
27.03.2013 14:11:55
Thread-ID: 1306195
5 Beiträge
Hyperlinks in VBA mit Leer- u. Sonderzeichen
Dani

Hallo zusammen
Ich versuche ein Inhaltsverzeichnis im Excel zu erstellen, mit Hyperlinks zu den einzelnen Tabellenblättern.
Es klappt recht gut (viel im Netz gefunden, etwas selber "verbessert"). Ein Problem kriege ich nicht gelöst: Wie bringe ich die Hyperlinks zum Funktionieren, wenn...
01.04.2014 11:04:17
Thread-ID: 1355645
4 Beiträge
VBA,Datum-Hyperlink erstellen, Sprung zu entsp. Tg
Peter

Hallo zusammen
Ich habe einen Ferienplan mit vier Datumseingaben (C6:C40, F6:F40, I6:I40, L6:L40). In Zeile 5, Bereich N5:BUS5 ist das Datum des jeweiligen Tages eingetragen (Format nur den Tag, TT).
Gesucht: Wenn ein Datum eingeben wird, soll ein Hyperlink erstellt werden (jedoch wenn...
15.04.2016 09:55:02
Thread-ID: 1488170
4 Beiträge
Anzeige
Hyperlink in VBA integrieren + Spring auf Sheet1
Chris

Hallo Forum,
ich komme leider mit einer Problemstellung nicht weiter, die für VBA-kundige wahrscheinlich ein Klacks ist.
Nachfolgendes Bild verdeutlicht mein Tabellenblatt.

Ich möchte über die dynamische Hyperlink-Funktion, welche durch Verketten mit Hilfe einer Dropdown-Liste...
06.06.2018 08:56:14
Thread-ID: 1627495
7 Beiträge
Vba und Prüfung eines Hyperlinks
Andreas

Hallo, ich such ein Makro mit dem ich einen Hyperlink prüfen kann!Beim Aufruf soll eine Inputbox sich öffnen in der ich den Link eintrage, und nach dem Bestätigen soll in der Celle A1 der Wert Wahr geschrieben werden wenn der Link sich erfolgreich öffnene läßt wenn der Link defekt ist soll Fals...
14.12.2002 01:24:43
Thread-ID: 193102
5 Beiträge
Anzeige
Hyperlink in VBA
Martin

Hallo,bei Klick auf CommandButton soll eine bestimmte Internetseite geöffnet werden. Wie lautet der VBA-Code hierzu?
Finde nichts in der OH!Gruss
20.12.2002 15:06:44
Thread-ID: 195606
7 Beiträge
Anzeige
Hyperlink in VBA // Makro Icon bennenen
Rene
Hallo,
ich habe ein Makro geschrieben und möchte dies jetzt über ein benutzerdefiniertes menüelement starten können in der oberen leiste.
und diesem benutzerdefiniertem menüelement icon möchte ich jetzt einen bestimmten namen geben, weil ben... menüelement ist nicht gerade aussagekräftig.
...
20.08.2004 14:42:04
Thread-ID: 472996
6 Beiträge
Mit VBA einem Menupunkt einen Hyperlink zuweisen
Lothar

Hallo zusammen
Ich habe mit eine Prozedur gebaut (aus Elementen, die ich im Web gefunden habe), mit welcher ich ein eigenes Menu in Word oder Excel erstellen kann. Über die einzelnen Menupunkte werden dann Makros gestartet ( .OnAction= "Makro1").
Im Excel (und Word) gibt es aber die Mög...
04.02.2005 18:05:52
Thread-ID: 561758
4 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 14:18:47
Thread-ID: 1963544
4 Beiträge
Hyperlink in vba geht nur hart kodiert
floket2
Ich habe mit dem Makro-Rekorder ein Makro erstellt, das mir eine interne Webseite einließt.
Übernehme ich die Adresse der Webseite hart kodiert klappt es prima.

ActiveWorkbook.Queries.Add Name:="Table 0", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Source...
05.03.2024 10:51:22
Thread-ID: 1968202
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Hyperlinks in Excel VBA richtig einfügen

Schritt-für-Schritt-Anleitung

Um einen Hyperlink in Excel per VBA einzufügen, kannst du folgende Schritte befolgen:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeineArbeitsmappe)" und wähle Einfügen > Modul.

  3. Schreibe den VBA-Code:

    Dim btMusikart As Long
btMusikart = 1 ' Beispielwert
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 6), Address:="", SubAddress:= _
Range("K1").Value, TextToDisplay:=Range("Musikart" & btMusikart).Value

    In diesem Beispiel wird ein Hyperlink erstellt, der in der Zelle F1 angezeigt wird. Der Text, der angezeigt wird, basiert auf dem Wert der benannten Zelle "Musikart1".

  4. Führe das Makro aus:

    • Drücke F5, um das Makro auszuführen.

Häufige Fehler und Lösungen

  • Fehler: Hyperlink springt zur Zelle statt zu einem Ordner
    Lösung: Stelle sicher, dass der SubAddress korrekt auf den Pfad zeigt. Verwende dazu Range("K1").Value, um den Pfad zu erhalten.

  • Fehler: Falscher Text wird angezeigt
    Lösung: Überprüfe, dass der TextToDisplay auf den richtigen Zellennamen verweist. Verwende Range("Musikart" & btMusikart).Value, um den korrekten Wert anzuzeigen.

Alternative Methoden

Eine alternative Methode, um Hyperlinks in Excel VBA zu erstellen, ist die Verwendung der FormulaR1C1-Eigenschaft:

Cells(1, 6).FormulaR1C1 = "=HYPERLINK(R1C11, ""Musikart"" & btMusikart)"

In diesem Beispiel wird die Variable btMusikart in die HYPERLINK-Formel eingebaut, um dynamisch den Text anzuzeigen.

Praktische Beispiele

  1. Einfacher Hyperlink:

    ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 6), Address:="http://www.example.com", TextToDisplay:="Beispielseite"

  2. Hyperlink mit benanntem Bereich:

    ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 6), Address:="", SubAddress:="Musikart1", TextToDisplay:="Musikart"

Tipps für Profis

  • Nutze die hyperlinks.add-Methode, um mehrere Hyperlinks effizient zu erstellen.
  • Stelle sicher, dass die benannten Bereiche oder Zellen existieren, um Laufzeitfehler zu vermeiden.
  • Verwende die Funktion TextToDisplay, um den angezeigten Text anpassbar zu gestalten. Dies ist besonders nützlich, wenn du Hyperlinks in vielen Zellen einfügen möchtest.

FAQ: Häufige Fragen

1. Wie kann ich einen Hyperlink in einer bestimmten Zelle hinzufügen?
Nutze die Hyperlinks.Add-Methode und gib die gewünschte Zelle als Anchor an.

2. Kann ich Hyperlinks auch in einer Schleife erstellen?
Ja, du kannst eine Schleife verwenden, um Hyperlinks in mehreren Zellen zu erstellen, indem du die Hyperlinks.Add-Methode entsprechend anpasst.

3. Was mache ich, wenn der Link nicht funktioniert?
Überprüfe den SubAddress und Address, um sicherzustellen, dass sie korrekt sind und auf existierende Pfade oder Webseiten verweisen.

Beliebteste Forumthreads (12 Monate)

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