Supportnet / Forum / Tabellenkalkulation
Speichern geht nicht
Frage
Hallo! warum speichert er nicht, was mache ich falsch ?
Es ist eine Txt datei, die ich dann in .xls speichern möchte.
Bitte helft mir.
Sub speichern()
Dim path$, vorgabe$, erklaer$
On Error GoTo Fertig
If Len(ActiveCell) = 0 Then
MsgBox ("Die markierte Zelle darf nicht leer sein!")
Else
vorgabe = "c:\temp\"
erklaer = "Der Datei-Name ist:" & Chr(13) & Chr(13) & ActiveSheet.Range("a1") & " Auto" & ActiveSheet.Range("c2") & ".xls" & Chr(13) & Chr(13) & Chr(13) & "Path bei Bedarf ändern."
path = InputBox(erklaer, "Speichern unter ...", vorgabe)
If path = "" Then GoTo Fertig 'InputBox mit Abbrechen beendet
ActiveWorkbook.SaveAs Filename:=path & ActiveSheet.Range("a1") & ".xls"
End If
Fertig:
End Sub