Hallo,
ich habe folgendes Problem:
Ich möchte per Makro eine Excel-Datei speichern, ausdrucken, schliessen und direkt ein neues Excel-sheet öffnen. Das klappt auch wunderbar.
Allerdings wird eine der Zellen, aus denen sich der Speichername der Datei ergeben soll, nicht richtig erkannt. Die Zelle ist so formatiert, das sie aus der Datumseingabe den Zell-Inhalt "Antrag vom dd.mm.yyyy" ausgiebt. Wenn ich dann das Makro laufen lasse, wird allerdings lediglich das Datum als Ganzzahl und ohne den vorstehenden Text im Dateinamen gespeichert.
Woran kann es liegen?
hier das Makro:
Sub autospeichern()
ThisWorkbook.PrintOut
Dim strDatNam As String, strEx As String, sNr As String, i As Long
'...
strDatNam = "H:\...\" & Range("C3") & "_" & Range("H3") & "_" & Range("C4").Formula 'Dateiname ohne Erweiterung '
strEx = ".xls" 'Dateinamenserweiterung (mit Punkt)
Do While Dir(strDatNam & sNr & strEx) <> "" 'Falls Datei vorhanden
i = i + 1 'Zähler erhöhen
sNr = "_" & CStr(i) 'für neuen Dateinamen
Loop
ThisWorkbook.SaveAs Filename:=strDatNam & sNr, FileFormat:=xlWorkbookNormal
Workbooks.Open Filename:="H:\...\RK 09_15\" & "_rk abrechnung_2.xls" 'Speicherpfad der Masterdatei
Application.DisplayAlerts = False 'PopUp abschalten
ThisWorkbook.Close 'Datei schließen
SaveChanges = False 'Ohne speichern
Application.DisplayAlerts = True 'PopUp einschalten
End Sub
|