Nachdem ich nun das Herber-Forum des Öfteren als Leser zu Rate gezogen habe,
widme ich mich nun an die Community als schreibender User.
Ich würde gerne mit dem u.a. VBA-Code die übrig gebliebenen Filter-Ergebnisse (Auto-Filter-Funktion)ressourcenschonend in eine ComboBox übertragen via "ComboBox0.List = List0(Sheets(1), 1)".
Leider kann ich meinen bisherigen Code nicht so erweitern, dass er mir nur die sichtbaren Zellen ausliest.
Ich habe schon viele Befehle versucht zu integrieren, die allesamt schiefgelaufen sind. Das liegt wahrscheinlich
mehr an meiner mangelnden Erfahrung in VBA, als an Excel ;-)
Function List0(sh As Worksheet, lngCol As Long)
'lngCol gibt die Spalte gezählt von links an
lngCol = 4
Dim vntList(), n As Long, vntC, vntTmp
Dim myCol As New Collection
With sh
ReDim vntList(1 To 1, 1 To Application.CountA(.Columns(lngCol)))
vntTmp = .Range(.Cells(3, lngCol), .Cells(Rows.Count, lngCol).End(xlUp))
End With
For Each vntC In vntTmp
Err.Clear
On Error Resume Next
myCol.Add vntC, CStr(vntC)
If Err.Number = 0 Then
n = n + 1
vntList(1, n) = vntC
End If
Next
ReDim Preserve vntList(1 To 1, 1 To n)
List0 = WorksheetFunction.Transpose(vntList)
End Function
Für jegliche Hilfe wäre ich Euch sehr dankbar!
Viele Grüße,
Patrick