Aus Tabellenblatt-Name automatisch Hyperlink erstellen

Forumthread: Aus Tabellenblatt-Name automatisch Hyperlink erstellen

21.10.2024 17:16:10

BHoff

Hallo,

ich möchte auf einem separaten Tabellenblatt den Namen eines anderen Tabellenblatts, welchen ich unter A12 eintrage, in einen Hyperlink umwandeln.

Ich habe mit verketten usw. schon alles durchprobiert, nix klappt.

- alles in einer Arbeitsmappe
- in A12 steht folgender Text:
24-001
(das ist der Name des Tabellenblatts, auf welches der Hyperlink führen soll)

- in C12 soll dann der Hyperlink erscheinen, wenn ich in A12 die Bezeichnung eintrage

Wahrscheinlich habe ich mich den ganzen Nachmittag total verzettelt und kann nun nicht mehr denken.

Kann mir jemand helfen?

VG
BHoff

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Aus Tabellenblatt-Name automatisch Hyperlink erstellen

21.10.2024 17:56:58

Yal

Hallo B.,

eigentlich reicht es in A12 eine Formel zu hinterlegen:
='24-001'!A1
und dann drauf doppelzuklicken.

VG
Yal

Das kannst du...

21.10.2024 22:29:20

Case

Moin, :-)

... mit einer Formel so machen (in neuen Versionen bequemerweise mit VERKETTEN): ;-)
https://www.herber.de/bbs/user/173076.xlsx

Servus
Case

AW: Aus Tabellenblatt-Name automatisch Hyperlink erstellen

21.10.2024 18:11:54

BHoff

Hallo Yal,

das reicht gerade nicht. Wie ich einen Zellbezug auf ein anderes Tabellenblatt erstelle, weiß ich doch.

In A12 bis A50 ca. werden die Bezeichnungen von Tabellenblättern eingetragen.

Das wird sich immer wieder ändern und fortsetzen, da temporäre Projekte dahinter stehen.

Daher möchte ich eine Formel, die aus der Bezeichnung (A12) immer wieder einen Hyperlink bastelt und diesen auch anpasst, wenn ich den Inhalt in A12 ändere.

Hast Du da eine Idee?

AW: Aus Tabellenblatt-Name automatisch Hyperlink erstellen

21.10.2024 19:22:20

Yal

Hallo B.,

Du musst eine Korrektur nach Eingabe vornehmen. Das kann VBA für dich übernehmen.
- Rechtklicke auf dem Reiter der Tabelle,
- Code unten im Codepane einfügen

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub 'nur wenn nur eine Zelle geändert wurde

    If Not Intersect(Target, Range("A12:A50")) Is Nothing Then  'nur wenn die Änderung den Bereich A12:A50 betrifft

        With Target.Cells(1)

            .Hyperlinks.Delete

            ActiveSheet.Hyperlinks.Add Anchor:=.Cells(1), Address:="", SubAddress:=Target.Value & "!A1", TextToDisplay:=Target.Value

        End With

    End If

End Sub

Zurück in Excel, Bereich A12:A50 markieren und Tasten F2, Enter, F2, Enter, .. bis gesamte markierte Bereich durch ist.

VG
Yal

AW: Aus Tabellenblatt-Name automatisch Hyperlink erstellen

21.10.2024 19:44:12

BHoff

Vielen Dank, ich bemühe mich mal daran gleich morgen früh.

VG BHoff

AW: Aus Tabellenblatt-Name automatisch Hyperlink erstellen

22.10.2024 08:43:06

BHoff

Guten Morgen Yal,

ich habe den Code kopiert und im Codepane des Tabellenblattes eingefügt. Danach mit F2+Enter alles durch. Leider passiert nix. Die Bezeichnungen bleiben so stehen, kein Hyperlink, kein gar nix.

Was anderes steht im codepane nicht drin, ne Fehlermeldung kam auch nicht.

Ideen?

AW: Aus Tabellenblatt-Name automatisch Hyperlink erstellen

22.10.2024 09:13:17

Yal

Hallo B.,

bei mir funktioniert es. Aber das bringt dich auch nicht weiter.

Setze einen Breakpoint auf die zweite Zeile vom Code, in dem Du in der graue Leiste links vom Code klickst. Es sollte einen rot/braunen Punkt und über die Zeile erscheinen.
Wenn Du jetzt in der Tabelle einen von den Einträge in A12:A50 änderst, sollte den Code auf die Zeile stoppen. Weiter geht es Schritt für Schritt mit F8.

VG
Yal

AW: Aus Tabellenblatt-Name automatisch Hyperlink erstellen

22.10.2024 09:30:36

hary

Moin
Versuch es mal so. Einzige Aenderung ist: Du musst das Minuszeichen im Blattnamen durch einen Unterstrich ersetzen und dann auch in SpalteA den Unterstrich benutzen.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub 'nur wenn nur eine Zelle geändert wurde

  If Not Intersect(Target, Range("A12:A50")) Is Nothing Then  'nur wenn die Änderung den Bereich A12:A50 betrifft

    With Target.Offset(, 2)

      .Hyperlinks.Delete

       ActiveSheet.Hyperlinks.Add Anchor:=.Cells(1), Address:="", SubAddress:=Target & "!" & Target.Address(False, False), TextToDisplay:=Target.Value

    End With

  End If

End Sub

gruss hary

AW: Aus Tabellenblatt-Name automatisch Hyperlink erstellen

22.10.2024 10:04:06

Yal

Hmm...

tatsächlich übersehen: wenn "verbotenen Zeichen" in der Blattnamen sind, sollte man den Tabellenname zwischen Hochkkommas setzen:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub 'nur wenn nur eine Zelle geändert wurde

  If Not Intersect(Target, Range("A12:A50")) Is Nothing Then  'nur wenn die Änderung den Bereich A12:A50 betrifft

    With Target.Offset(, 2)

      .Hyperlinks.Delete

       ActiveSheet.Hyperlinks.Add Anchor:=.Cells(1), Address:="", SubAddress:="'" & Target & "'!" & Target.Address(False, False), TextToDisplay:=Target.Value

    End With

  End If

End Sub

Aber die Formellösung von Case ist sicher besser: der Hyperlink innerhalb der Datei muss ein bestimmten Format haben:
=HYPERLINK("#='" & ZelleMitTabellenname &"'!A1"; ZelleMitTabellename)
Hier auch sind die Hochkomma wahrscheinlich relevant.

VG
Yal

Beliebteste Forumthreads (12 Monate)

Aus Tabellenblatt-Name automatisch Hyperlink erstellen

Forumthread: Aus Tabellenblatt-Name automatisch Hyperlink erstellen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Aus Tabellenblatt-Name automatisch Hyperlink erstellen

Forumthread: Aus Tabellenblatt-Name automatisch Hyperlink erstellen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread