Private Sub ComboBox2_Enter()
Dim strVERGLEICH As String
On Error Resume Next
strVERGLEICH = ComboBox1.Text
Select Case strVERGLEICH
Case 56
ComboBox2.RowSource = "Tabelle1!B2:C4"
Case 81
ComboBox2.RowSource = "Tabelle1!B6:C7"
End Select
On Error GoTo 0
End Sub
Private Sub ComboBox3_Enter()
Dim strVERGLEICH As String
On Error Resume Next
strVERGLEICH = ComboBox2.Text
Select Case strVERGLEICH
Case "L"
ComboBox3.RowSource = "Tabelle1!D2:E2"
Case "M"
ComboBox3.RowSource = "Tabelle1!D3:E3"
Case "N"
ComboBox3.RowSource = "Tabelle1!D4:E4"
End Select
On Error GoTo 0
End Sub