Hyperlinks hinterlegen
17.02.2022 14:23:44
Dom
leider habe ich ein Problem beim automatischen hinterlegen von Hyperlinks.
Ich möchte jeder Zelle innerhalb einer Matrix (Kostenstellen Spalte sowie Monate sollen keinen Hyperlink erhalten) einen Hyperlink zuweisen.
Dabei handelt es sich um Website Links, die in einer weiteren Matrix der Tabelle niedergeschrieben sind.
Da die Kostenstellen nicht immer in der gleichen Zeile der beiden Matrizen stehen, suche ich mir die Zeile über die Match Funktion. Über die Match Funktion werden zudem die Spalten abgeglichen.
Durch die Verwendung der Variablen x und y mit der Match Funktion kann ich genau die Zellen bestimmen, für die der Hyperlink hinterlegt werden soll.
Leider stehe ich nun vor dem Problem, dass der Code zwar ausgeführt werden kann, es jedoch keinerlei Änderungen an der Matrix gibt. Ein Fehlercode wird auch nicht angezeigt.
Nachfolgenden Code habe ich verwendet:
Sub Hyperlink_setzen()
Dim Zeile As Double, Spalte As Double
Dim x As Long, y As Long
On Error Resume Next
For x = 3 To 11
For y = 11 To 15
Zeile = WorksheetFunction.match((Tabelle1.Cells(x, 10).Value), Tabelle1.Range("B1:B11"), 0)
Spalte = WorksheetFunction.match(Tabelle1.Cells(2, y), Tabelle1.Range("A2:G2"), 0)
ActiveSheet.Hyperlinks.Add Anchor:=Tabelle1.Cells(x, y), Adress:=Cells(Zeile, Spalte).Value
Next y
Next x
End Sub
Hoffe die Datei kann geöffnet werden.
Vllt. hat ja jemand eine Idee. Besten Dank vorab.
https://www.herber.de/bbs/user/151206.xls