siehe datei.
Die Datei https://www.herber.de/bbs/user/5208.xls wurde aus Datenschutzgründen gelöscht
für antworten danke ich im voraus bestens:-)
Patrik Wiest
Die Datei https://www.herber.de/bbs/user/5208.xls wurde aus Datenschutzgründen gelöscht
Private Sub ComboBox1_Change()
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Worksheets("Sheet1")
Set WS2 = Worksheets("Sheet2")
WS1.Range("I8") = WS2.Cells(ComboBox1.ListIndex + 1, 2)
End Sub