wie ich kann ich bitte mittels Eingabefenster den Dateinamen (TestTEXT) ändern, damit eine gewünschte Abspeicherung erfolgen kann.?
ChDrive "C:"
exportfile = "C:\Download\TestTEXT" & Tag & "_" & Uhrzeit & ".txt"
Danke
Josef
Sub speichern()
Dim TestTEXT As String
TestTEXT = InputBox("Namen eingeben...")
If TestTEXT = "" Then Exit Sub
ChDrive "C:"
exportfile = "C:\Download\" & TestTEXT & "_" & Day(Date) & "_" & Format(Time, "hh-mm-ss") & ".txt"
MsgBox exportfile
End Sub