Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1892to1896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1892to1896
1892to1896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink per Makro Richtung drehen

Hyperlink per Makro Richtung drehen
28.07.2022 13:10:00
Robert
Hallo liebe Exelgemeinde!
Habe mal wieder eine Bitte um Hilfe von Euch.
Ich habe folgendes Makro.

Sub AAAAAUrlaub_Hyperlinks_auf()
' AAAAAUrlaub_Hyperlinks_auf '
Range("S2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S222", ScreenTip:="Sep 2022", TextToDisplay:= _
"Sep 2022"
Range("S223").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S443", ScreenTip:="Nov 2022", TextToDisplay:= _
"Nov 2022"
Range("S444").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S664", ScreenTip:="Jan 2023", TextToDisplay:= _
"Jan 2023"
Range("S665").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S885", ScreenTip:="Mrz 2023", TextToDisplay:= _
"Mrz 2023"
Range("S886").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S1106", ScreenTip:="Mai 2023", TextToDisplay:= _
"Mai 2023"
Range("S1107").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S1327", ScreenTip:="Juli 2023", TextToDisplay:= _
"Juli 2023"
Range("S1328").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S1548", ScreenTip:="Sep 2023", TextToDisplay:= _
"Sep 2023"
Range("S1549").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S1783", ScreenTip:="Nov 2023", TextToDisplay:= _
"Nov 2023"
Range("S1784").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S1990", ScreenTip:="Dez 2023", TextToDisplay:= _
"Dez 2023"
Range("S1991").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S2027", ScreenTip:="Jan 2024", TextToDisplay:= _
"Jan 2024"
Range("S2028").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S2432", ScreenTip:="Apr 2024", TextToDisplay:= _
"Apr 2024"
Range("S2433").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S2653", ScreenTip:="Jun 2024", TextToDisplay:= _
"Jun 2024"
Range("S2654").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S2874", ScreenTip:="Aug 2024", TextToDisplay:= _
"Aug 2024"
Range("S2875").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S3095", ScreenTip:="Okt 2024", TextToDisplay:= _
"Okt 2024"
Range("S3096").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S3316", ScreenTip:="Nov 2024", TextToDisplay:= _
"Nov 2024"
Range("S3317").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S3537", ScreenTip:="Jan 2025", TextToDisplay:= _
"Jan 2025"
Range("S3538").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S3760", ScreenTip:="Mrz 2025", TextToDisplay:= _
"Mrz 2025"
Range("S3761").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S3981", ScreenTip:="Mai 2025", TextToDisplay:= _
"Mai 2025"
Range("S3982").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S4202", ScreenTip:="Jul 2025", TextToDisplay:= _
"Jul 2025"
Range("S4203").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S4423", ScreenTip:="Sep 2025", TextToDisplay:= _
"Sep 2025"
Range("S4424").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S4644", ScreenTip:="Nov 2025", TextToDisplay:= _
"Nov 2025"
Range("S4645").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S4865", ScreenTip:="Jan 2026", TextToDisplay:= _
"Jan 2026"
Range("S4866").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S5086", ScreenTip:="Mrz 2026", TextToDisplay:= _
"Mrz 2026"
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("S5").Select
End  Sub
Die Hyperlinks funktionieren aufsteigend in der Jeweiligen Spalte (S).
Nun meine Frage? Ist es möglich, das ich in N das gleiche Absteigend in Spalte (N) in gleichen Schritten tuen kann per Makro.
Wäre schön wenn sich das mal jemand anschauen könnte. Wie müsste ich es schreiebn?
Ich danke Euch im voraus
LG Robert

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink per Makro Richtung drehen
28.07.2022 13:46:41
Yal
Hallo Robert,
Du meinst, für die hier aufgeführte Quelle ("S2") und Ziele ("S222") sollte für Spalte N die Quelle "N222" und das Ziel "N2" sein?
Das ist keine Wissensbedarf sondern nur Fleissarbeit: copy, paste, replace (bzw. umtippen)
By the way 1:
Bin ich richtig in der Annahme, dass diese Makro nur gut funktioniert, wenn "Url.Krak.Austrg." gerade die ActiveSheet ist?
Es wäre dann sinnvoll, entweder am Anfang sicherzustellen, dass es so ist: Worksheets("Url.Krak.Austrg.").Activate
oder ein festen Verweis auf diesem Worksheets anstatt ActiveSheet in "ActiveSheet.Hyperlinks.add" also Worksheets("Url.Krak.Austrg.").Hyperlinks.Add
By the way 2:
Mustererkennung, Serialisierung.
Dein Code in 2 Version: Die erste von Dir, die zweite von mir. Macht aber genau das gleich.

Sub Version1()
Worksheets("Url.Krak.Austrg.").Activate
Range("S2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S222", ScreenTip:="Sep 2022", TextToDisplay:= _
"Sep 2022"
Range("S223").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S443", ScreenTip:="Nov 2022", TextToDisplay:= _
"Nov 2022"
Range("S444").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S664", ScreenTip:="Jan 2023", TextToDisplay:= _
"Jan 2023"
Range("S665").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Url.Krak.Austrg.!S885", ScreenTip:="Mrz 2023", TextToDisplay:= _
"Mrz 2023"
End Sub
Sub Version2()
Dim A, B
Const cBlatt = "Url.Krak.Austrg."
Const Liste = "S2|S222|Sep 2022;S223|S443|Nov 2022;S444|S664|Jan 2023;S665|S885|Mrz 2023"
With Worksheets(cBlatt)
For Each A In Split(Liste, ";")
B = Split(A, "|")
.Hyperlinks.Add Anchor:=Range(A(0)), Address:="", _
SubAddress:=cBlatt & "!" & A(1), ScreenTip:=A(2), TextToDisplay:=A(2)
Next
End With
End Sub
Also ändere die Konstante "S2|S222|Sep 2022;..."
in "N222|N2|Sep 2022; ..."
Dann hast Du's.
VG
Yal
Anzeige
AW: Hyperlink per Makro Richtung drehen
28.07.2022 14:39:07
Robert
Hallo Yal!
Ich habe jetzt Deinen Code getestet. Bei beiden kommt leider jeweils "Typen unverträglich" zurück. Woran könnte das liegen.
LG Robert
AW: Hyperlink per Makro Richtung drehen
28.07.2022 18:01:49
Yal
Hallo Robert,
Du hast ja sicher dern Code im Schritt-Modus laufen lassen und dabei das Lokalfenster (Ansicht, Lokalfenster) offen, sodass Du die Werte und Typen der Variablen beobachten kannst :-) Wenn nicht, bitte unbedingt machen. So gelangt man an sehr viel "Insight" und beschleunigt den Aufbau von Kompetenzen.
Da sieht man nämmlich, dass A(0) die Werte "S2|S222|Sep 2022" enthält.
Daraus lässt sich kein Range(A(0)) aufbauen.
Richtig ist nicht A sondern B

Sub Version2()
Dim A, B
Const cBlatt = "Url.Krak.Austrg."
Const Liste = "S2|S222|Sep 2022;S223|S443|Nov 2022;S444|S664|Jan 2023;S665|S885|Mrz 2023"
With Worksheets(cBlatt)
For Each A In Split(Liste, ";")
B = Split(A, "|")
.Hyperlinks.Add Anchor:=Range(B(0)), Address:="", _
SubAddress:=cBlatt & "!" & B(1), ScreenTip:=B(2), TextToDisplay:=B(2)
Next
End With
End Sub
VG
Yal
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige