Option Explicit
Dim cell1 As Variant
Dim cell2 As Range
Dim cell3 As Variant
Dim cell4 As Variant
Private Sub UserForm_Initialize()
Sheets("Tabelle2").Select
For Each cell1 In Range("A2:A7")
If Not cell1.Text = "" Then
ComboBox1.AddItem cell1.Text
End If
Next
End Sub
Private Sub ComboBox1_Change()
Sheets("Tabelle2").Select
Set cell2 = ActiveSheet.Cells.Find(what:=ComboBox1.Value)
If Not cell2 Is Nothing Then cell3 = cell2.Offset(, 1).Address
Range(cell3).Select
cell4 = ActiveCell.Offset(3, 0).Adress
ComboBox2.RowSource = (cell3) & (cell4)
End Sub