Rückkehr in VBA-Code-Beispiele

VBA – Array löschen (Erase-Funktion)

In diesem Tutorial lernen Sie, wie Sie ein Array in VBA löschen können.

Ganzes Array löschen

Um ein ganzes Array zu löschen, können Sie die Erase-Anweisung verwenden:

Erase arrBeispiel

In der Praxis:

Sub ArrayLoeschen()
    'Statisches Array erstellen
    Dim arrBeispiel(1 To 3) As String
 
    'Array-Werte definieren
    arrBeispiel(1) = "Shelly"
    arrBeispiel(2) = "Steve"
    arrBeispiel(3) = "Neema"
 
    'Gesamtes Array löschen
    Erase arrBeispiel

    'Array-Wert prüfen
    MsgBox arrBeispiel(1)
End Sub

Größe ändern und Array löschen

Wenn Ihr Array dynamisch ist, können Sie die Funktion ReDim-Anweisung verwenden, um die Größe des Arrays zu ändern und die Werte des gesamten Arrays zu löschen.

Bemerkung: ein dynamisches Array ist ein Array, das in der Größe verändert werden kann, im Gegensatz zu einem statischen Array, dessen Größe nicht verändert werden kann.

'Ganzes Array löschen
ReDim arrBeispiel(1 To 4)

Vollständiges Beispiel:

Sub ArrayLoeschen2()
    'Dynamisches Array erstellen
    Dim arrBeispiel() As String
    ReDim arrBeispiel(1 To 3)
 
    'Array-Werte definieren
    arrBeispiel(1) = "Shelly"
    arrBeispiel(2) = "Steve"
    arrBeispiel(3) = "Neema"
 
    'Ganzes Array löschen
    ReDim arrBeispiel(1 To 4)
    
    'Array-Wert prüfen
    MsgBox arrBeispiel(1)
End Sub

Einen Teil eines Arrays löschen

Wie bereits erwähnt, ändert der Befehl ReDim die Größe eines Arrays und löscht alle Werte, die darin enthalten sind. Stattdessen können Sie ReDim Preserve verwenden, um die Größe des Arrays zu ändern, wobei alle vorhandenen Werte erhalten bleiben. In der Praxis kann dies verwendet werden, um einen Teil eines Arrays schnell zu löschen.

Position 3+ löschen
ReDim Preserve arrBeispiel(1 bis 2)

Vollständiges Beispiel:

Sub ArrayLoeschen3()
    'Dynamisches Array erstellen
    Dim arrBeispiel() As String
    ReDim arrBeispiel(1 To 3)
 
    'Array-Werte definieren
    arrBeispiel(1) = "Shelly"
    arrBeispiel(2) = "Steve"
    arrBeispiel(3) = "Neema"
 
    'Position 3+ löschen
    ReDim Preserve arrBeispiel(1 To 2)
    
    'Größe auf 3 Positionen ändern
    ReDim Preserve arrBeispiel(1 To 3)
    
    'Array-Wert prüfen
    MsgBox arrBeispiel(3)
End Sub

Das gesamte Array mit einer Schleife durchlaufen – Werte zurücksetzen

Anstatt die Array-Werte mit Erase oder ReDim zu löschen, können Sie das gesamte Array in einer Schleife durchlaufen und jeden Wert zurücksetzen.

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users! vba save as


Learn More!