Hi Paul,
[code]Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then
Range(Cells(ComboBox1.ListIndex + 1, 1), Cells(ComboBox1.ListIndex + 1, 6)).Copy _
Tabelle2.Range("A1")
ComboBox1.Text = ComboBox1.List(ComboBox1.ListIndex, 0) & " " & _
Format(ComboBox1.List(ComboBox1.ListIndex, 1), " #.#0 €")
End If
End Sub[/code]
Bis später,
karin