Thema Datum  Von Nutzer Rating
Antwort
21.07.2017 12:18:31 vbaTrainee
Solved
Blau Leere Arrays erkennen
 21.07.2017 14:44:27 Gast70117
NotSolved
22.07.2017 16:56:11 Gast72422
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
21.07.2017 14:44:27		 Views:
653		 Rating:
     
Antwort:
  Ja
Thema:
Leere Arrays erkennen

Array Leer oder Voll (mit Daten) ist Nato;-)

Arrays sind zugewiesen oder nicht, jedes zugewiesene Datenfeld hat seine Füllung und gibt kein binäres NIX

LG

Option Explicit

Sub TestIt()
Dim Arr1()
Dim Arr2(1 To 10)
Dim arr3() As Double

Call MsgBox(ArrIs(Arr1), vbInformation, "Arr1")

Call MsgBox(ArrIs(Arr2), vbInformation, "Arr2")
Erase Arr2
Call MsgBox(ArrIs(Arr2), vbInformation, "Arr2")

Call MsgBox(ArrIs(arr3), vbInformation, "Arr3")
ReDim arr3(2, 2)
Call MsgBox(ArrIs(arr3), vbInformation, "Arr3")

End Sub

Private Function ArrIs(Arr As Variant) As Variant
ArrIs = "unallocated"
On Error Resume Next
If LBound(Arr) > UBound(Arr) Then Exit Function
On Error GoTo 0
Err.Clear
On Error Resume Next
ArrIs = UBound(Arr)
On Error GoTo 0
If Err.Number = 0 Then ArrIs = "allocated"
End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.07.2017 12:18:31 vbaTrainee
Solved
Blau Leere Arrays erkennen
 21.07.2017 14:44:27 Gast70117
NotSolved
22.07.2017 16:56:11 Gast72422
NotSolved