VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Portokosten aus einer Gewichts-/Gebietsmatrix errechnen

Gruppe

Funktion

Bereich

INDEX

Thema

Portokosten aus einer Gewichts-/Gebietsmatrix errechnen

Problem

Eine Matrix enthält eine Gewichts- und eine Gebietsstaffelung. Wie kann ich durch Eingabe dieser beiden Faktoren die Portokosten errechnen lassen?

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




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

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und INDEX