Private Sub ComboBox1_Change()
Dim finden As Range
With Worksheets("Tabelle12")
Set finden = .Range("I5:U47").Find(What:=ComboBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
MsgBox finden
Dann schaffe ich es aber nicht, dass er den Offset für das füllen der TextBoxen nimmt. Hier bringt er einen Laufzeitfehler:
If Not finden Is Nothing Then
TextBox2.Value = .Cells(finden.Row + 12, 0).Value
TextBox3.Value = .Cells(finden.Row + 12, 1).Value
TextBox7.Value = .Cells(finden.Row + 12, 3).Value
TextBox15.Value = .Cells(finden.Row, 4).Value
End If
End With
End Sub