Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Zeilen ausblenden

Forumthread: Zeilen ausblenden

Zeilen ausblenden
11.01.2007 16:50:57
Thomas
Hallo zusammen,
ich habe in meinem Tabellenblatt tabelle 1, einen Button mit dem Namen Berechen.
Dieser Button soll in Spalte W ab Zeile 3, bis zum Ende der Spalte W wo ein Inhalt steht, prüfen ob eine Zelle den Zelleninhalt "Demo" besitzt.
Besitzt eine Zelle den Zelleninhalt "Demo", soll die Zeile ausgeblendet werden.
Für Hilfe bedanke ich mich jetzt schon!
Thomas
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden
11.01.2007 17:58:18
Rudi
Hallo,
kurz und bündig:

Private Sub Berechen_Click()
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Range(Cells(3, 23), Cells(Rows.Count, 23).End(xlUp))
rng.EntireRow.Hidden = rng.Value = "Demo"
Next rng
Application.ScreenUpdating = True
End Sub

GrußRudi
heißt der Button nicht Berechnen?
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: Zeilen ausblenden
11.01.2007 23:40:31
Thomas
Hallo Rudi,
vielen Dank für die Hilfe!!!
Gruß,
Thomas

Forumthreads zu verwandten Themen

Anzeige