Speichern unter
28.02.2003 09:11:45
Mike
in meiner Tabelle steht in N4 das Datum. Aus diesem Datum wird dann die Woche ermittelt und in J4 geschrieben. Dort steht die Formel "=Din_KW(N4) und ist formatiert => 0". Woche".
Wenn ich die Tabelle nun speichern möchte (F12), bewirkt nachfolgendes Makro, dass es z.B. so gespeichert wird => 10. Woche
Private Sub SpeichernUnter()
Dim strFileName As String, strPath As String
strFileName = "" & Range("J4") & ".xls"
strPath = "C:\Eigene Dateien\Kraichgau-Klinik\Wochenpläne\"
If Dir(strPath & strFileName) <> "" Then
Application.Dialogs(xlDialogSaveAs).Show (strFileName)
Else
ThisWorkbook.SaveAs strPath & strFileName
End If
End Sub
Das Problem dabei ist nun, dass die Wochen 1 bis 9 auch nur als 1. Woche bis 9. Woche gespeichert werden und die Sortierreihenfolge im Ordner durcheinanderbringen.
Ich möchte aber nicht die Formatierung in 00". Woche" ändern. Es soll in der Tabelle weiterhin z.B. 5. Woche angezeigt werden. Nur das Format des gespeicherten Namens soll geändert werden. Lässt sich das im Makro machen?
Gruß
Mike