Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
276to280
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern unter... in Userform

Speichern unter... in Userform
09.07.2003 14:11:22
Tobi
Hallo Leute,
eine Frage: habe ein Userform erstellt. Beim Verlassen - durch dürcken eines CommandButtons - möchte ich, dass das Workbook gespeichert wir. Entweder soll das ganz normale Speichern unter Fensster aufgehen, oder noch besser es ist wie bei Herber wenn man ein neuen Beitrag verfasst (Oben Testfeld und Duchsuchen... button). Geht das auch mit Exel?? Und geht das auch, dass er den namen aus einer Zelle zieht? Z.B. in A1 steht Vorlage und es wird dann unter Vorlage.xls gespeichert.
Vielen Dank für Eure Hilfe.
Bis denne
Tobi

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

Betreff
Datum
Anwender
Anzeige
AW: Speichern unter... in Userform
09.07.2003 17:33:52
Bernhard
Hallo Tobi,
ich hab folgenden Vorschlag:
' Speicherdialog zur Bestimmung des Dateinamens aufrufen
saveas_filename = Application.GetSaveAsFilename(initialFilename:=ActiveWorkbook.Path & "\Vorlage.xls", fileFilter:="MyData (*.xls), *.xls")
'oder wenn Filename in einer Zelle steht:
saveas_filename = Application.GetSaveAsFilename(initialFilename:=ActiveWorkbook.Path & "\" & Range("A1).value, fileFilter:="MyData (*.xls), *.xls")

' falls Anwender auf Abbrechen gedrückt hat:
If saveas_filename = False Then
strTxt = "Sie haben den Speichervorgang abgebrochen. Die Daten wurden nicht exportiert!" & Chr(13) & Chr(13) & _
"----------------------------------------------------------" & Chr(13) & Chr(13) & _
"The save process has been aborted by you. The analysis results are not been exported!"
MsgBox strTxt, vbCritical
Exit Sub
End If
'Dann:
ActiveWorkbook.SaveAs Filename:=saveas_filename, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Hoffe das hilft dir weiter
Gruss,
Bernhard

Anzeige
AW: Speichern unter... in Userform
09.07.2003 14:23:53
ivan
HI Tobi
versuche das mal

Private Sub ende_Click()
Application.DisplayAlerts = False
Application.Visible = True
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
End Sub

gruss
ivan

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige