Hallo,
die aktive Zeile bekommst du über die aktive Zelle:
dim lngZeile as long
lngZeile = activecell.row
Jetzt kannst du Cells() statt Range() benutzen. Die Syntax ist cells(Zeilennummer, Spaltennummer)
Abteilung = Sheets("Tabelle1").Range("N2")
entspricht
Abteilung = Sheets("Tabelle1").cells(2, 14)
und mit der aktiven Zeile wäre das dann:
Abteilung = Sheets("Tabelle1").cells(lngzeile, 14)
'alternativ geht auch:
Abteilung = Sheets("Tabelle1").cells(lngzeile, "N")
https://learn.microsoft.com/de-DE/office/vba/api/Excel.Worksheet.Cells
Ohne darüber nachzudenken würde ich eher eine Tastenkombination oder das Doppelklick-Event benutzen, als einen Hyperlink. Ansonsten musst du ja Hyperlinks erst einfügen.
Grüße, Ulrich
|