Wie verwende ich die Enum-Anweisung in VBA?

In VBA (Visual Basic for Applications) wird die `Enum`-Anweisung verwendet, um eine Aufzählung zu erstellen, die eine Sammlung von benannten Konstanten darstellt. Dies kann die Lesbarkeit und Wartbarkeit Ihres Codes verbessern, indem spezifische Namen anstelle von Zahlenwerten verwendet werden. Hier ist, wie Sie die `Enum`-Anweisung verwenden können:

Deklaration einer Enumeration

   Enum EnumName
       Wert1 = Anfangswert
       Wert2
       Wert3
       ' Weitere Werte
   End Enum
  • Enum definieren: Eine Enumeration wird außerhalb von Prozeduren, normalerweise im Deklarationsbereich eines Moduls, einer Klasse oder eines Formulars deklariert.
  • Syntax:

Wenn kein Startwert angegeben wird, beginnt die Enumeration standardmäßig bei 0 und erhöht jeden nachfolgenden Wert um 1.

Beispiel

Enum Wochentage
    Montag = 1
    Dienstag
    Mittwoch
    Donnerstag
    Freitag
    Samstag
    Sonntag
End Enum

In diesem Beispiel repräsentieren die `Wochentage` von Montag (1) bis Sonntag (7) spezifische Ganzzahlen.

Verwendung der Enumeration

Einmal definiert, können Sie die Werte aus der Enumeration in Ihrem Code verwenden:

Sub VerwendeEnum()
    Dim heutigerTag As Wochentage
    heutigerTag = Mittwoch

    Select Case heutigerTag
        Case Montag
            MsgBox "Heute ist Montag."
        Case Dienstag
            MsgBox "Heute ist Dienstag."
        Case Mittwoch
            MsgBox "Heute ist Mittwoch."
        ' Weitere Fälle
        Case Else
            MsgBox "Tag nicht erkannt."
    End Select
End Sub

Vorteile der Verwendung von Enums

  • Lesbarkeit: Ersetzt magische Zahlen durch beschreibende Namen.
  • Wartbarkeit: Änderungen an den Werten sind zentral und benötigen keine Anpassungen im gesamten Code.
  • Fehlerminimierung: Compiler-Fehler können auftreten, wenn ungültige Werte zugewiesen werden.

Nutzen Sie Enums immer dann, wenn Sie eine Reihe von zusammenhängenden Konstanten haben, um Ihren VBA-Code klarer und einfacher zu verwalten.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project