if funktion

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox MsgBox
Bild

Betrifft: if funktion von: Markus
Geschrieben am: 10.02.2005 10:30:13

Hallo,

ich habe folgenden Code:

With TextBox5
If Not IsDate(.Text) Or _
InStr(.Text, ":") Or _
.TextLength <> 10 Then
Cancel = True
Beep
MsgBox "Falsche Datumseingabe." & Chr(13) _
& "Bitte Datum im Format TT.MM.JJJJ eingeben"
.SetFocus
.SelStart = 0
.SelLength = .TextLength
Exit Sub
End If
End With

2. probleme

1. der Code soll nicht ausgeführt werden, wenn die textbox5 leer ist

If textbox5 = "" then
hier weiß ich nicht was kommen muss... exit sub?

2. der oben stehende code ist nur ein Teil mittendrin. D.h. wenn ich mit exit sub arbeite bricht ja auch der noch folgende code ab, dass soll es aber nicht....

Ich hoffe jemand hat ne lösung parat.

Danke

Markus

Bild


Betrifft: AW: if funktion von: Daniel
Geschrieben am: 10.02.2005 10:32:13

Hi, arbeite in beiden Fällen mit der goto Funktion:

if ..... then
goto ort1
....
....
ort1:
...

mfg Daniel


Bild


Betrifft: AW: if funktion von: Markus
Geschrieben am: 10.02.2005 10:36:01

ja das klingt gut!

nur wie gebe ich den ort an wo ich hinspringen will?

Danke
Markus


Bild


Betrifft: AW: if funktion von: Markus
Geschrieben am: 10.02.2005 10:46:11

oh man du hast ja die lösung mitgegeben....

ich idiot!!!

danke


 Bild

Beiträge aus den Excel-Beispielen zum Thema "if funktion"