Thema: Erste Spalte in Arbeitsblatt

Home

Aus der mehrspaltigen ListBox werden die Elemente aus der ersten Spalte der selektierten Zeilen in Spalte A des Tabellenblattes geschrieben.

Prozedur: cmdAuslesen
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Erste Spalte in Arbeitsblatt
Ablaufbeschreibung:
- Variablendeklaration
- Spalte A zurücksetzen
- Schleife über alle Zeilen der ListBox bilden
- Wenn die aktuelle Zeile markiert ist...
- Zeilenzähler um eins hochzählen
- Wert der ersten Spalte der aktuellen Zeile in Spalte A des Tabellenblattes eintragen

Code:


Private Sub cmdAuslesen_Click()
   Dim iCounter As Integer, iRow As Integer
   Columns(1).ClearContents
   For iCounter = 1 To lstAuslesen.ListCount - 1
      If lstAuslesen.Selected(iCounter) Then
         iRow = iRow + 1
         Cells(iRow, 1).Value = lstAuslesen.List(iCounter, 0)
      End If
   Next iCounter
   Unload Me
End Sub