ThisWorkbook.Path
07.08.2021 14:41:41
Stefan
in dem unteren Makro will ich anstatt dem festen Pfad eben mit ThisWorkbook.Path arbeiten.
Kann mit bitte jemand sagen, oder mir den Code umschreiben damit ich ihn verwenden kann?
Danke schon mal im Vorraus
Sub einf()
Dim pfad
pfad = ThisWorkbook.Path
Range("D9").Activate
ActiveCell.FormulaR1C1 = _
"='C:\Users\irone\OneDrive\Desktop\TEST\[Bewohner.xlsx]Bewohner'!R[-6]C[1]"
Selection.AutoFill Destination:=Range("D9:D26"), Type:=xlFillDefault
End Sub