Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon dummy12345 vom 07.03.2020, 17:27 Options
Speichern geht nicht
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
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
Ähnliche Themen
Bilder aus dem Internet speichern
flor 10.01.2007 - 266 Hits - 5 Antworten
Ich möchte OE 6 komplett speichern
sm-volker 03.01.2008 - 60 Hits - 12 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
