Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Hyperlink per Makro einfügen - mit Bsp-Datei

Hyperlink per Makro einfügen - mit Bsp-Datei
Julia
Hallo,
anbei die Beispielxls:
https://www.herber.de/bbs/user/75501.xls
So wie ihr die Tabelle sieht bekomm ich das xls.
In Spalte B (URL) steht ein Schlüssel.
Wie kann ich per Makro eine feste URL davorsetzten und die Spalte als Hyperlink verwenden.
Die feste URL lautet: http://www.dieurld.com/obcsd/
Wenn jetzt in Spalte B z.B. ba-12 steht soll am Ende folgender Hyperlink generiert werden:
http://www.dieurld.com/obcsd/ba-12
In der Spalte B soll aber weiterhin ba-12 stehen.
Jemand eine Idee?
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Hyperlink per Makro einfügen - mit Bsp-Datei
29.06.2011 09:24:28
Reinhard
Hallo Julia,

Option Explicit
Sub Makro1()
Dim Zei As Long, Von As Long
Const Pfad As String = "http://www.dieurld.com/obcsd/"
With Worksheets("Tabelle1")
Von = Application.Match("URL", .Columns(2), 0) + 1
For Zei = Von To .Cells(Rows.Count, 2).End(xlUp).Row
.Hyperlinks.Add Anchor:=.Cells(Zei, 2), Address:= _
Pfad & .Cells(Zei, 2).Value, TextToDisplay:=.Cells(Zei, 2).Value
Next Zei
End With
End Sub

Gruß
Reinhard
Anzeige
AW: Hyperlink per Makro einfügen - mit Bsp-Datei
29.06.2011 09:36:28
Julia
Funktioniert perfekt.
Wie muss ich das Makro abändern dass er nicht auf das Sheet Tabelle 1 geht. Sondern immer nur das aktive Sheet nimmt?
AW: Hyperlink per Makro einfügen - mit Bsp-Datei
29.06.2011 09:37:48
Rudi
Hallo,
anstatt
With Worksheets("Tabelle1")
With ActiveSheet
Gruß
Rudi
Vielen Dank!!!
29.06.2011 09:55:51
Julia
Vielen Dank!!!
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Hyperlinks in Excel per Makro erstellen


Schritt-für-Schritt-Anleitung

Um Hyperlinks in Excel per Makro zu erstellen, folge diesen Schritten:

  1. Öffne dein Excel-Dokument und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Option Explicit
    Sub Makro1()
        Dim Zei As Long, Von As Long
        Const Pfad As String = "http://www.dieurld.com/obcsd/"
        With ActiveSheet
            Von = Application.Match("URL", .Columns(2), 0) + 1
            For Zei = Von To .Cells(Rows.Count, 2).End(xlUp).Row
                .Hyperlinks.Add Anchor:=.Cells(Zei, 2), Address:= _
                Pfad & .Cells(Zei, 2).Value, TextToDisplay:=.Cells(Zei, 2).Value
            Next Zei
        End With
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro mit ALT + F8 aus und wähle Makro1.

Dieses Makro wird automatisch Hyperlinks in der Spalte B (URL) erstellen, indem es die feste URL mit dem Schlüssel verknüpft.


Häufige Fehler und Lösungen

  • Fehler: Der Fehler "Laufzeitfehler 1004" tritt auf.

    • Lösung: Stelle sicher, dass die Spalte B die Überschrift "URL" enthält und dass du das Makro im aktiven Blatt ausführst.
  • Fehler: Hyperlinks werden nicht erstellt.

    • Lösung: Überprüfe, ob die Zellen in Spalte B Werte enthalten. Das Makro benötigt diese Werte, um die Links korrekt zu generieren.

Alternative Methoden

Falls du keinen VBA-Code verwenden möchtest, kannst du auch manuell Hyperlinks in Excel einfügen:

  1. Klicke mit der rechten Maustaste auf die Zelle, in der du den Hyperlink erstellen möchtest.
  2. Wähle Hyperlink.
  3. Füge die vollständige URL in das Feld „Adresse“ ein.
  4. Klicke auf OK.

Diese Methode ist jedoch zeitaufwendig, insbesondere wenn du viele Links erstellen musst.


Praktische Beispiele

Angenommen, du hast in Spalte B die folgenden Werte:

URL
ba-12
xy-34
zt-56

Nach dem Ausführen des obigen Makros werden die Hyperlinks wie folgt aussehen:


Tipps für Profis

  • Verwende Option Explicit, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft dir, Fehler im Code zu vermeiden.
  • Du kannst das Makro anpassen, um Hyperlinks zu einer Datei oder einem anderen Ziel zu erstellen, indem du die Address-Eigenschaft entsprechend änderst.
  • Nutze die Möglichkeit, die Hyperlink-Textanzeige zu ändern, um benutzerdefinierte Texte zu verwenden.

FAQ: Häufige Fragen

1. Kann ich das Makro für mehrere Blätter verwenden? Ja, du kannst das Makro anpassen, um es auf alle Arbeitsblätter anzuwenden, indem du eine Schleife über alle Blätter erstellst.

2. Wie ändere ich die feste URL im Makro? Ändere einfach den Wert von Const Pfad im Code auf die gewünschte URL.

3. Was muss ich tun, wenn ich LibreOffice benutze? Die Vorgehensweise für LibreOffice Calc Hyperlink einfügen ist ähnlich, aber die VBA-Syntax kann abweichen. Informiere dich über die spezifischen Makrofunktionen in LibreOffice.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige