title image


Smiley Re: Ubound nach rechts
Hallo!



Eine fertige Funktion dafür gibt es m.W. nicht.

Aber man könnte sich mit etwas selbstgestricktem behelfen, zum Beispiel so:



Sub AnzahlDimensionenErmitteln()

Dim wert(3 To 9, 2 To 5, 1 To 8, 7 To 22)

MsgBox AnzDim(wert())

End Sub



Function AnzDim(ar)

On Error GoTo Ende

Do

anz = anz + 1

dummy = UBound(ar, anz)

Loop

Ende:

AnzDim = anz - 1

End Function



Habe ich nicht ausführlich getestet!



Gruß

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: