Bild it Hyperlink per VBA

Hallo zusammen,
ich habe im Verein eine ewig große Liste von Mitgliedern, diese sind alle in alle in Freihandformen dargestellt.
Hinter jeder Freihandform soll ein Hyperlink gelegt werden und die Freihandform soll den Namen aus einer Tabelle bekommen.
habe 2 Tabellen
Ziel = hier sind die ganzen Freihandformen
Quelle = hier Stehen die Namen und der jeweilige Hyperlink
ICh würde mir wünschen, wenn es per Makro möglich wäre nun den Freihandformen in der Tab. Ziele, die Namen und Hyperlinks aus Tab. Quelle zuzuordnen.
Warum? da sich die Namen zwar selten ändern außer bei Heirat Scheidung und Verlassen, sich aber die Leistungsklassen ständig ändern, müsste ich daher von weit über 200 Mitgliedern ständig alles per Hand ändern.
Kann mir da jemand helfen bitte?
in Access und SQL ist es kein Thema, aber leider darf ich das nicht im Verein benutzen, da die Ergebnisse und Werte uch noch anderen Programmen zu Verfügung stehen müssen.
hier der Pfad zur Musterdatei
https://www.herber.de/bbs/user/140405.xlsm
danke im Voraus
Marcus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub AddHyperLink() Dim sh As Shape Dim rowFound As Variant With Worksheets("Ziel") For Each sh In .Shapes If sh.Type = msoFreeform Then rowFound = Application.Match(sh.TextEffect.Text, Worksheets("Quelle").Range("A: _ A"), 0) If Not IsError(rowFound) Then .Hyperlinks.Add Anchor:=sh, Address:="https://" & Worksheets("Quelle").Range("B" & rowFound) Else MsgBox (sh.TextEffect.Text & vbCrLf & vbCrLf & "wurde in Quelle nicht _ gefunden") End If End If Next sh End With End Sub

@Peter
was soll ich sagen läuft perfekt Danke Danke
eine Frage hätte ich noch Ist es möglich, das ich jeder Form einen festen Bezug zuweise?
also nicht über den Text in der Form (Abfrage gibt es den Text in der Quelle dann mach Hyperlink)
den jetzt steht in der Box der Text des Links drin, und der ist teilweise 54 Zeichen lang.
Mit dem unbedachten Wunsch von mir sieht das etwas unübersichtlich aus.
In der Box sollte der Name des Mitgliedes stehen und über den Link sollte sich die jeweilige Scorekarte öffnen (diese ändert sich sehr häufig - daher den Wunsch ihn dynamisch zu haben) und als Box wollte ich das ganze um es in der jeweiligen Klasse schieben zu können um es optisch darzustellen wer wo platziert ist.
Also anstatt das er die Abfrage von Inhalt zu Hyperlink gestaltet
Sollte er jetzt der Box 1 den Hyperlink aus Tab Quelle B2 zuweisen.
Habe alle Boxen umbenannt und daher könnte sich das machen lassen oder?
Wäre sehr verbunden,
danke im Voraus
Marcus

Sub AddHyperLink() Dim sh As Shape Dim rowFound As Variant With Worksheets("Ziel") For Each sh In .Shapes If sh.Type = msoFreeform Then rowFound = Application.Match(sh.Name, Worksheets("Quelle").Range("A:A "), 0) If Not IsError(rowFound) Then .Hyperlinks.Add Anchor:=sh, _ Address:="https://" & Worksheets("Quelle").Range("B" & rowFound) sh.TextEffect.Text = Worksheets("Quelle").Range("C" & rowFound) Else MsgBox (sh.TextEffect.Text & vbCrLf & vbCrLf & "wurde in Quelle _ nichtgefunden ") End If End If Next sh End With End Sub

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread