VBA Code modularisieren: Wann es sinnvoll ist, Funktionen und Subs zu trennen

Monolithischer Code ist schwer zu testen und zu erweitern. Modularisierung teilt Logik in überschaubare Bausteine auf – Functions liefern Ergebnisse, Subs orchestrieren Abläufe. Dieser Leitfaden zeigt, wann und wie Sie modulare Strukturen in VBA effektiv einsetzen – mit Praxisfall und Vorlagen.

---

1) Prinzip: Single Responsibility & klare Schnittstellen

• Function: enthält Berechnung/Logik und liefert einen Wert zurück.
• Sub: führt Abläufe aus (Import, Ausgabe, UI), ruft Funktionen auf.

Function Netto(ByVal brutto As Double, ByVal mwst As Double) As Double
    Netto = brutto / (1 + mwst)
End Function

Sub ErzeugeRechnung()
    Dim betrag As Double: betrag = 119
    Dim net As Double: net = Netto(betrag, 0.19)
    Debug.Print "Netto:", net
End Sub

---

2) Kapselung & Wiederverwendung

• Hilfsfunktionen in eigenes Modul (mdlMath, mdlText, mdlDates).
• Parameter ByVal (Standard) nutzen; ByRef nur, wenn beabsichtigte Seiteneffekte.
• Keine globale Zustände, wo nicht nötig.

---

3) Orchestrierung: Der „Kommandeur“-Sub

Das „Top-Level“-Makro steuert die Reihenfolge – klein halten, nur Aufrufe.

Sub ErzeugeMonatsreport()
    Dim pfad As String: pfad = WähleDateiCSV()
    Dim daten As Variant: daten = ImportiereCsv(pfad)
    If Not IstValide(daten) Then
        MsgBox "Daten ungültig."
        Exit Sub
    End If
    daten = Transformiere(daten)
    ExportiereReport daten
End Sub

---

4) Praxisfall – 600-Zeilen-Makro modularisieren

Ausgangslage: Ein Makro macht alles: Datei öffnen, prüfen, berechnen, formatieren, exportieren. Fehleranfällig, schwer änderbar.

Ziel: Module für Import, Validierung, Transformation, Export. Funktionen für Kernlogik.

' mdlImport.bas
Function WähleDateiCSV() As String
    ' Dateidialog ...
End Function

Function ImportiereCsv(ByVal pfad As String) As Variant
    ' Datei einlesen ...
End Function

' mdlValidation.bas
Function IstValide(ByVal arr As Variant) As Boolean
    ' Prüflogik ...
End Function

' mdlTransform.bas
Function Transformiere(ByVal arr As Variant) As Variant
    ' Logik ...
End Function

' mdlExport.bas
Sub ExportiereReport(ByVal arr As Variant)
    ' Ausgabe ...
End Sub

Ergebnis: Änderungen betreffen gezielt ein Modul. Tests werden einfacher, Regressionsfehler seltener.

---

5) Checkliste – ist Ihr Code modular genug?

---

Fazit

Modularisierung ist der Hebel für wartbare, testbare und erweiterbare VBA-Projekte. Trennen Sie Ablauf (Subs) und Logik (Functions) – Ihr zukünftiges Ich wird es Ihnen danken.