Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.05.2024 23:36:08
IFNA Funktion in WENNNV übertragen
16.05.2024 19:31:55
Zellenfarbe beim.Filtern ändern
16.05.2024 19:29:08
Mit INDIREKT() auf andere Tabellenblätter referenzieren
16.05.2024 19:06:22
Monatssumme / Zahlweise / Kalenderjahr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1960to1964
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1960to1964
1960to1964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

makro zellen mit bestimmtem inhalt ausblenden

makro zellen mit bestimmtem inhalt ausblenden
25.01.2024 14:04:54
mrs
hallo zusammen,

zu der datei anbei benötige ich bitte einmal eure hilfe.
ich bekomme in dem bereits geschriebenen makro den bereich von b6 bis k19 nicht eingebunden.
das makro soll sich nur auf diesen bereich der tabelle beziehen, so dass nur zeilen angezeigt werden, in denen entweder 1k oder 2k stehen.


vielen lieben dank vorab
lg

https://www.herber.de/bbs/user/166418.xlsm

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro zellen mit bestimmtem inhalt ausblenden
25.01.2024 14:24:22
UweD
Hallo

versuch es so... 
Option Explicit



Sub BestimmteZeilenAusblenden()

    Dim Zeile, RNG As Range

    

    Set RNG = ActiveSheet.Range("B6:K19")

    

    For Each Zeile In RNG.Rows

        If WorksheetFunction.CountIf(Intersect(Zeile.Rows, RNG), "1K") + _

            WorksheetFunction.CountIf(Intersect(Zeile.Rows, RNG), "2K") = 0 Then

                Zeile.EntireRow.Hidden = True

        End If

    Next

End Sub





Sub AlleAnzeigen()



    Cells.Rows.Hidden = False



End Sub


LG UweD
Anzeige
AW: makro zellen mit bestimmtem inhalt ausblenden
25.01.2024 15:28:01
GerdL
Moin 
Sub BestimmteZeilenAusblenden()



    Dim Ber As Range

    

    For Each Ber In Range("B6:K19").Rows

        With WorksheetFunction

           Ber.EntireRow.Hidden = (.CountIf(Ber, "1K") + .CountIf(Ber, "2K") = 0)

        End With

    Next



End Sub



Sub AlleAnzeigen()

   Range("B6:K19").EntireRow.Hidden = False

End Sub

Gruß Gerd

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige