Werte aus LB in Range schreiben
29.05.2015 11:10:31
Chris
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
Chris
Anzeige