Excel VBA: Wie kann ich mehrere Zeilen in einem Bereich ausblenden?

WENN in A3:A1000 "x" steht, sollen diese Zeilen eingeblendet bleiben,

WENN in A3:A1000 " " steht, sollen diese Zeilen ausgeblendet werden.

Vielen Dank

Answer 1

[Elumania]

Sub Ausblenden()
For i = 1 To 2000
    If Cells(i, 1) = "x" Or Cells(i, 1) = " " Then
        Rows(i).EntireRow.Hidden = True
    End If
Next
End Sub

Die Zellen A1 bis A2000 werden überprüft.

Falls x oder " " gefunden wird in diesen Zellen, dann werden diese ausgeblendet.

Comments

[Elumania]

Das " " könnte bei mir zu Fehlern führen. Das wäre doch eine leere Zelle?

[patvog1606]

@Elumania

ja, richtig. Wenn die zelle leer ist, soll die gesamte Zeile ausgeblendet werden :D

[Elumania]

@patvog1606

Dann schreib das so:

If Cells(i, 1) = "x" Or IsEmpty(Cells(i, 1)) Then

[Albin1990]

"" reicht... du brauchst kein Leerzeichen dazwischen..

und es stimmt nicht ganz, weil er ja möchte, dass bei "" die Zellen ausgeblendet werden und bei "x" eingeblendet...

LG

[Elumania]

@Albin1990

ok, falsch gelesen. Korrigiert! (aber nicht getestet)

Sub AusblendenEinblenden()
For i = 1 To 2000
    If Cells(i, 1) = "x" 
        Rows(i).EntireRow.Hidden = False
    ElseIf IsEmpty(Cells(i, 1)) Then
        Rows(i).EntireRow.Hidden = True
    End If
Next
End Sub

Answer 2

[Suboptimierer]

Am einfachsten ist es, wenn du einen Filter setzt.

Answer 3

[LtLTSmash]

Am leichtesten mit einer Schleife

z.B.:

For ze = 3 to 1000
  if Cells(ze,1).value = "x" then
    rows(ze).hidden = true
  else
    rows(ze).hidden = false
  end if
next ze

Comments

[Suboptimierer]

Du hast einen Dreher, aber vom Prinzip her ist das richtig.

[LtLTSmash]

@Suboptimierer

Ja, jetzt seh ichs auch. Das mit dem .hidden und .visible ist aber auch der letzte Schei... ;-)

Answer 4

[hannes1806]

Hallo, nur zur Sicherheit: Filter kennst du schon, oder?

Woher ich das weiß: eigene Erfahrung – Faulheit >> Neugier >> Wissen