Dateiname beim speichern immer 2stellig
07.01.2010 17:20:05
Dirk der Xte
Hallo zusammen,
anbei ein funktionierender CODE zum speichern von TB-Blättern.
Mein Problem:
In H9 stehen Zahlen von 01 bis x (Format Typ 00)
Beim speichern sieht es dann aber so aus: 2010-1.xlsx
Wie bekomme ich die 01 in den Speichernamen?
Kann mir bitte jemand helfen?!
Vielen Dank
Gruß Dirk
Sub Speichern()
Dim strName As String
Const Pfad As String = "G:\Rechnungen 2010\"
strName = ActiveSheet.Range("H9").Value
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Pfad & "2010-" & strName & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
End Sub