Programmgesteuertes erstellen eines hyperlinks zu einem Arbeitsblatt

Habe ich die Arbeit auf diesem für eine Weile, ich weiß wirklich nicht, wie Sie vba verwenden, und ich habe auf der Suche für eine Lösung auf der Website für eine Weile, ohne Erfolg. Hier ist, was ich tun will:

Ich habe ein makro ein Arbeitsblatt kopieren (mit dem Namen "PartSheet") und setzen Sie es an das Ende der Liste der Arbeitsblätter, so dass, wenn ich halten Sie das makro erstellt wird, Seiten wie folgt:

PartSheet (2), PartSheet (3) für die tab-name und so weiter.

Nun möchte ich hinzufügen, in einem hyperlink in diesem makro so, dass jedes mal, wenn ich eine neue Kopie erstellen
es wird auch einen hyperlink auf das erste Tabellenblatt (mit dem Namen "Zusammenfassung")

Hier ist der code, den ich geschrieben habe:

Sub Test2()
    Sheets(Sheets.Count).Select
    Name = ActiveSheet.Name
    Sheets("Summary").Select
    Range("A10").Select
    ActiveCell.FormulaR1C1 = ""
    Range("A10").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        " 'Name' !A1 ", TextToDisplay:="Link"
End Sub

Wenn ich das makro ausführen, wird der hyperlink erstellt werden soll, aber es wird eine ungültige Referenz.

  • Sorry, ich glaube, ich war nicht klar genug. Ich versuche, fügen Sie die Hyperlinks auf der "Seite " Zusammenfassung", die link auf die neue Seite Kopieren
InformationsquelleAutor Han P | 2013-07-16
  1. 3

    Ersetzen Sie den code mit dem folgenden. Stellen Sie sicher, Sie nennen es sofort, nachdem Sie eine neue Kopie von Ihrem PartSheet.

    Sub AddHyperlink()
    Dim targetSheet As Worksheet
    Dim targetRange As Range
    Dim linkedSheet As Worksheet
    Dim linkRange As Range

    'set variable to the sheet the hyperlink will link to
    Set targetSheet = ThisWorkbook.Sheets(ActiveSheet.Name)

    ' specify the range on the summary sheet to link to
    Set targetRange = targetSheet.Range("A1")

    ' set variable to sheet that will have the hyperlink
    Set linkedSheet = ThisWorkbook.Sheets("Summary")

    ' specify where on that sheet we'll create the hyperlink
    Set linkRange = linkedSheet.Range("B4")

    ' create the hypperlink on the copied sheet pointing
    ' back to the summary sheet
    linkedSheet.Hyperlinks.Add Anchor:=linkRange, Address:="", SubAddress:= _
        "'" & targetSheet.Name & "'!" & targetRange.Address, _
        TextToDisplay:="Go To " & targetSheet.Name

End Sub

    Fehler-Vermeidung-Tipps:

    1. Immer vermeiden Sie die Auswahl oder Aktivierung etwas beim schreiben von Excel-VBA-code.
    2. Immer Variablendeklaration erforderlich (in VBE, Tools --> Optionen, aktivieren Sie das Kontrollkästchen neben Variablendeklaration Erforderlich.
    • Hallo @Head of Catering, ich habe versucht deinen code, es funktioniert gut, aber es ist nicht das Gegenteil von dem, was ich war auf der Suche für, meine Entschuldigung nicht zu erklären, die situation gut genug. Der code, den Sie zur Verfügung stellen, erfolgreich den hyperlink erstellen, der auf die neue Seite kopieren, die einen link zurück zu übersichtsseite. Aber was ich Suche ist der Link auf die Summary Seite, die einen link auf die neue Seite Kopieren. Noch, ich danke Ihnen sehr für Ihre Hilfe, es zu schätzen wissen, durch die Art und Weise, ich versuche, den code zu ändern um, aber es würde nicht funktionieren.
    • Ich sehe. Ich bearbeitet den code-link von der Zusammenfassung der neuen Kopie von PartSheet. Versuchen Sie es erneut und lassen Sie mich wissen, wenn es funktioniert. Nur damit Sie wissen, es gab zwei Dinge, die ich geändert habe. 1) zum wechseln der Blätter bezeichnet, die in der verknüpften und Ziel-Blatt, und 2) Hinzugefügt Teilstrichen auf jeder Seite den Namen des Blattes bei der Einstellung der hyperlinks
    • OMG, ich Danke Ihnen so sehr, schließlich ist dies die Arbeit, ich schaute auf die Referenz nach der Erstellung des hyperlinks und ja, es fehlte '' , so das ist, was die & & tun wird. Habe es endlich. Ich danke Ihnen so sehr für Ihre Hilfe . Wissen das wirklich zu Schätzen !!!!
    InformationsquelleAutor Jon Crowell
  2. 1

    Es nicht funktioniert, weil, wie die "Unteradresse" - setup. Ändern Sie diese:

    Sub Test2()
    Dim Name As String

    Sheets(Sheets.Count).Select
    Name = ActiveSheet.Name
    Sheets("Summary").Select
    Range("A10").Select
    ActiveCell.FormulaR1C1 = ""
    Range("A10").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Name & "!A1", TextToDisplay:="Link"
End Sub
    • Hallo @Ripster , ich habe versucht, den code, ist es immer noch nicht funktioniert, vielleicht ist die Logik der code falsch war, um mit zu beginnen ? Sowieso, ich danke Ihnen sehr für Ihre Hilfe, die ich noch ausprobieren.
    InformationsquelleAutor Ripster
Schreibe einen Kommentar