Makro zum Ausblenden von Zeilen bei Bedingungen in Excel
Schritt-für-Schritt-Anleitung
-
Makro öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Neues Modul erstellen:
- Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsm)".
- Wähle
Einfügen > Modul.
-
Makro-Code eingeben: Kopiere den folgenden Code in das Modul:
Option Explicit
Sub DatenAusblenden()
Application.ScreenUpdating = False
Dim i As Integer
Dim VonSpalte As Integer
Dim BisSpalte As Integer
Dim StartDatum As Range
Dim EndDatum As Range
Set StartDatum = Range("F11")
Set EndDatum = Range("G11")
VonSpalte = 6 'Spalte "Zeitraum Von" als Nummer
BisSpalte = 7 'Spalte "Zeitraum Bis" als Nummer
For i = 14 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Cells(i, VonSpalte) >= StartDatum And (Cells(i, BisSpalte) <= EndDatum Or Cells(i, BisSpalte) = "ohne") Then
Rows(i).EntireRow.Hidden = False
Else
Rows(i).EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
-
Schaltfläche hinzufügen:
- Wechsle zurück zu Excel.
- Füge unter
Entwicklertools > Einfügen eine Schaltfläche hinzu.
- Verknüpfe die Schaltfläche mit dem erstellten Makro.
-
Daten eingeben: Gib in Zelle F11 dein Startdatum und in G11 dein Enddatum ein.
-
Makro ausführen: Klicke auf die Schaltfläche, um die Zeilen gemäß den Bedingungen auszublenden.
Häufige Fehler und Lösungen
Alternative Methoden
Statt ein Makro zu verwenden, kannst du auch den Autofilter in Excel nutzen, um Zeilen auszublenden, wenn eine Bedingung erfüllt ist. Dies ist jedoch weniger flexibel, wenn du mehrere Bedingungen hast. Der VBA-Ansatz ist effektiver, um spezifische Zeilen auszublenden, basierend auf deinen Kriterien.
Praktische Beispiele
Angenommen, du hast folgende Daten in den Spalten F und G:
| F (Startdatum) |
G (Enddatum) |
| 03.03.2014 |
05.03.2014 |
| 10.03.2014 |
19.03.2014 |
| 24.03.2014 |
30.03.2014 |
Wenn du in F11 das Datum 01.03.2014 und in G11 das Datum 30.03.2014 eingibst und das Makro ausführst, werden nur die Zeilen angezeigt, die die Bedingungen erfüllen (F >= 01.03.2014 und G <= 30.03.2014).
Tipps für Profis
- Optimierung des Codes: Du kannst den Code optimieren, indem du Variablen für die Spaltennummern verwendest, um die Lesbarkeit zu erhöhen.
- Fehlerüberprüfung: Füge Fehlerbehandlungsroutinen hinzu, um sicherzustellen, dass der Code bei unerwarteten Eingaben nicht abstürzt.
- Dokumentation: Kommentiere deinen Code, um die Funktionsweise für andere Benutzer verständlich zu machen.
FAQ: Häufige Fragen
1. Wie kann ich das Makro auf mehreren Tabellenblättern anwenden?
Du musst das Makro in jedes Tabellenblatt einfügen, oder du kannst es in Diese Arbeitsmappe speichern und es dann entsprechend aufrufen.
2. Was mache ich, wenn sich die Spaltennummern ändern?
Passe die VonSpalte und BisSpalte Variablen im Code an die neuen Spaltennummern an.
3. Kann ich das Makro anpassen, um mehr Bedingungen zu berücksichtigen?
Ja, du kannst die If-Bedingungen im Code erweitern, um zusätzliche Kriterien hinzuzufügen.
Nutze diesen Leitfaden, um effektiv Excel-Zeilen auszublenden, wenn Bedingungen erfüllt sind.