aktuellen Monat im Dateinamen verwenden
09.07.2019 14:58:16
Georg
es gibt wahrscheinlich eine bessere Lösung, als meine: ich möchte den aktuellen Monat beim Speichern mitverwenden: so sollte das Format ausschauen, siehe auch im Code: xxxx_07_Juli_xxxx
Gelöst habe ich es mit Inputboxen, die der Anwender natürlich befüllen muss. Dies würde ich gerne umgehen.
VIELEN DANK G
Sub Monat()
Dim strDateiname as String
Dim zMonat As String
Dim nMonat As String
zMonat = Application.InputBox("Zahl für den Monat eingeben - Format MM")
nMonat = Application.InputBox("Monatsname eingeben")
strDateiname = ("2019-'" & zMonat & "_" & "Prüfdatei" & "_" & nMonat & "_BBa.xlsx")
End Sub
Anzeige