Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1632to1636
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
Inhaltsverzeichnis

Zeile ausblenden wenn 100 in Spalte steht

Zeile ausblenden wenn 100 in Spalte steht
26.07.2018 09:01:08
Florian
Hallo zusammen.
Ich möchte einen Maßnahmenplan erstellen.
Wenn eine Maßnahme mit dem Wert 100 in der Spalte B beendet wurde, soll die entsprechende Zeile ausgeblendet werden.
Kann mir jemand helfen.
Vielen Dank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile ausblenden wenn 100 in Spalte steht
26.07.2018 09:08:38
Michael
Hallo!
Dieses Makro blendet Dir auf dem aktuellen Tabellenblatt alle Zeilen aus die in Spalte B den Wert "100" enthalten:
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.ActiveSheet
Dim r As Range, c As Range
Application.ScreenUpdating = False
With Ws
Set r = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp))
For Each c In r
If c.Value = 100 Then c.EntireRow.Hidden = True
Next c
End With
Set Wb = Nothing: Set Ws = Nothing: Set r = Nothing: Set c = Nothing
End Sub
LG
Michael
AW: Zeile ausblenden wenn 100 in Spalte steht
26.07.2018 10:24:26
Bernd
Servus Michael,
da fehlt zum Abschluss vor dem

End Sub
noch das
Application.ScreenUpdating = True
Grüße, Bernd
Anzeige
AW: Nein Bernd,...
26.07.2018 10:34:05
Michael
...das wird automatisch zurückgesetzt nach Makro-Durchlauf. ;-)
LG
Michael
AW: Nein Bernd,...
26.07.2018 10:47:22
Bernd
Ah, again what learned :-)

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige