Makro: Bestimmte Zeilen ausblenden

Bild

Betrifft: Makro: Bestimmte Zeilen ausblenden
von: Basti
Geschrieben am: 06.11.2015 10:11:02

Hallo zusammen,
ich würde gerne per Button alle Zeilen in einem bestimmten Bereich (Zeilen 8 bis 111) ausblenden, die in Spalte A den Wert -1 haben. Kann mir jemand mit dem zugehörigen Makro helfen?
Gruß Basti

Bild

Betrifft: AW: Makro: Bestimmte Zeilen ausblenden
von: MCO
Geschrieben am: 06.11.2015 10:14:49
Hallo!
Probier das mal.
Gruß, MCO

Sub ausblenden()
For zl = 111 To 8 Step -1
    If Cells(zl, "A") = "-1" Then
        Rows(zl).Hidden = True
    End If
Next zl
End Sub


Bild

Betrifft: AW: Makro: Bestimmte Zeilen ausblenden
von: CK
Geschrieben am: 06.11.2015 10:37:26
Hallo Basti,
mehr Code aber schneller ;)
Option Explicit

Sub blendomat()
Dim rngB As Range
Dim intC As Integer
Dim ws As Worksheet
Set ws = ActiveSheet 'anpassen
With ws
    For intC = 8 To 111
        If .Cells(intC, 1).Value = -1 Then
            If rngB Is Nothing Then
                Set rngB = .Cells(intC, 1)
            Else
                Set rngB = Union(rngB, .Cells(intC, 1))
            End If
        End If
    Next
End With
If Not rngB Is Nothing Then
    rngB.EntireRow.Hidden = True
End If
Set rngB = Nothing
End Sub


Bild

Betrifft: AW: Makro: Bestimmte Zeilen ausblenden
von: Basti
Geschrieben am: 06.11.2015 14:46:16
Danke!

Bild

Betrifft: AW: Makro: Bestimmte Zeilen ausblenden
von: Basti
Geschrieben am: 06.11.2015 14:47:05
Funktioniert wunderbar. Danke!

Bild

Betrifft: Ups, sry Beitrag falsch angehängt__ot
von: CK
Geschrieben am: 06.11.2015 10:39:54
.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro: Bestimmte Zeilen ausblenden"