Wenn Monat = 1, dann...
11.07.2003 21:49:28
Heiner
ein Problem:
Die TextBox (Std_Ist) wird ausgeblendet, wenn in Tabelle1 Zelle C4 eine 1 steht.
Wenn in Tabelle1 Zelle C4 eine 2 steht, wird die TextBox (Std_Ist) wieder eingeblendet und eine Eingabe ist zwingend erforderlich.
Mein Problem:
Die TextBox wird auch abgefragt, wenn sie ausgeblendet und leer ist.
Das soll natürlich nur geschehen, wenn in Tabelle C4 eine 2 steht und sie sichtbar ist!
Wer kann meinen Code dem entsprechend umstricken?
Private Sub CommandButton1_Click()
With ANGABEN_ANFANGSWERTE
If .Std_Ist.Value = "" Then Call FehltWas: .Std_Ist.SetFocus: Exit Sub
Range("DISPO!F53") = ANGABEN_ANFANGSWERTE.[MIN_Std].Text
Range("DISPO!F54") = ANGABEN_ANFANGSWERTE.[Std_Ist].Text
Range("DISPO!F56") = ANGABEN_ANFANGSWERTE.[FRZ_Kto].Text
Range("DISPO!F55") = ANGABEN_ANFANGSWERTE.[ZUS_Std].Text
Range("DISPO!F57") = ANGABEN_ANFANGSWERTE.[Url_Alt].Text
Range("DISPO!F57") = ANGABEN_ANFANGSWERTE.[Url_Neu].Text
Range("DISPO!L76") = ANGABEN_ANFANGSWERTE.[Url_Neu].Text
Range("DISPO!F59") = ANGABEN_ANFANGSWERTE.[ZUS_Tage].Text
End With
Unload Me
End Sub
Vielen Dank im Voraus!
Gruss, Heiner