Range von bis bei Filterarray wie?
28.01.2016 15:06:30
bis
zunächst möchte ich erst einmal meinen Dank an dieses tolle Forum bekunden, ihr habt mir schon oft mit Lösungsansätzen weitergeholfen.
Nun zu meinem derzeitigen Problem (bin leider kein VBA Spezie :( ):
Wie kann ich anstatt die Zeilen immer einzeln anzugeben z.B. eine Range ("A4:A100") angeben? Hier kommt bei mir immer ein Fehler :(
Dim sngIndex As Single
Dim ialngCount As Long
Dim astrFilterArray() As String
For sngIndex = 1 To 100
If OLEObjects("CheckBox" & CStr(sngIndex)).Object.Value Then
ReDim Preserve astrFilterArray(ialngCount)
astrFilterArray(ialngCount) = Choose(sngIndex, Range("A4"), Range("A5"))
.....
Vielen Dank für Lösungsvorschläge.
Viele Grüße!