=HYPERLINK("#Tabelle3!"&K2;"zum Eintrag")
als VBA hier einfügen:
Tabelle5.Cells(letzteZeile + 1, 12).FormulaLocal = ?
Tabelle5.Cells(letzteZeile + 1, 12).FormulaLocal = "=HYPERLINK(""#Tabelle3!""&K2;""zum Eintrag"")"
Gruß Werner.FormulaLocal = "=HYPERLINK(""#Tabelle2!""&K" & letzteZeile & ";""zum Eintrag"")"
oder halt.FormulaLocal = "=HYPERLINK(""#Tabelle2!""&K" & letzteZeile + 1 & ";""zum Eintrag"")"
Je nachdem was du brauchst.Tabelle5.Cells(letzteZeile + 1, 12).FormulaR1C1 = "=HYPERLINK(""#Tabelle3!""&RC[-1],""zum Eintrag"")"
'oder
Tabelle5.Cells(letzteZeile + 1, 12).Formula = "=HYPERLINK(""#Tabelle3!""&K" & letzteZeile + 1 & ",""zum Eintrag"")"
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0