ich arbeite gerade an einer UserForm in der Daten eingegeben und in einer Tabelle ausgegeben werden. Klappt bislang auch super.
Nun komme ich jedoch beim Berechnen einer TextBox in Kombination mit einer ComboBox nicht weiter.
Zur Erklärung:
Ich nutze die UserForm und die Tabellen zur Kalkulation meiner Provision bei meinem Arbeitgeber. Diese wird aus einem prozentualem Anteil des Fahrtpreises erzielt. Dieser wiederum beruht auf einer Preisliste die nach km und Uhrzeit/Wochen-/Feiertag aufgebaut ist.
In meiner Tabelle ist also in einer Spalte (AO) ein km-Wert und ein zugehöriger Fahrtpreis nach Tag/Zeit (Spalten AP -> AS) eingetragen.
Die UserForm beinhaltet 2 Textboxen (km300 & SpalteBetrag): sowie eine ComboBox zur Auswahl der Spalte (Spalte).
Ziel des Ganzen:
In der TextBox "SpalteBetrag" soll der Betrag angezeigt werden der in der Zeile der TextBox "km300" eingegeben ist, und zwar aus der Spalte die in der ComboBox "Spalte" ausgewählt ist.
Hierzu habe ich mir, als absoluter VBA-Noob dies hier zusammenkopiert. Leider, und wie zu erwarten, ohne Erfolg.
Würde mich um Unterstützung sehr freuen.
Thorsten
Private Sub Spalte_Change()
Dim eingabe As Double
Dim Zeile As Long
If Spalte.Text = "1" Then
SpalteWert.Text = "AP"
ElseIf Spalte.Text = "2" Then
SpalteWert.Text = "AQ"
ElseIf Spalte.Text = "3" Then
SpalteWert.Text = "AR"
ElseIf Spalte.Text = "4" Then
SpalteWert.Text = "AS"
End If
eingabe = km300.Value
Zeile = Sheets("Tabelle3").Columns("AO:AO").Find(What:=eingabe, LookIn:=xlValues, Lookat:= _
xlWhole).Row
SpalteBetrag.Value = Sheets("Tabelle3").Range(SpalteWert.Text & ":" & SpalteWert.Text & _
Zeile)
End Sub