Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zelle als Hyperlink formatieren

Zelle als Hyperlink formatieren
24.09.2005 23:54:58
Silk
Hallo, ich habe ein Problem mit Excel. Ich möchte folgendes machen:
Ich habe eine Arbeitsmappe mit diversen Arbeitsblättern.
Auf einem Arbeitsblatt gibt es eine Spalte mit den Namen der anderen Arbeitsblätter. Gibt es eine Möglichkeit die Zellen dieser Spalte automatisch als Hyperlink zu dem entsprechenden Arbeitsblatt zu formatieren? Natürlich soll nur wenn das Arbeitsblatt existiert ein Hyperlink erscheinen, sonst soll die Zelle als Text formatiert sein.
Ich hoffe, ich habe mich verständlich ausgedrückt.
Danke im voraus.
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle als Hyperlink formatieren
25.09.2005 00:26:43
K.Rola
Hallo,
da deine Angaben etwas dürftig sind, geh ich mal davon aus, dass die Tabellennamen
in Spalte A von A1 abwärts stehen und dass es ausschließlich Worksheets sind.
Der Code muss in ein Standardmodul kopiert werden:
Sub HLinks()
Dim z As Long, c As Range
For z = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Set c = Cells(z, 1)
If Blatt_gibts(c.Text) Then
c.Hyperlinks.Add Anchor:=c, Address:="", _
SubAddress:=c & "!A1", TextToDisplay:=c.Text
End If
Next
End Sub
Private Function Blatt_gibts(n As String) As Boolean
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = n Then
Blatt_gibts = True
Exit Function
End If
Next
End Function
Gruß K.Rola

Anzeige
AW: Zelle als Hyperlink formatieren
25.09.2005 01:15:14
Silk
Hallo,
vielen Dank für die schnelle Antwort um diese Zeit !!!
Dein Code hat mir schon sehr weitergeholfen. Die Zellen werden schon als Hyperlink formatiert, allerdings ist der Bezug nicht korrekt. Beispiel:
Der Text in der Zelle ist "Test" und das Tabellenblatt heisst auch "Test".
Wenn ich mir das Ziel des Links anschaue lautet er nun Test!A1. Er müsste jeduch
'Test'!A1 lauten. Ich kenne mich mit VB leider nicht aus. Wahrscheinlich ist es nur ne Kleinigkeit.
Anzeige
AW: Zelle als Hyperlink formatieren
25.09.2005 01:19:56
K.Rola
Hallo,
funktionieren die Links nicht?
Gruß K.Rola
AW: Zelle als Hyperlink formatieren
25.09.2005 01:22:25
Silk
Ja, es gibt ne Fehlermeldung "Bezug ist ungültig".
AW: Zelle als Hyperlink formatieren
25.09.2005 01:27:33
Silk
Oh, sie funktionieren doch! Allerdings nur bei Zellen, die kein "-" im Namen tragen.
Also Test!A1 funktioniert, Mein-Test!A1 jedoch nicht.
Anzeige
AW: Zelle als Hyperlink formatieren
25.09.2005 01:32:44
K.Rola
Hallo,
ändere den Code:

Sub HLinks()
Dim z As Long, c As Range
For z = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Set c = Cells(z, 1)
If Blatt_gibts(c.Text) Then
c.Hyperlinks.Add Anchor:=c, Address:="", _
SubAddress:="'" & c & "'!A1", TextToDisplay:=c.Text
End If
Next
End Sub

Gruß K.Rola
Anzeige
AW: Zelle als Hyperlink formatieren
25.09.2005 01:42:24
Silk
Ja, jetzt funktioniert es!
Vielen, vielen Dank nochmal!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Zelle als Hyperlink formatieren in Excel


Schritt-für-Schritt-Anleitung

Um eine Excel-Zelle als Hyperlink zu formatieren, kannst du den folgenden VBA-Code verwenden. Dieser Code überprüft, ob das Arbeitsblatt existiert und formatiert die Zelle entsprechend:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul hinzuzufügen.
  3. Kopiere den folgenden Code in das Modul:
Sub HLinks()
    Dim z As Long, c As Range
    For z = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        Set c = Cells(z, 1)
        If Blatt_gibts(c.Text) Then
            c.Hyperlinks.Add Anchor:=c, Address:="", _
            SubAddress:="'" & c & "'!A1", TextToDisplay:=c.Text
        End If
    Next
End Sub

Private Function Blatt_gibts(n As String) As Boolean
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name = n Then
            Blatt_gibts = True
            Exit Function
        End If
    Next
End Function
  1. Schließe den VBA-Editor und gehe zurück zu deinem Arbeitsblatt.
  2. Führe das Makro HLinks aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Häufige Fehler und Lösungen

  1. Fehlermeldung "Bezug ist ungültig"

    • Stelle sicher, dass die Arbeitsblätter, auf die du verweist, tatsächlich existieren. Der Code erstellt nur Hyperlinks für vorhandene Blätter.
  2. Hyperlinks funktionieren nicht bei bestimmten Namen

    • Wenn der Arbeitsblattname ein "-" enthält, könnte der Hyperlink nicht funktionieren. Der Code wurde entsprechend angepasst, um solche Fälle zu berücksichtigen.
  3. Hyperlink zeigt nicht den richtigen Bezug

    • Achte darauf, dass der Code den Hyperlink korrekt formatieren kann. Verwende die einfache Anführungszeichen um den Namen des Arbeitsblattes.

Alternative Methoden

Falls du keine VBA-Lösung nutzen möchtest, kannst du auch Hyperlinks manuell erstellen:

  1. Markiere die Zelle, die du als Link formatieren möchtest.
  2. Rechtsklicke und wähle Hyperlink.
  3. Im Dialogfeld kannst du den Link zu einem anderen Arbeitsblatt in der gleichen Datei setzen.

Diese Methode ist jedoch weniger effizient, wenn du viele Hyperlinks gleichzeitig erstellen musst.


Praktische Beispiele

Angenommen, du hast folgende Arbeitsblätter: "Daten", "Analyse", "Bericht". In Spalte A deines Arbeitsblattes hast du diese Namen aufgelistet. Nach dem Ausführen des Makros werden die Zellen in Spalte A automatisch als Hyperlinks formatiert, die zu den entsprechenden Arbeitsblättern führen.

Beispiel für eine Zelle:

  • Text in Zelle A1: "Daten"
  • Nach dem Ausführen des Makros: Zelle A1 wird als Hyperlink formatiert, der auf das Arbeitsblatt "Daten" verweist.

Tipps für Profis

  • Überprüfe regelmäßig die Arbeitsblätter, um sicherzustellen, dass die Hyperlinks aktuell sind. Wenn du Arbeitsblätter umbenennst oder löschst, kann es zu ungültigen Links kommen.
  • Nutze die Funktion HYPERLINK in Excel, um dynamische Links zu erstellen, die auf externe Daten oder Dateien verweisen. Beispiel: =HYPERLINK("http://example.com", "Mein Link").

FAQ: Häufige Fragen

1. Wie kann ich mehrere Zellen gleichzeitig als Hyperlink formatieren? Du kannst den obigen VBA-Code verwenden, um alle Zellen in einer Spalte automatisch zu formatieren.

2. Funktioniert dieser Code in älteren Excel-Versionen? Ja, der Code sollte in den meisten Excel-Versionen ab 2010 funktionieren.

3. Was passiert, wenn der Arbeitsblattname Leerzeichen enthält? Der Code behandelt Leerzeichen korrekt, indem er den Arbeitsblattnamen in einfache Anführungszeichen setzt. Achte darauf, dass du keine zusätzlichen Leerzeichen einfügst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige