"speicherort" sub funktioniert nicht
28.01.2007 19:01:10
holger
Mein "Sub" funktioniert nicht mehr, speichername und alles funktioniert nur den Ort den ich mit ChDir auswähle wird nicht angenommen, 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?
Gruß und Dank
Holger
Anzeige