Hallo, guten Morgen,
ich knobel mal wieder an einem Makro, leider funktioniert es nicht wie gewünscht ..: folgendes Problem
In Spalte A stehen die Kunden-Nummern, zu diesen Nummern existieren gleichlautende Tabellen in dem Ordner Behandlungen (also Kunden-Nummer = 1, dann Tabelle 1.xls).
Ich möchte einen Hyerlink zu den Tabellen herstellen.
Mein Makro generiert zwar Hyperlinks, doch beim Auswählen kommt die Meldung "Die angegebene Datei konnte nicht geöffnet werden".
Meiner Meinung nach liegt der Fehler in der Adressangabe .... ich finde aber leider die Lösung nicht ;-(
So sieht das Makro zurzeit aus:
Sub HyperlinksEinfuegen()
Dim raZelle As Range
Dim strPath$
strPath = ThisWorkbook.Path & "\Behandlungen"
For Each raZelle In Range("A5:A65536")
If raZelle <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=raZelle, _
Address:="strPath & raZelle & .xls", SubAddress:="'" & raZelle & "'!A5"
Next raZelle
End Sub
Ich hoffe mal wieder auf Hilfe, vielen Dank und viele Grüße
Petra