ich habe ein Problemchen und komme einfach nicht weiter.
Ich habe eine Datei, die mittels Commandbutton eine Kopie dieser Datei speichern soll. Das funktioniert auch soweit. Wird jedoch der Vorgang abgebrochen, dann speichert Excel immer eine Datei mit dem Namen "False" ab. Ich bekomme dieses Fehlverhalten nicht in den Griff.
Hier der Code:
Private Sub CommandButton20_Click()
Dim NeuerName As String
Dim Pfad As String
Dim Filter As String
'Application.DisplayAlerts = False
NeuerName = ActiveSheet.Range("G19")
Filter = "Excel Files (*.xlsm), *.xlsm"
If NeuerName = "Keine Name" Then
MsgBox "Name in G19 eingeben", vbOKOnly + vbCritical
Exit Sub
End If
If NeuerName = "False" Then
MsgBox "Vorgang abgebrochen", vbOKOnly + vbCritical
Else
ActiveWorkbook.SaveCopyAs Filename:=Application.GetSaveAsFilename(NeuerName, Filter, _
FilterIndex:=2) ', FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True
End If
'Application.DisplayAlerts = True
End Sub
Hat jemand da ein Lösungsvorschlag?
Vielen Dank.
Gruß