Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen

Gruppe

ListBox

Problem

Wie kann ich die jeweilige Auswahl in einer Tabellenblatt-ListBox im Moment der Auswahl in die Zellen eines Arbeitsblattes übernehmen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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