mit folgende Code:
Dim PfadDatei As String
PfadDatei = "\\SERVERC\Groups\Ecoworld\" & Range("AD2").Value
ActiveWorkbook.SaveAs Filename:=PfadDatei, _
FileFormat:=IIf(Val(Application.Version) > 11, 52, xlNormal)
wird eine Mappe als xlms gespeichert.
Jetzt wäre schön die Mappe als Hyperlink in Tabelle2 aufzulisten, und bei
jeder neu Speicherung, die neu Mappe dazu untereinander eintragen.
Ich habe mit diesem Code versucht:
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("Tabelle2").Range("A1"), _
Address:=PfadDatei, TextToDisplay:=Worksheets("Tabelle1").Range("AD2").Value & ".xlsm"
der Eintrag erfolgt aber wird immer überschrieben.
Zweites Problem, mit mein Code geht der Hyperlink nicht auf.
Kann mir jemand bitte helfen?
Vielen Dank im Voraus
Antonio
@ Rainer
@ Dieter
Sorry für die Verspätung, war im Urlaub, Metronom funzt super. DANKE