Eingabe in Userform erzwingen ??
22.12.2004 13:01:46
Marcel
Im zweiten If Block soll überprüft werden ob in dem Textfeld eine Zahl steht.
Funktioniert nicht!??
Private Sub CommandButton1_Click()
With Sheets(1).Cells(65536, 4).End(xlUp)
.Offset(2, 1) = CDbl(Me.CobMAt)
.Offset(2, 0) = CDbl(Me.MengeTX)
End With
If Me.CobMAt.ListIndex = -1 Then
MsgBox "Kein Schüttgut, Bestellung dieses Materials nicht zugelassen"
Me.CobMAt.ListIndex = -1
Me.CobMAt.SetFocus
With Sheets(1).Cells(65536, 4).End(xlUp)
.Offset(0, 1) = ""
.Offset(0, 0) = ""
End With
End If
If Me.MengeTX = "" Then
MsgBox "Bitte Menge eingeben"
Me.MengeTX.SetFocus
Exit Sub
End If
With Me
.MengeTX = ""
.CobMAt.ListIndex = -1
.CobMAt.SetFocus
End With
End Sub
Gruß Marcel