Supportnet Computer
Planet of Tech

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

Antwort von



Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: