title image


Smiley Re: array dimensionieren
richtig sauber ist es wohl so :



Option Explicit

' gibt 0 zurück, wenn ein Array nicht dimensioniert ist

Private Declare Function SafeArrayGetDim Lib "oleaut32" _

(pArray() As Any) As Long



Sub test()

Dim Fd$()



' z.B.

If SafeArrayGetDim(Fd) = 0 Then

Debug.Print "Array noch nicht dimensioniert"

ReDim Fd(5)

End If

If SafeArrayGetDim(Fd) 0 Then _

Debug.Print "Array ist jetzt dimensioniert"

End Sub


Knofi So wie wir heute arbeiten, werden morgen die Beamten leben ...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: