|
Hallo allerseits,
bei dem Versuch folgenden Code zu Kommentieren und zu verstehen, ist mir aufgefallen, dass ich das leider nicht wirklich verstehe. Habe zunächst die VBA-Hilfe und Google ausgequetscht, komme aber nicht wirklich weiter. Könnte mir bitte jmd. dabei helfen? Schon mal vielen herzlichen Dank.
Insbesondere der fett markierte Teil bereitet mir Kopfzerbrechen (also eig. das Wesentliche :) )
Private Sub RemoveElementFromArray1D(Expression As Variant, _
ByRef Array1D As Variant, Optional count As Long)
'remove filter elements from array
Dim i As Long, n As Long
If IsEmpty(Array1D) Or IsNull(Array1D) Then
Array1D = Split(Empty) 'returns one dimensional array without elements (UBound < LBound)
ElseIf Not IsArray(Array1D) Then
'check whether expression is in array_
'vba automatically transforms return value > 0 in true
If InStr(1, Array1D, Expression, vbTextCompare) Then
Array1D = Split(Empty) 'create array wihtout elements
Else
Array1D = Array(Array1D)
End If
Else
i = LBound(Array1D)
Do While i <= UBound(Array1D)
If InStr(1, Array1D(i), Expression, vbTextCompare) Then
If count <= 0 Or n < count _
Then n = n + 1
ElseIf n > 0 Then
Array1D(i - n) = Array1D(i) 'shift element up
End If
i = i + 1 'next element
Loop
If n > 0 Then
If LBound(Array1D) <= UBound(Array1D) - n Then
ReDim Preserve Array1D(LBound(Array1D) To UBound(Array1D) - n)
Else
Array1D = Split(Empty)
End If
End If
End If
End Sub
|