Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA Speichern unter
28.10.2008 15:59:44
PeterO
Hallo!
Ich habe folgendes Problem:
über einen Commandbutton kopiert der User ein Blatt in eine neue Datei, die so dann gleich geschlossen werden soll. Hier erscheint dann der Dialog "Wollen Sie speichern? - ja - nein - abbrechen -". Ich hätte nun aber gern, dass gleich der Dialog "Speichern unter" eingeblendet wird. Wie kann ich das erreichen?
Den beschribenen Weg erreiche ich über:

Private Sub CommandButton3_Click()
Sheets("FZG_LISTE").Select
Sheets("FZG_LISTE").Copy
Worksheets("FZG_LISTE").CommandButton3.Visible = False
ActiveWindow.Close
End Sub


Ich habe es schon mit Activeworkbook.save (bzw. saveas) versucht, was aber zu einer Fehlermeldung führt.
Ihr habt bestimmt eine Lösung für mich :-)
Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Speichern unter
28.10.2008 16:58:37
JogyB
Probier es mal so:

Private Sub CommandButton3_Click()
Dim daTei
Sheets("FZG_LISTE").Copy
Worksheets("FZG_LISTE").CommandButton3.Visible = False
daTei = Application.GetSaveAsFilename
If daTei  False Then
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=daTei
On Error GoTo 0
End If
ActiveWorkbook.Close False
End Sub


Gruss, Jogy

AW: VBA Speichern unter
29.10.2008 13:13:00
PeterO
Hallo Jogy,
klappt wunderbar. Danke!
Peter
Anzeige

328 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige