Makros verfolgen
25.10.2019 11:39:59
Frantisek
Nun habe ich gewechselt auf Excel für Mac Ver.16.30. Das Programm funktioniert nicht mehr richtig.
Irgendwo wird der Inhalt meiner Variablen (String) dTxt mit "" überschrieben oder zurückgesetzt. Aber wo?
Kann ich den Verlauf durch verschiedenen Makros nach "dTxt=" suchen und anzeigen? Vielleicht mit einer Schleife?
Dim dTxt As String, sPrompt As String
Sub Programm()
sTxt = InputBox("Bitte Anlass-Name eingeben:")
If sTxt = "" Then Exit Sub
sLeer = sTxt
Range("I5").Value = sTxt
Datum:
'
Sub SetPrompt()
sPrompt = "Nutzen Sie bitte folgende Syntax:" & vbLf & _
" 'dd.mm.yyyy' oder" & vbLf & _
" 'dd/mm/yyyy' oder" & vbLf & _
" 'dd-mm-yyyy':"
dTxt = InputBox(prompt:=sPrompt)
sName = sTxt & "_" & dTxt & ".pdf"
MsgBox dTxt 'hier wird Datum noch richtig angezeigt
On Error GoTo Errorhandler
'MsgBox CDate(dTxt)
Range("L5").Value = dTxt
Exit Sub
Errorhandler:
MsgBox "Kein gültiges Datumsformat!"
'GoTo DatumTarget.Address(False, False
End Sub
Danke für ihre Hilfe.