Problem bei UF Listbox - #NV
17.05.2017 14:02:03
Peter
wieder einman benötige ich eure Hilfe.
Ich habe eine UF mit ListBox. Diese fülle ich wie folgt:
Private Sub UserForm_Initialize()
Dim LRow As Long, i As Long
Dim wks1 As Worksheet
Set wks1 = Worksheets("Lehrer_Personaldatei_sortiert")
LRow = wks1.Cells(Rows.Count, 1).End(xlUp).Row
With Me
ListBox1.Clear
For i = 1 To LRow
'If UCase(Left(wks1.Cells(i, 1).Text, Len(TextBox1.Text))) = UCase(TextBox1.Text) Then
With .ListBox1
.ColumnCount = 9
.AddItem wks1.Cells(i, 1)
.List(.ListCount - 1, 1) = wks1.Cells(i, 2)
.List(.ListCount - 1, 2) = wks1.Cells(i, 3)
.List(.ListCount - 1, 3) = wks1.Cells(i, 4)
.List(.ListCount - 1, 4) = wks1.Cells(i, 5)
.List(.ListCount - 1, 5) = wks1.Cells(i, 6)
.List(.ListCount - 1, 6) = wks1.Cells(i, 7)
.List(.ListCount - 1, 7) = wks1.Cells(i, 8)
.List(.ListCount - 1, 8) = wks1.Cells(i, 9)
End With
'End If
Next i
End With
End Sub
Da aber in den Spalten E und F mittels Sverweis #NV sind, werden die Spalten in der Listbox nicht angezeigt.
Aber genau um diese #NV geht es mir.
Diese sind über Textbox abzuändern und zu ergänzen.
Wie kann ich erreichen, dass die beiden Spalten angezeigt werden und in den TextBoxes #NV erscheint.
Besten Dank für Eure Hilfe.
Gruss
Peter
Anzeige