Wie blende ich nur bestimmte Zeilen ein mit VBA?

Antwort vom

Um in VBA (Visual Basic for Applications) nur Zeilen in einem Excel-Arbeitsblatt einzublenden, kannst du den folgenden Code verwenden. Dieser Code geht davon aus, dass du die Zeilen anhand eines bestimmten Kriteriums ein- oder ausblenden möchtest. Hier ist ein Beispiel, wie du Zeilen einblenden kannst, die in der Spalte A einen bestimmten Wert haben: ```vba Sub ZeilenEinblenden() Dim ws As Worksheet Dim lastRow As Long Dim i As Long Dim kriterium As String ' Arbeitsblatt festlegen Set ws = ThisWorkbook.Sheets("Tabelle1") ' Letzte Zeile in Spalte A ermitteln lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' Kriterium festlegen kriterium = "Einblenden" ' Alle Zeilen durchlaufen und einblenden, wenn das Kriterium erfüllt ist For i = 1 To lastRow If ws.Cells(i, 1).Value = kriterium Then ws.Rows(i).Hidden = False Else ws.Rows(i).Hidden = True End If Next i End Sub ``` In diesem Beispiel wird das Arbeitsblatt "Tabelle1" verwendet. Der Code durchläuft alle Zeilen in der Spalte A und blendet die Zeilen ein, die den Wert "Einblenden" in der Spalte A haben. Alle anderen Zeilen werden ausgeblendet. Du kannst das Kriterium und die Spalte nach Bedarf anpassen.

Verwandte Fragen

Was bedeutet ErrNum 75 in Access VBA?

Der Fehlercode ErrNum = 75 in Microsoft Access VBA steht für "Pfad/Datei-Zugrifffehler" (englisch: "Path/File access error"). Dieser Fehler tritt auf, wenn ein Zugriff auf ein...

Was bedeutet 'On Error GoTo 0'?

Die Anweisung On Error GoTo 0 stammt aus der Programmiersprache Visual Basic (z. B. VBA, VB6). Sie wird verwendet, um die aktuelle Fehlerbehandlung zu deaktivieren. Das bedeutet: Nach On Error GoTo 0...

Ist Shapes("Rechteck 1").Visible = True korrekt in Excel-VBA?

Der Ausdruck Shapes("Rechteck 1").Visible = True ist in Excel-VBA nicht korrekt, da das Visible-Eigenschaftsmerkmal für Shapes in Excel-VBA nicht existiert. In Excel-VBA steuerst du d...

Ist folgender Excel-VBA-Code korrekt: HeightPt = Rows("4:" & Cells(49,19).Row).Height?

Der gezeigte Code ist in Excel-VBA nicht korrekt und führt zu einem Fehler. Das Problem liegt in der Syntax innerhalb der Rows-Funktion. Hier die Analyse: Dein Code: vba HeightPt = Rows("4:...

Wie kann man in Excel-VBA einen RGB-Code aus einer Zelle lesen?

Um in Excel-VBA einen RGB-Code aus einer Zelle zu lesen und diesen z.B. für die Füllfarbe eines Shapes zu verwenden, kannst du wie folgt vorgehen: Angenommen, in Zelle A1 steht der RGB-Code...

Was bewirkt der VBA-Code mit shp.Line.Visible = msoFalse und shp.Fill.ForeColor.RGB = 0?

Der gezeigte VBA-Code (Visual Basic for Applications) wird typischerweise in Microsoft Office-Anwendungen wie PowerPoint oder Excel verwendet, um die Formatierung einer Form (Shape) zu steuern. Hier i...

Was bewirkt der VBA-Code mit shp.Line.Visible = msoFalse, shp.Fill.Visible = msoTrue und shp.Fill.ForeColor.RGB = 0?

Der gezeigte VBA-Code (Visual Basic for Applications) wird typischerweise in Microsoft Office-Anwendungen wie PowerPoint oder Excel verwendet, um die Formatierung einer Form (Shape) zu steuern. Hier i...

Wie erstelle ich in Access VBA eine SQL-Abfrage?

Um in Microsoft Access per VBA eine Abfrage (Query) mit SQL zu erstellen, kannst du das DAO-Objektmodell verwenden. Hier ein Beispiel, wie du per VBA eine neue Abfrage mit einer SQL-Anweisung erstells...

Was ist falsch an folgendem Access VBA SQL-Statement: strSQL = "INSERT INTO tbl_Bestände_HZV (Datum, RLEx) IN " & strPfadExtern & "." & ZielTabelle & ...?

In deinem SQL-Statement gibt es mehrere Probleme: 1. Syntaxfehler bei IN: Das IN-Schlüsselwort wird in Access-SQL für das Einfügen in eine externe Tabelle verwendet, aber die Syntax...

Wie kann man per VBA-Makro beim Öffnen einer Datei das Kontextmenü der rechten Maustaste deaktivieren?

Um beim Öffnen einer Excel-Datei per VBA-Makro die Kontextmenüs der rechten Maustaste zu deaktivieren, kannst du folgenden Code im Modul "DieseArbeitsmappe" (engl. "ThisWorkbo...