VBA: Übergabe von Variablen an sub() mit benutzerdefiniertem Typ

Question

Ich spiele mit dem Aufruf eines sub(), aber bekomme immer den Fehler "Benutzerdefinierter Typ nicht definiert". Konnte nicht herausfinden, nachdem ich versucht habe, Variablen als Array zu deklarieren. Wäre dankbar jede Anleitung dazu:

Public Type Whatever 
    ppp As String 
    qqq As Long 
    rrr As Single 
End Type 




Sub isthisworking() 
Dim thisis() As Whatever 
Dim i As Long 
Dim athing As Long 

For i = 0 To 5 
    With thisis(i) 
     .ppp = i & "p" 
     .qqq = i * 2 
     .rrr = i^3 
    End With 

athing = 20 

beingcalled thisis(), athing 

End Sub 



Public Sub beingcalled(ByRef thisis() As Whatever, athing As Long) 

Dim cycles As Long 

cycles = UBound(thisis) 

For i = 0 To cycles - 1 
    With thisis(i) 
     Debug.Print i & ": " & .ppp & "," & .qqq & "," & .rrr 
    End With 
Next 


End Sub 

Answer 1

Ihre For i = 0 To 5 ist die Schließung Next i Anweisung fehlt.

Sie müssen die Größe Ihrer thisis() Array Redim:

ReDim thisis(o To 5) 

das ganze "isthisworking" Sub:

Sub isthisworking() 

Dim thisis() As Whatever 
Dim i As Long 
Dim athing As Long 

ReDim thisis(o To 5) 

For i = 0 To 5 
    With thisis(i) 
     .ppp = i & "p" 
     .qqq = i * 2 
     .rrr = i^3 
    End With 
Next i 

athing = 20 

beingcalled thisis(), athing  
' you can pass also thisis (without the brackets) gives the same result 

End Sub