Betrifft: Dateiname beim speichern immer 2stellig
von: 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
Betrifft: AW: Dateiname beim speichern immer 2stellig
von: Hajo_Zi
Geschrieben am: 07.01.2010 17:22:10
Hallo Dirk,
nicht .Value sondern .Text
Betrifft: Vielen Dank Hajo! Genau so soll es ein! owT
von: Dirk der Xte
Geschrieben am: 07.01.2010 17:37:22
Gruß Dirk
Betrifft: AW:wenn es unabhängig von der Zellformatierung
von: Daniel
Geschrieben am: 07.01.2010 17:50:15
sein soll, dann so:
strName = Format(ActiveSheet.Range("H9").Value, "00")
Gruß, Daniel
Betrifft: @Daniel, klappt auch :-) Danke! owT
von: Dirk der Xte
Geschrieben am: 08.01.2010 09:17:28
Gruß Dirk
Betrifft: Nachfrage: Erweiterung um Fehlerabfrage
von: Dirk der Xte
Betrifft: AW: Nachfrage: Erweiterung um Fehlerabfrage
von: welga
Sub Speichern()
Dim strName As String
Const Pfad As String = "G:\Rechnungen 2010\"
strName = ActiveSheet.Range("H9").Value
if strName="" then
MsgBox "Kein Dateiname vorhanden"
exit sub
end if
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Pfad & "2010-" & strName & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
End Sub
Betrifft: @welga: perfekt! Vielen Dank! owT
von: Dirk der Xte
Geschrieben am: 08.01.2010 09:51:25
Gruß Dirk