ich habe folgendes Makro bearbeitet und leider speichert es mir immer gleich 2 Dateien.
Ich möchte nur die mit dem Nahmen aus "A50" und dem Datum.
Die Datei ohne Datum benötige ich nicht.
Wie muss das Marko richtig aussehen?
Danke für eure Hilfe
Tschau Frank
'
Sub SpeichernUnter()
'Dim dialog As Object
'Dim pfad As String
'Dim Datei As String
'pfad = "C:\Abrechnung\Wochen\"
'Datei = ActiveSheet.Range("A50")
'Set dialog = Application.FileDialog(msoFileDialogSaveAs)
'With dialog
'.InitialFileName = pfad & Datei
'.Show
'End With
'If dialog False Then dialog.Execute
' With ThisWorkbook
' Call .Save
' Call .SaveCopyAs(Filename:=Left$(.FullName, InStrRev( _
' .FullName, ".") - 1) & Format(Now, "-ddmmyyyy-hhnn") & ".xls")
' End With
'Application.ScreenUpdating = True
'Application.DisplayAlerts = False
'ActiveWorkbook.SaveAs Filename:="C:\Abrechnung\Wochenzettel.xls"
'Application.DisplayAlerts = True
'End Sub