|
Hallo,
Ich habe eine UserForm, in der die Combobox1 mit bestimmten Zellen von Tabelle12 gefüllt wird (insgesamt 6 auswahlmöglichkeiten).
Dann sind in der Userform noch ein paar Textboxen, die sollen dann mit Zelleninhalten gefüllt werden die ein paar Zellen neben und unterhalb meiner ausgewählten Zelle in der ComboBox stehen.
Hab jetzt mal folgendes probiert:
Private Sub ComboBox1_Change()
Dim finden As Range
With Worksheets("Tabelle12")
Set finden = .Range("I5:U47").Find(What:=ComboBox1.Text, LookIn:=xlValues, lookat:=xlWhole) 'Bereich Suche
MsgBox finden 'Hier gibt er mir "finden" richtig aus, also bis hier her funktioniert alles
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 'Ausgabe + herkunfts Spalte
End If
End With
End Sub
Hat jemand eine Idee, was ich anders machen muss.
Mfg Simn
|