Sub Makro22BlattDateiWechsel()
'
Dim michala As String
Dim heute As String
Dim morgen As String
Dim arbeiten As String
'========================================
nochmal:
arbeiten = InputBox("Ziel Name Metall Holz ." & Chr(10) & Chr(10) & _
"Später Morgen Heute Liste ." & Chr(10) & Chr(10) & _
"Kleinteile Kopfteil Zeit Hilfe .", " Welchen Abschnitt brauchst Du ?", "Eingabe wie Vorgabe")
===============so funktioniert es natürlich nicht================
If arbeiten "Ziel" Then Or monat "Name" Or monat "Metall" Then
MsgBox "Eingabe Falsch"
GoTo nochmal
End If
.====================================================
meine Frage , wie/wo lese ich diese Namen ein,sage ihm merke sie dir,
vergleiche mit eingabe InputBox ,
wenn If arbeiten GoTo nochmal
wenn If arbeiten Then , Exit For
wenn richtig geht es weiter
heute = ActiveWorkbook.Name
kann mir bitte wer helfen.
Danke michael