Zeilen Ausblenden

 

Inhalt

  • Einfügen Dropdown Menü in Excel
  • Tabellenblatt-Ereignis Change
  • If-Anweisung
  • Intersect-Methode
  • Zeilen ausblenden
  • Einblenden sämtlicher Zeilen auf einem Tabellenblatt

 

Code (auf dem Tabellenblatt)

Private Sub Worksheet_Change(ByVal Target As Range)

'Prüfen, ob wir in Zelle L5 sind
If Not Intersect(Target, Range("L5")) Is Nothing Then

    'Zeilen einblenden
    Cells.EntireRow.Hidden = False

    'Prüfen, ob "Buchungen" in Zelle L5 steht
    If Range("L5").Value = "Buchungen" Then
        Rows("20:25").EntireRow.Hidden = True
    ElseIf Range("L5").Value = "Produkte" Then
        Rows("11:16").EntireRow.Hidden = True
    End If
    
End If

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub
Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching - QR-Code
Kai Weissmann

QR-Code

  Inhalt QR-Code über eine selbstgeschrieben Funktion als Bild in Excel einfügen URL zur Generierung

Mehr lesen »
VBATrainer Excel VBA Coaching -Outlook Termin
Kai Weissmann

Outlook-Termin

  Inhalt Outlook-Termin erstellen und Zugriff auf alle Termin-Eigenschaften haben Outlook-Bibliothek aktivieren/Verweis setzen (Extras –>

Mehr lesen »
VBATrainer Excel VBA Coaching -PDF erstellen
Kai Weissmann

PDF erstellen

  Inhalt PDF erstellen: Ansprechen des Tabellenblatts und ExportAsFixedFormat Erstellung Dateipfad & Direktbereich Dateipfad und

Mehr lesen »
VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
Mein Kurs

Jetzt registrieren