Problem mit Arrayübergabe an ein Sub
03.12.2004 11:22:01
Mario
Public
Sub OpenCell(Cell As Range, ParamArray CellArray() As Variant)
Dim i As Integer, j As Integer
Dim Element As Variant
Cell.Font.Color = RGB(0, 255, 0)
If Intersect(Cell, Range("B2:K11")) Is Nothing Then
ElseIf Cell.Value = 0 Then
For i = -1 To 1
For j = -1 To 1
If i = 0 And j = 0 Then
Else
For Each Element In CellArray()
If Element = Cell Then
CellArray(CellArray().Count + 1) = Cell '*
Call OpenCell(Cell.Offset(i, j), CellArray)
End If
Next Element
End If
Next j
Next i
End If
End Sub
* hier meckert er rum. In den beiden Arrays sind eigentlich Range-Objekte. Aber in der Hilfe stand, Arrays, die übergeben werden, müßten vom Typ Variant sein. Aber Variants haben anscheinend keine Prozedur .Count *grml* Kann man da nicht irgendwie typecasten? und wie funktioniert das in VBA?
Vielen Dank schonmal für Eure Mühe!
Gruß Mario