Schleife durch Texfelder
07.08.2003 15:02:16
björn
mit der unten aufgeführten Schleife möchte ich die Werte der Textfelder 1 bis 8 mit einander vergleichen und erreichen, dass die UserForm sich nur dann schließt, wenn die Textfelder z.B. folgende Reihenfolge bzgl. Jahreszahlen haben: Textfeld8 = 1997, Textfeld7= 1998, bis Textfeld1 = 2004. Also fortlaufende Jahreszahlen sollen in den Textfeldern stehen und damit soll der Wert in Textfeld8 um ein Jahr jünger sein als der Wert in Textfeld7 usw. Weiterhin soll die Userform sich nur dann schließen, wenn die Jahreszahl, die eingegeben wird, 4 Ziffern hat und darüberhinaus nur Ziffern sollen erlaubt sein im Hinblick auf eine Eingabe. Dafür hab ich noch keine Lösung.
Könnt Ihr mir helfen.
Vielen Dank im Voraus
Björn
Private Sub CommandButton1_Click()
Dim N
For N = 1 To 7
If (TextBox(N).Value = TextBox(N + 1).Value + 1) = False Then
MsgBox "Die Planperioden sind nicht aufeinander folgend. Bitte korrigieren Sie Ihre Eingabe."
Else:
Next
UserForm2.Hide
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub