Select Case-Anweisung - IF-Anweisung - Array definieren - VBA

Question

Ich möchte neue Arrays nach dem Wert der Altersvariablen definieren. Ich bin neu in VBA und hier ist mein Code, der nicht funktioniert. Ich habe keine Fehlermeldungen. Ich habe mich gefragt, warum die Arrays von diesem Code keinen Wert bekommen!

Select Case num 
    Case 24 To 55 
     Arr_Num3554 = 1 
     Case Else 
     Arr_Num3554 = 0 
    End Select 

Select Case Num 
    Case 54 To 75 
     Arr_Num5574 = 1 
     Case Else 
     Arr_Num5574 = 0 
    End Select 

Select Case Num 
    Case 75 To 100 
     Arr_Num74plus= 1 
     Case Else 
     Arr_Num74plus= 0 
    End Select 

---

Auch habe ich eine IF-Anweisung versucht. Auch hier habe ich das gleiche Problem

If 24 < Num < 55 Then Arr_Num3554 = 1 Else Arr_Num3554 = 0 
If 54 < Num < 75 Then Arr_Num5574 = 1 Else Arr_Num5574 = 0 
If 75 < Num Then Arr_Num74plus = 1 Else Arr_Num74plus = 0 

Answer 1

Normalerweise, wenn Sie arrrays verwenden Sie (die Array-Variable) REDIM benötigen - ReDim Arr_Num3554 (1)

Answer 2

nicht kompiliert den Code selbst? Versuchen Sie dies stattdessen und notieren Sie auch @ Lowpars Kommentar:

Select Case num 
    Case 24 To 55 
     Arr_Num3554 = 1 
     Case Else 
     Arr_Num3554 = 0 

    Case 54 To 75 
     Arr_Num5574 = 1 
     Case Else 
     Arr_Num5574 = 0 

    Case 75 To 100 
     Arr_Num74plus= 1 
     Case Else 
     Arr_Num74plus= 0 

End Select