Ahoi,

ich habe folgendes Problem:

Ich greife mit einer Combobox auf meinem Blatt 1 auf eine Liste vom letzten Blatt zurück, was auch alles wunderbar funktioniert.
Nun würde ich gerne, dass bei einer bestimmten Auswahl in meiner Combobox die zugehörige Spalte A in eine Zelle auf Blatt 1 übertragen wird.
Meine Idee war jetzt:

Private Sub größe_neu()
If ComboBox21.ListIndex > 0 Then
Cells(2, 18).Value = Worksheets("Reifenliste").Cells(ComboBox21.ListIndex + 1, 1).Value
End If
End Sub

Das funktioniert auch soweit und die Zelle gibt beim ausführen auch die richtige Größe an.

Nun soll das natürlich automatisch beim Auswählen in der Combobox passieren und nicht erst, wenn ich die Aktion durchführe. Dazu habe ich bisher:

Private Sub Worksheet_change(ByVal Target As Range)

Call ComboBox21_Change
Call größe_neu

End Sub

Da tut sich leider nichts. Hat jemand eine Idee?

Vielen Dank im Voraus.

MfG

lochi

lochhocker schrieb:

Nun soll das natürlich automatisch beim Auswählen in der Combobox passieren

Dann musst du das SelectedIndexChanged-Event der Combobox abfangen und nicht das Worksheet_Change