AW: Mehrfachauswahl in UF
15.08.2005 21:45:50
Ralf
Hallo Wolfgang,
noch am Basteln? Viel Erfolg!
Zunächst stelle die Eigenschaft der Listbox auf 1 (Multi). Zum Einlesen und markieren dann folgender Code:
Option Explicit
Private Sub UserForm_Activate()
Dim Bereich$, Wert
Bereich = "A1:A" & ActiveCell.SpecialCells(xlCellTypeLastCell).Row
For Each Wert In Application.Range(Bereich)
ListBox1.AddItem Wert
Next
End Sub
Private Sub CommandButton1_Click()
Dim i%
For i = 0 To ListBox1.ListCount - 1
Range("A" & i + 1).Interior.ColorIndex = xlNone
If ListBox1.Selected(i) Then
Range("A" & i + 1).Interior.ColorIndex = 3
ListBox1.Selected(i) = False
End If
Next i
End Sub
Ciao, Ralf