Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Datei unter einem best. Namen speichern

124 views
Skip to first unread message

Dieter Schuh

unread,
Oct 29, 2002, 1:48:16 PM10/29/02
to
Hallo!

Wie kann ich eine Arbeitsmappe unter einem neuen Namen, der von einer Zelle
ausgelesen wird speichern?
Problem: Das "Speichern unter" -Fenster soll über ein Symbol aufgerufen
werden und der Dateiname aus der Zelle angezeigt werden.

Ich wäre für jede Idee und Hilfe dankbar!

Dieter


Stefan Onken

unread,
Oct 29, 2002, 3:54:24 PM10/29/02
to
hallo Dieter,
ordne folgendes Makro deinem Symbol zu:

Sub Speichern()
ChDrive "C"
ChDir "C:\Eigene Dateien"
nam = Application.GetSaveAsFilename(Initialfilename:=Range("A1"), _
FileFilter:="Microsoft Excel-Arbeitsmappe (*.xls),*.xls")
If nam <> "Falsch" Then ActiveWorkbook.SaveAs nam
End Sub

ChDrive gibt das Laufwerk vor, ChDir das Verzeichnis.
nam <> "Falsch" verhindert das Speichern, wenn im Speichern unter-Dialog auf
Abbrechen geklickt wurde.


Gruß
stefan


"Dieter Schuh" <dieter...@aon.at> schrieb im Newsbeitrag
news:eqN1Nu3fCHA.2592@tkmsftngp09...

Philipp von Wartburg

unread,
Oct 29, 2002, 3:51:04 PM10/29/02
to
Hallo Dieter

Hier eine mögliche Lösungsvariante:

Sub SaveFile()
Dim varResult
Dim strFileName As String
strFileName = Trim$(ActiveSheet.Range("A1").Value)
If strFileName = "" Then
strFileName = "NeueMappe.xls"
End If
varResult = Application.GetSaveAsFilename(InitialFilename:= _
strFileName, FileFilter:="Excel-Dateien (*.xls), *.xls")
If varResult = False Then
MsgBox "Abbrechen wurde geklickt."
Else
ActiveWorkbook.SaveAs varResult
End If
End Sub

Man müsste noch eine Fehlerbehandlung einbauen,
falls die Datei bereits existiert.

Gruss
Philipp


Dieter Schuh schrieb in Nachricht ...

Dieter Schuh

unread,
Oct 30, 2002, 12:07:11 PM10/30/02
to
Herzlichen Dank an Philipp und Stefan. Beide Prozeduren haben so
funktioniert, wie ich es mir vorstellte. Noch eine Bitte:
Wie kann ich den Fehler bei bereits exisiterender Datei abfangen?

Dieter


Stefan Onken

unread,
Oct 30, 2002, 1:39:17 PM10/30/02
to
hallo Dieter,

mit der Anweisung Application.displayalerts = False werden Fehlermeldungen
unterdrückt, die Datei wird über eine mit gleichen Namen gespeichert.
Mit On Error Goto Verzweigung kannst du den Fehler abfangen.

In der VBA-Hilfe (Cursor in ein Wort stellen und F1 drücken) erfährst du
mehr.

Gruß
stefan

"Dieter Schuh" <dieter...@aon.at> schrieb im Newsbeitrag

news:OGOtbaDgCHA.1964@tkmsftngp12...

Dieter Schuh

unread,
Nov 2, 2002, 4:56:27 AM11/2/02
to
Hallo Stefan

Danke für diesen Tipp! Kann momentan damit aber noch nichts anfangen, da ich
mit dieser Anweisung noch nicht vertraut bin. Muss mich erst damit
beschäftigen. Vermute ich richtig, dass die Datei ohne Meldung einfach
überschriebenen wird? Das wäre dann nicht so toll. Ich möchte schon die
Möglichkeit haben, zu entscheiden: Drüberspeichern, Abbrechen oder Namen
ändern

Grüße

Dieter

"Stefan Onken" <steo...@web.de> schrieb im Newsbeitrag
news:etBe9KEgCHA.2476@tkmsftngp10...

0 new messages