Hallo Zusammen,
ich habe vor einiger Zeit schon einmal gefragt und als Antwort den Macrorekorder zu benutzen bekommen.
Leider hat das nix genützt.
Ich versuche mein Anliegen nocheinmal zu spezifizieren.
In einem von mir erstellten Userform werden Werte, Text, Datum etc in Text- und ComboBoxen händisch eingetragen.
Mit CommantButton1 Click werden diese Werte in die erste freie Zeile dieser Tabelle eingetragen.
Zudem wird ein Ordner erstellt, dann ein neues Sheet aufgemacht, dort wird ebenfalls aus den im Userform enthaltenen Boxen einiges eingetragen, dann wird das Sheet im neuen Ordner abgespeichert und zugemacht. Bis hierhis funktioniert alles.
Dann würde ich gerne einen Link zum gerade erstellten Sheet in meine ürsprüngliche Tabelle einfügen und zwar in die Zeile in der auch die vorherigen Textboxen eingetragen sind (Letzte Nichtfreie Zeile dann).
Das habe ich wie unten zu sehen gemacht, aber es funktioniert nicht.
Dateiname = TB0.Text 'Textbox0
Dim z As Long
With Sheets("2020")
z = Sheets("2020").Cells(.Rows.Count, "B").End(xlUp).Row
Range(z, "K").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Sp2020/" & Dateiname & / & Dateiname & "_Chronik.xlsm", TextToDisplay:= _
Dateiname & " Chronik.xlsm"
End With
Für eure Hilfe wäre ich sehr sehr dankbar,
habe leider nur rudimentäre Kenntnisse von VBA.
Vielen Grüße, Simon