speichern

Sub funktioniert nicht mehr, speichername und alles funktioniert nur den Ort den ich mit ChDir auswähle wird nicht angegeben, mein 

Sub sieht so aus

Sub speichern()
Dim Dateiname
ChDir "G:\USER\WB5\Bewohner"
Dateiname = Application.GetSaveAsFilename(InitialFileName:="LN & PZB " & ActiveWorkbook.Sheets("Name").Cells(12, 2).Value & "_" & _
Date & ".xls", _
fileFilter:="alle Dateien (*.*), *.*")
If Dateiname <> False Then
meineansicht
MsgBox "CareArrange wird jetzt beendet"
ThisWorkbook.SaveAs Dateiname
normalansicht
End If
Application.Quit
End Sub


Wer kann mir da helfen?ß

Gurß und Dank

Holger