Excel CommandButton1

Hallo Andreas,



jetzt hat es einigermaßen geklappt, aber er nimmt mir das Datum und die Uhrzeit nicht an, da es einen Doppelpunkt enthält. Ich muss aber irgendein Zeichen oder irgendwas setzen, damit er nicht das vorangegange Überschreibt.



Da dachte ich, dass es mit der Uhrzeit am besten ist. Eine fortlaufende Nummer wäre natürlich gut, aber das ist mir ein bisschen zu umständlich. So gut kenn ich mich nicht in Excel aus.















So schaut das Formular (jpeg) aus. Wenn man natürlich noch eine fortlaufende Nummer einbauen könnte, wäre super. Aber soweit komm ich nicht.



DANKESCHÖN – Tausend Dank für Deine Hilfe

Martina

Vielen Dank für die schnelle Antwort.

Leider tut sich da gar nichts. Es steht auch nicht da, wohin er speichern soll. Muss man das nicht eingeben?

Ersetze den vorhandenen Code mit dem Code unten.

Andreas.

Private Sub CommandButton2_Click()
Dim FullName
'Vorgabe des Dateinames
FullName = Range("B2") & Range("H24")
'Dialog aufrufen
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = FullName
'Abbruch?
If Not .Show Then Exit Sub
FullName = .SelectedItems(1)
End With
'Kopie des Blattes in eine neue Datei
ActiveSheet.Copy
'Meldungen aus
Application.DisplayAlerts = False
'Speichern je nach gewähltem Typ
Select Case UCase(Right(FullName, 4))
Case "XLSM"
ActiveWorkbook.SaveAs FullName, xlOpenXMLWorkbookMacroEnabled
Case "XLSX"
ActiveWorkbook.SaveAs FullName, xlOpenXMLWorkbook
Case Else
MsgBox "Nicht unterstützter Dateityp, Datei wird nicht gespeichert!", vbCritical
End Select
End Sub

DANKE ANDREAS - Es funtkioniert

Gerne geschehen.

Wärst Du bitte so nett und markierst den Beitrag mit dem Code als Antwort? Vielen Dank.

Andreas.

Vielen Herzlichen Dank. Es funktioniert.

Echt klasse