Gruppe
Funktion
Problem
Eine Matrix enthält eine Gewichts- und eine Gebietsstaffelung. Wie kann ich durch Eingabe dieser beiden Faktoren die Portokosten errechnen lassen?
ClassModule: frmDatumZeit
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub TextBox1_BeforeUpdate( _
ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text) < 16 Then Cancel = True
End Sub
Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 16 Then
If IsDate(TextBox1.Text) = False Then
MsgBox "Keine gültige Eingabe!"
Else
MsgBox "Datum: " & Left(TextBox1.Text, 10) & _
vbLf & "Zeit: " & _
Right(TextBox1.Text, 5)
End If
End If
End Sub
Private Sub TextBox1_KeyPress( _
ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[0-9.: ]" = False Then
KeyAscii = 0
End If
End Sub
StandardModule: basMain
Sub CallForm()
frmDatumZeit.Show
End Sub