Werte aus LB in Range schreiben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
Bild

Betrifft: Werte aus LB in Range schreiben
von: Chris
Geschrieben am: 29.05.2015 11:10:31

Hallo VBAler,
ich möchte mit der Maus selektierte Einträge aus einer Listbox in einen bestimmten range untereinander schreiben. Leider tut sich nix bei meinem Makro. Zum Testen habe ich ein Sheets genommen, das gar nicht existiert - und es gab keine Fehlermeldung. Offensichtlich wird das Makro ignoriert...
jmd eine Idee?
---
Zum Füllen der LB:

Private Sub Worksheet_Activate()
UserForm1.Show
With UserForm1.ListBox1
.ColumnCount = 3
.ColumnWidths = "50;50;50"
.ColumnHeads = True
.RowSource = "'Admin'!E2:G3"
 
    End With
  End Sub
---
Doppelklick auf LB-Objekt dann eingefügt:
Private Sub ListBox1_Click()
Dim zeile As Long
zeile = 1
 With UserForm1.ListBox1
                  
     For i = 0 To .ListCount - 1
            If .Selected(i) Then
                Sheets("Admin").Cells(zeile, 2) = ListBox1.Column(1, i)
                zeile = zeile + 1
                End If
                Next i
                End With
          
End Sub
Gruß
Chris

Bild

Betrifft: Doppelt
von: Hajo_Zi
Geschrieben am: 29.05.2015 11:12:01
https://www.herber.de/forum/messages/1428311.html

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Werte aus LB in Range schreiben"