Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Über VBA Zeile ausblenden sobald ein bestimmter Wert in der Zelle steht





Frage

Hallo, ich möchte ein kleines VBA-Tool das mir auf Knopfdruck alle Zeilen ausblendet sobald in der Spalte P eine 0 steht. Wer kann mir helfen? Lg michael

Antwort 1 von rainberg

Hallo Michael,

kopiere diesen Code in den Codebereich des relevanten Tabellenblattes und weise ihm eine Tastenkombination zu.

Option Explicit

Sub ausblenden()
    Dim rngC As Range, rngBer As Range
    Set rngBer = Range("P1:P" & Cells(Rows.Count, 16).End(xlUp).Row)
    For Each rngC In rngBer
        If rngC = "0" Then
            Rows(rngC.Row).EntireRow.Hidden = True
        End If
    Next
End Sub


Gruß
Rainer

Antwort 2 von michaelsoft7

Super, Tausend dank. Hat alles gelöst :)