Werte in TB nebeneinander anzeigen
18.12.2017 09:13:25
Daniel
falls in Spalte 9 ein X eingetragen soll es mir die Spalten 8 und 7 nebeneinander in die ListBox in einer UserForm eintragen. Wie bekomme ich die Werte nebeneinander ?
Schönen Tag euch und Danke. Daniel
Werte werden bereits aufgenommen, allerdings untereinander: bisheriger Code:
Private Sub LB_1_Change()
LB_1.ColumnCount = 2
End Sub
Private Sub UserForm_Activate()
Dim wsP As Worksheet: Set wsP = Worksheets("Personalpflege")
Dim c As Range
With wsP
For Each c In .Range(.Cells(26, 9), .Cells(.Rows.Count, 9).End(xlUp))
If c.Value = "X" Then LB_1.AddItem c.Offset(, -1).Value
If c.Value = "X" Then LB_1.AddItem c.Offset(, -2).Value
Next c
End With
End Sub
Anzeige