Gruppe
Dialog
Problem
Wie kann ich die jeweilige Auswahl in einer Tabellenblatt-ListBox im Moment der Auswahl in die Zellen eines Arbeitsblattes übernehmen?
ClassModule: Tabelle1
Private Sub ListBox1_Click()
Dim iCounter As Integer, iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
For iCounter = 1 To 3
Cells(iRow, 0 + iCounter) = _
Tabelle2.Cells(ListBox1.ListIndex + 2, iCounter)
Next iCounter
End Sub