ich habe folgendes Problem und danke schon mal vorab für Eure kompetente Hilfe.
Dieses Makro steht in einem Workbook und soll in einem anderen Workbook einen Hyperlink erstellen, welches auf das Workbook verlinkt wo das Makro drinsteht.
Das klappt auch alles so wie ich will, nur soll der Hyperlink in der ersten leeren Zeile erstellt werden. Das klappt allerdings nur bedingt, dann wenn dazwischen leere Zeilen sind ignoriert mein Rows.Count leider diese und setzt den Hyperlink hinter der zuletzt beschriebenen Zeile.
Beinhaltet zum Beispiel in Spalte A die Zeile 1 und 2 sowie 4 und 5 Werte, setzt mein Makro den Hyperink nicht wie gewünscht in Zeile 3, sondern in Zeile 6.
Anbei mein Makro mit dem nicht optimalen Rows.Count:
Sub Hyperlink_in_Zelle()
Dim leereZeile As Integer
Dim WbAct As Workbook
Dim WsZiel As Worksheet
Workbooks.Open Filename:= _
"R:\PS1\PS13\Aufgabenverteilung\HC_support\ _
CD2_GPS_Planning_2018_based_on_template_201708\DataPool\DataPool_Zimmer_Draft_20170823.xlsm"
Set WbAct = ActiveWorkbook
Set WsZiel = WbAct.Worksheets(1)
leereZeile = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
WsZiel.Hyperlinks.Add Anchor:=Cells(leereZeile, 3), Address:=ThisWorkbook.Path & "\" & _
ThisWorkbook.Name
End Sub
Viele Grüße Felix