|
Du verzweigst zwar wie ein Wilder aber wenn du damit fertig bist
schreibst du trotzdem alles raus.
Iregndwie eh ein völlig wirres konstrukt
Keep it Simple !
Die Elseif Konstrukte machen nur bei extrem Zeitkritischen Sachen Sinn.
eines der schenllsten Dinge in VBA sind if then abfragen
Das ist keine SQR funktion die richtig Zeit brauch.
Einfach der Reihe nach die Fälle sauber und einfach abarbeiten !
function inputonempty(MSG, wert) as string
if WERT="" then
inputonempty=inputbox("MSG,"KORREKTUR",)"
else
inputonempty=WERT
endif
end function
'------------------------------------------------
sub main
if DATENSATZ.X=inputboxempty("Da fehlt X !",DATENSATZ.x)
'wenn der kram immer noch leer ist...
if DATENSATZ.X="" then goto error 'abbruch
'ziemlich nervende Variante...
while DATENSATZ.Y=""
DATENSATZ.Y=inputboxempty("Da fehlt Y !",DATENSATZ.y)
wend
'hier ist nun alles im Lot wir können was machen
call MACHWAS(DATENSATZ)
'oder halt deine Verarbeitungsschritte hier einfügen
exit sub
error:
msgbox "Fehlerhafte Eingabe -> EXIT""
end sub
|