Selection an Array übergeben
20.11.2005 12:43:42
Alex
Ich bin gerade dabei eine Routine zu schreiben, die auf die Selection angewendet werden soll. Ich hab mir gedacht: "Alex, übergeb doch einfach die Selection an ein Array" gemacht - getan:
avarSel() = Selection
Jedoch wenn die Selection nur ein Feld groß ist, bekomme ich einen Laufzeit fehler : Typen unverträglich.
Also habe ich ein kleines IF-Konstrukt gebastelt, das diesen Fehler vermeidet:
Dim avarSel() As Variant
ReDim avarSel(1 To Selection.Rows.Count, 1 To Selection.Columns.Count)
If Selection.Rows.Count = 1 And Selection.Columns.Count = 1 Then
avarSel(1, 1) = Selection
Else
avarSel() = Selection
End If
Jedoch finde ich diese Lösung nicht sehr elegant. Ich bin nunmal nicht so geübt ;-)
Kennt jmd. ne schönere Lösung für das Problem, oder kann man das so stehen lassen?
Gruß
Alex