Sub schreibe_Verzeichnis()
    Dim aktuelles_verzeichnis As String
    aktuelles_verzeichnis = ActiveWorkbook.Path
    ActiveWorkbook.Worksheets("Tabelle1").Range("C4").Value = aktuelles_verzeichnis
End Sub