Input Box Zahlenformat erzwingen
19.08.2019 11:18:02
Georg
In der Input Box mValue soll für den Monat eine Zahl eingegeben werden in dem Format:
z. B. für den Mont Juli: 07 etc..
Leider schneidet er beim Speichern dann die Null ab und es erscheint:
2019-7_SQL_Daten_Juli.xlsx
Ich hab schon überlegt beim Speichern die Null so mitzugeben "0", aber natürlich soll z. b. im Oktober dann nicht 2019-010_SQL-Daten_Oktober.xlsx erscheinen.
gibt es dafür eine Lösung? Viele Dank und Gruß G
Sub Monat()
Dim mValue As Long
mValue = Application.InputBox( _
prompt:="Bitte eine Zahl für den Monat eingeben:", _
Type:=1)
Monat = Application.InputBox("Geben Sie den Monat ein")
Dim strDateiname As String
ChDrive "Q:\"
strDateiname = ("2019-" & mValue & "_" & "SQL_Daten_" & Monat & ".xlsx")
' strDateiname = ("SQL_Daten_" & Monat & "_" & "2019.xlsx")
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSaveAs).Show (strDateiname), 51
Application.DisplayAlerts = True
End Sub
Anzeige