Check Box Abfrage Mehrfachauswahl
23.08.2017 09:30:11
Nicolas
ich möchte eine Excel Liste erstellen bei der ich in einer Spalte jeweils eine oder mehrere Personen mit einer Checkbox eintrage. Ich habe einen Code aus dem Forum genommen, der funktioniert soweit auch, allerdings nur in einer Zeile.
Hat jemand eine Idee wie ich diesen Code auf alle Zeilen (sonst geht auch nur bis z.B. Zeile 300) der Spalte anwende? Hab schon etwas rumprobiert, da ich den Code aber mangels VBA Kenntnissen nicht wirklich interpretieren kann tue ich mir da etwas schwer.
Option Explicit
Private Const strSep = " " 'Trennzeichen zwischen Namen, wenn Namen Leerzeichen enthalten, dann _
_
_
_
_
anderes Zeichen wählen
Private Sub ListBox1_Change()
Dim strText, intK!, intL!
With Me.ListBox1
Application.EnableEvents = False
For intL = 0 To .ListCount - 1
If .Selected(intL) = True Then
If strText = "" Then
strText = .List(intL, 0)
Else
strText = strText & strSep & .List(intL, 0)
End If
End If
Next
Me.Cells(4, 4).Value = strText
Application.EnableEvents = True
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim varSplit, intK!, intL!, strText As String
If Target.Row = 4 And Target.Column = 4 And Target.Cells.Count = 1 Then
strText = Target.Text
With Me.ListBox1
Application.EnableEvents = False
For intL = 0 To .ListCount - 1
.Selected(intL) = False
Next
If strText "" Then
varSplit = Split(strText, strSep)
For intK = LBound(varSplit) To UBound(varSplit)
For intL = 0 To .ListCount - 1
If .List(intL, 0) = varSplit(intK) Then
.Selected(intL) = True
Exit For
End If
Next
Next intK
End If
.Top = Target.Offset(1, 0).Top
.Visible = True
Application.EnableEvents = True
End With
Else
Me.ListBox1.Visible = False
End If
End Sub
Wäre super wenn jemand von euch behilflich sein könnte!
Vielen Dank schonmal.