HYPERLINK in geschütztes Blatt selbst einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub AddLink(ByVal Adr As String, ByVal Txt As String, z As Long, s As Long) ActiveSheet.Unprotect Cells(z, s).Select ActiveSheet.Unprotect ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Adr, TextToDisplay:=Txt End Sub Sub Hyperlink() Call AddLink(Cells(1, 1), Cells(1, 2), 5, 1) ' Addlink(LinkAdresse, LinkText, Zeile, Spalte) End Sub

Hi Annika,
Das mit

Call AddLink(Cells(1, 1), Cells(1, 2), 5, 1)

war nur ein Beispiel.
Wenn du in Spalte H und z.B. Zeile 5 einen Hyperlink setzen möchtest, musst du natürlich eingeben:

Call AddLink("deine Linkadresse","anzuzeigender Text", Cells(1, 2), 5, 8)

Spalte H muss natürlich als "ungeschützt" formatiert sein und du darfst nicht wie oben 2x hintereinander "Activesheet.Unprotect schreiben, sondern das 2. muss .Protect lauten.
Statt Text als Linkadresse und anzuzeigender Text kannst Du natürlich auch Variablen oder Zellinhalte nehmen.
Am Sub Addlink würde ich nix ändern und stattdessen Protect/Unprotect im Sub Hyperlink setzen.
Du solltest den Sub auch nicht gerade "Hyperlink" nennen, da sonst evtl ein Konflikt mit dem VBA-Befehlssatz auftaucht.

Sub AddLink(ByVal Adr As String, ByVal Txt As String, z As Long, s As Long) ActiveSheet.Unprotect Cells(z, s).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Adr, TextToDisplay:=Txt ActiveSheet.Protect End Sub

Hallo Annika,
Zitat: ...bei mir passiert da leider gar nichts, wenn ich den Code in ein Modul oder auch in diese Arbeitsmappe stelle.
Nun, das dürfte bei jedem Anwender so sein. Denn schließlich muss der Code ja auch noch irgendwie ausgeführt werden.
Also alle Voraussetzungen:
1. Arbeitsmappe, nennen wir sie TEST
2. In einem Modul (Modul1) wird der Code wie oben eingefügt.
3. Ein Tabellenblatt in TEST, (z.B. Tabelle2) ist aktiv
4. TEST, Tabelle2 enthält mindestens 1 Zelle, die nicht gesperrt ist, z.b. H3
5. Solange Tabelle2 nicht geschützt ist, ist das Einfügen-Hyperlink-Symbol immer anklickbar
6. Der Cursor in Tabelle2 steht z.B. in A1
7. Über Alt-F8 starte ich das Makro Ein [Ausführen]
8. Das Einfügen-Hyperlink-Symbol ist jetzt ausgegraut (inaktiv),
Cursor immer noch in A1 (die Zelle ist gesperrt)
9. Ich bewege den Cursor nach H3
10. Siehe da das Hyperlink-Symbol ist aktiviert
11. Zurück nach A1, das Hyperlink-Symbole ist deaktiviert.
12. Über Alt-F8 starte ich das Makro Aus [Ausführen]
13. und das Hyperlink-Symbol ist aktiviert, da das Blatt jetzt ungeschützt ist!
Gruess Hansueli
Das war eine Kurzeinführung in Excel mit Makros ;-), die aber höchstens zum Level Basiskenntnisse reicht.

Beliebteste Forumthreads (12 Monate)

HYPERLINK in geschütztes Blatt selbst einfügen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

HYPERLINK in geschütztes Blatt selbst einfügen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread