Skip to main content
1 de 4
Huntzberger
  • 487
  • 3
  • 30
  • 60

Validad Array Vacio

Tengo un array el cual necesito validar cuando esté vacío, ya intenté varias alternativas y no funciona. Esto es lo que he intentado y muestra el error 'No coinciden los tipos', o 'error fuera del intérvalo' en el for

Dim arrData() As Integer

If arrData Is Empty Then
MsgBox "Array vacío", vbInformation, "Mensaje"
Exit Function
End If

If arrData Is Nothing Then
MsgBox "Array vacío", vbInformation, "Mensaje"
Exit Function
End If

If isnull(arrData)=true Then
MsgBox "Array vacío", vbInformation, "Mensaje"
Exit Function
End If

For I = 1 To UBound(arrData)
MsgBox "Valor: " & (arrData(I)), vbInformation, "Mensaje"
Next

Huntzberger
  • 487
  • 3
  • 30
  • 60