Über Textbox Speicherpfad eingeben
15.03.2004 14:01:08
Christoph
Ich hätte da folgendes Problem:
In eine Textbox soll der Speicherort einer Datei eingegeben werden (z. B.: C:\excel\test).
Wenn nun in der Datei auf einen Speicherbutton gedrückt wird, dann soll die Datei ohne Rückfrage in den in der Textbox enthaltenen Ordner gespeichert werden.
Private Sub CommandButton13_Click()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=TextBox & Range("AB2") & Range("AB1"), FileFormat:=xlNormal, Password:="Dienstplan", WriteResPassword:="Dienstplan", ReadOnlyRecommended:=False, CreateBackup:=True
Application.DisplayAlerts = True
End Sub