Office: (Office 2013) VBA - Array leeren ohne die Dimensonen / Größe zu verlieren

Hallo zusammen,

Mal ne bescheidene Frage zu Arrays.
Wie kann man einen Array leeren ohne die Größe des Arrays zu löschen?
Mit Erase wird das Array auf „Jungfreulichkeit“ zurückgesetzt und müsste wieder mit ReDim neu gestallte werden.
Im Netz habe ich etwas über Clear oder Nothing gefunden, aber leider funktioniert das bei mir nicht.

Hat einer von Euch eine Idee?

SG
Tauchmann

Hier mal men Testobject

Code:

Sub lkjk()
    Dim l() As String
    Dim i As Long
    Dim j As Long
    
    ReDim l(1 To 3)
    
    For i = 1 To 2
        
        Select Case i
            Case Is = 1
                l(1) = "a"
                l(2) = "b"
                l(3) = "c"
            Case Is = 2
                l(1) = "aa"
                l(2) = "bb"
                l(3) = "cc"
        End Select

        
        For j = 1 To 3
            Debug.Print l(j)
        Next j
        
        Erase l
'        ReDim l(1 To 3)
    Next i
End Sub

 

Hallo!
ReDim benutzt man doch nur, wenn man die Größe zu Beginn des Makros nicht weiß, sie also erst ermittelt werden muss.
Bei Dir reicht doch Dim l(1 To 3) As String im Deklarationsteil.

2 Nachsätze:
- Warum 1-basiert? Dim l(2) As String hat ebenfalls 3 Einträge
- Hat Jungfreulichkeit was mit erfreulich zu tun? ;-)

Gruß Ralf

 

Hallo Ralf,

Danke für deine Antwort,
Der Code ist nur ein Testobjekt, mein Projekt ist deutlich länger.
Mit ReDim und 1 To 3 hast du natürlich recht, der Teil ist an meinem richtigen Projekt angeleht.

In meinem Projekt kann ich nicht sagen wiegroß der Array wird, deswegen ReDim im Testobjekt.
Weiterhin benutze ich in meinem Projekt Erase um das Array zu leeren was aber zur Folge hat das der Array auf "Jungfreulichkeit" zurückgesetzt wird (kannste ja mit dem Tetobjekt mal probieren).

Gibt es einen Befehl was den Inhalt eines Arrays leert?

SG
Martin

 

Hallo,

Erase setzt bei einem dynamischen Array auch die Größe zurück, anders als bei fest dimensionierten. Einen
weiteren Befehl zu leeren eines Arrays gibt es m.W: nicht. Meiner Ansicht nach sollte bei dem dynamischen
Array ReDim arrTest(LBound(arrTest) To UBound(arrTest)) ausreichen, was einem Reinitialisieren entspricht.

Gruß

 

Hallo Ralf,

Danke für deine Antwort.
Ich habe es mir fast gedacht das es keinen anderen Befehl dafür gibt.
Ist ja auch irgendwie nicht notwendig wenn man ReDim verwendet, wie du ja geschrieben hast.

Nochmals vielen Dank und ein schönes WE.
Tauchmann