Problem wenn gefilterter Bereich leer ist
02.08.2017 09:16:12
Peter
ich habe mit der UF füllen Listbox folgendes Problem:
Ich filter die Tabelle. Wenn ein Wert vorhanden ist, dann wird die Listbox ordnungs- gemäss gefüllt.
Wenn jedoch kein Wert vorhanden ist, dann erfolgt Fehlermeldung: Laufzeitfehler 380
Eigenschaft Column konnte nicht gesetzt werden. Ungültiger Eigenschaftswert.
Mehrere Versuche den Fehler zu beseitigen schlugen leider fehl.
Anbei meine Userform_Initialize mit der Bitte um Fehlerkorrektur.
Private Sub Userform_Initialize()
'variable zum Füllen von Listbox4
Dim arr() As Variant
Dim iRow As Long, iRowU As Long, BLetzte As Long
'zuständige Tabelle auswählen
Worksheets("Personaldatei_aktuell").Activate
'hier wird der Filter ausgeführt
Call MakroFiltern
ListBox4.Clear
With ListBox4
.Font.Size = 10
.ColumnHeads = False 'beim Filtern nicht möglich
.ColumnCount = 8
.ColumnWidths = ("6,5cm;6,3cm;3,3cm;2,6cm;2,3cm;2,6cm;2,0cm;1,0 cm")
'A B C D E F G H
End With
BLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
For iRow = 3 To BLetzte
If Not Rows(iRow).Hidden Then
If Cells(iRow, 1) "" Then
ReDim Preserve arr(0 To 7, 0 To iRowU)
arr(0, iRowU) = Cells(iRow, 1)
arr(1, iRowU) = Cells(iRow, 2)
arr(2, iRowU) = Cells(iRow, 3)
arr(3, iRowU) = Cells(iRow, 4)
arr(4, iRowU) = Cells(iRow, 5)
arr(5, iRowU) = Cells(iRow, 6)
arr(6, iRowU) = Cells(iRow, 7)
arr(7, iRowU) = iRow
iRowU = iRowU + 1
End If
End If
Next iRow
ListBox4.Column = arr
'Ende ListBox4
'Anfang Comboboxes
'Auflistung Geschlecht
With ComboBox1
.RowSource = "Hilfstabelle!AX2:AX3"
End With
'Auflistung Anrede_Zusatz
With ComboBox2
.RowSource = "Hilfstabelle!AY2:AY5"
End With
'Auflistung Auswahl Zusatz
With ComboBox3
.RowSource = "Hilfstabelle!AZ2:AZ5"
End With
End Sub
Besten Dank für eure Hilfe.
Gruss
Peter