Excel zellen ausblenden wenn bedingung erfüllt

Hallo Community,

ich habe folgende Frage:

Wenn ich beim öffnen des Sheets überprüfen lassen will,

ob in der Zelle B1 die Zahl "5" oder "6" steht, dann sollen die Zeilen "1" bis "5" eingeblendet werden, sollten die Zahlen nicht vorkommen, dann sollen die Zeilen ausgeblendet werden.

Kann man das einfach umsetzen mittels VBA Code?

Sofern das nicht so einfach ist, dann habe ich in den Zeilen A1, A2, A3, A4 und A5 auch eine WENN Funktion...

Diese WENN Funktion zeigt das Wort "SHOW" wenn die Zahl "5" oder "6" in der Zelle B1 vorkommt, wenn eine andere Zahl vorkommt, dann schreibt die WENN Funktion das Wort "HIDE".

Also je nachdem, was einfacher wäre um die Zeilen ausblenden zu lassen - über jeden Tipp bin ich dankbar. :)

Benny

26.07.2016, 10:30

MOF User

Registrierung: 29.05.2006

Karma:

Excel2010 - Zeilen aus-/ einblenden wenn Bedingung erf�llt

Hallo zusammen,

ich muss Zeilen aus- bzw. nicht ausblenden (bzw. wieder einblenden), wenn die Bedingung in der Zelle "G4" erf�llt ist.
Wenn also in "G4" ein "x" steht, sollen die Zeilen 40:42, 44:45 und 47:48 ausgeblendet werden, sobald das "x" eingetragen wurde und die Zelle verlassen wird.
Wenn der Inhalt der Zelle "G4" gel�scht wird, also die Zelle wieder leer ist, sollen die o.g. Zeilen wieder eingeblendet werden.

Leider erhalte ich derzeit mit folgendem script keinerlei Reaktion, hei�t die Zeilen bleiben mit "x" in "G4" sichtbar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$4" Then
If Target.Value = "x" Then
Rows("40:42").Hidden = True
Rows("44:45").Hidden = True
Rows("47:48").Hidden = True
Else
Rows("40:42").Hidden = False
Rows("44:45").Hidden = False
Rows("47:48").Hidden = False
End If
ElseIf Target.Address = "$G$4" Then
If Target.Value = " " Then
Rows("40:42").Hidden = False
Rows("44:45").Hidden = False
Rows("47:48").Hidden = False
Else
Rows("40:42").Hidden = True
Rows("44:45").Hidden = True
Rows("47:48").Hidden = True
End If
End If
End Sub

Ich hoffe mein Problem ist verst�ndlich beschrieben und mein Fehler wird von euch erkannt.

Vielen Dank f�r jede Unterst�tzung
Friedhelm

26.07.2016, 10:35

MOF Guru

Registrierung: 24.01.2011

Hi Friedhelm,

das geht ganz einfach auf diese Weise:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells(1).Address = "$G$4" Then
        Rows("40:42").Hidden = Target.Value = "x"
        Rows("44:45").Hidden = Target.Value = "x"
        Rows("47:48").Hidden = Target.Value = "x"
    End If
End Sub

__________________

Bitte im Beitrag eine kurze R�ckmeldung auch in dem Fall geben, wenn ein Problem gel�st wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
M�chtest du dich au�erdem f�r die Hilfe bei der L�sung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).

26.07.2016, 10:38

MOF Guru

Registrierung: 27.06.2014

Hallo Friedhelm!
Dies geht "etwas" k�rzer und einfacher:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$4" Then _
   Range("40:42,44:45,47:48").EntireRow.Hidden = Target = "x"
End Sub

Gru� Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok

26.07.2016, 10:52

Threadstarter

MOF User

Registrierung: 29.05.2006

Karma:

Hallo Beverly,

manchmal sieht man die einfachsten L�sungen nicht mehr - vielen Dank f�r Deine Unterst�tzung.

LG
Friedhelm

26.07.2016, 10:53

Threadstarter

MOF User

Registrierung: 29.05.2006

Karma:

Hallo Ralf,

auch diese Kurzform habe ich sofort getestet - klappt wunderbar.
Vielen Dank f�r Deine schnelle Hilfe.

Gr��e aus Aachen
Friedhelm

08.09.2016, 20:14

hild19

Hallo zusammen,

ich habe ein ganz �hnliches Problem und finde keine L�sung.

Ich m�chte gerne in einem Tabellenblatt bestimmte Zeilen ausblenden lassen wenn bestimmte Zellen einen konkreten Wert haben.

Im Beispiel:

Wenn D4 den Wert "-" enth�lt, soll Zeile 7 ausgeblendet werden

Wenn E4 den Wert "-" enth�lt, soll Zeile 8 ausgeblendet werden

Wenn F4 den Wert "-" enth�lt, soll Zeile 9 ausgeblendet werden

Der Wert in den o.g. Zellen wird durch eine Formel berechnet und enth�lt dort entsprechend eben den Wert "-" oder Inhalte, die durch eine SVerweis-Formel generiert werden.

Ich habe schon verschiedene Foren inkl. diesem durchsucht und nichts gefunden. Am dichtesten dran war ein Code, der die Zeilen aber nur ausgeblendet hat wenn die Eingabe "-" manuell in die entsprechende Zelle get�tigt wurde. Also ist der Knackpunkt die autmatische Berechnung des Inhaltes der Bezugszelle.

Hat jemand eine Idee?

Liebe Gr��e,

Robert

08.09.2016, 23:43

MOF Meister

Registrierung: 15.07.2014

Ins Codefenster der Tabelle:

Code:

Option Explicit

Private Sub Worksheet_Calculate()

    Static svntD4 As Variant
    Static svntE4 As Variant
    Static svntF4 As Variant
    
    If svntD4 <> Range("D4").Value Then
        svntD4 = Range("D4").Value
        Rows(7).Hidden = (svntD4 = "-")
    End If
    If svntE4 <> Range("E4").Value Then
        svntE4 = Range("E4").Value
        Rows(8).Hidden = (svntE4 = "-")
    End If
    If svntF4 <> Range("F4").Value Then
        svntF4 = Range("F4").Value
        Rows(9).Hidden = (svntF4 = "-")
    End If
    
End Sub

09.09.2016, 08:06

MOF Guru

Registrierung: 24.01.2011

Hi Robert,

�berwache mit dem Worksheet_Change-Ereignis die Zellen, die das Formelergebnis beeinflussen. Da ich deine Formeln und somit die betreffenden Zellen nicht kenne, hier nur ein prinzipielles Beispiel:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address(False, False)
        Case "D1", "E1", "F1"  '<== Zellen die das Formelergbnis �ndern
            Range("A7").EntireRow.Hidden = IIf(Range("D4") = "-", True, False)
            Range("A8").EntireRow.Hidden = IIf(Range("E4") = "-", True, False)
            Range("A9").EntireRow.Hidden = IIf(Range("F4") = "-", True, False)
    End Select
End Sub

__________________

10.09.2016, 01:16

hild19

Hallo noch mal,

Dank eurer Beitr�ge konnte mein Problem wunderbar gel�st werden.

Ich bin sehr zufrieden und danke euch ganz herzlich f�r die Hilfe! :-)

05.04.2018, 13:59

#10

MOF User

Registrierung: 02.05.2009

Karma:

Hallo zusammen,

ich weiss das ist ein etwas �lterer Thread, aber es passt irgendwie hier rein da ich den Code verwendet habe.

Ich m�chte das, wenn ich in eine Zeile etwas eingetragen habe die n�chste Zeile automatisch eingeblendet wird und das soll f�r die mehrere Zeilen so sein, also habe ich die hier angegebenen Codezeilen ge�ndert in der Hoffnung das funktioniert.
Leider tut es das nicht. Eventuell k�nnte mir hier jemand weiterhelfen.

---
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1).Address = "$F$9" Then
Rows("10").Hidden = Target.Value = "x"
End If
End Sub
Private Sub Worksheet_Change1(ByVal Target As Range)
If Target.Cells(1).Address = "$F$10" Then
Rows("11").Hidden = Target.Value = "x"
End If
End Sub
Private Sub Worksheet_Change2(ByVal Target As Range)
If Target.Cells(1).Address = "$F$11" Then
Rows("12").Hidden = Target.Value = "x"
End If
End Sub
Private Sub Worksheet_Change3(ByVal Target As Range)
If Target.Cells(1).Address = "$F$12" Then
Rows("13").Hidden = Target.Value = "x"
End If
End Sub
----

Das ist was ich versucht habe, hiermit geht aber nur die Zeile F10 auf, aber nicht mehr F11 und F12.

Vielen Dank
Gru�
Mirko

05.04.2018, 14:35

#11

MOF Meister

Registrierung: 02.10.2003

Hallo,

du kannst nicht Worksheet_Change1 verwenden, das geht so nicht. Es gibt nur ein Worksheet_Change Ereignis.
Es ist �berhaupt unklar, was du genau machen willst. Du schreibst, du m�chtest die n�chste Zeile einblenden. Im Code blendest du die Zeile aber aus. Was nun?

__________________

Sch�ne Gr��e
Berni

05.04.2018, 16:14

#12

MOF Guru

Registrierung: 24.01.2011

Hi Mirko,

meinst du so etwas:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Cells(1).Address(False, False)
        Case "F9"
            Rows(10).Hidden = Target.Cells(1) = "x"
        Case "F10"
            Rows(11).Hidden = Target.Cells(1) = "x"
        Case "F11"
            Rows(12).Hidden = Target.Cells(1) = "x"
        Case "F12"
            Rows(13).Hidden = Target.Cells(1) = "x"
    End Select
End Sub

__________________

06.04.2018, 10:02

#13

MOF User

Registrierung: 02.05.2009

Karma:

super genauso vielen Dank

10.04.2018, 13:04

#14

MOF User

Registrierung: 02.05.2009

Karma:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Cells(1).Address(False, False)
Case "F8"
Rows(9).Hidden = Target.Cells(1) = "x"
Case "F9"
Rows(10).Hidden = Target.Cells(1) = "x"
Case "F10"
Rows(11).Hidden = Target.Cells(1) = "x"
Case "F11"
Rows(12).Hidden = Target.Cells(1) = "x"
Case "F12"
Rows(13).Hidden = Target.Cells(1) = "x"
Case "F13"
Rows(14).Hidden = Target.Cells(1) = "x"
Case "F14"
Rows(15).Hidden = Target.Cells(1) = "x"
Case "F15"
Rows(16).Hidden = Target.Cells(1) = "x"
Case "F16"
Rows(17).Hidden = Target.Cells(1) = "x"
Case "F17"
Rows(18).Hidden = Target.Cells(1) = "x"
Case "F18"
Rows(19).Hidden = Target.Cells(1) = "x"
Case "F21"
Rows(22).Hidden = Target.Cells(1) = "x"
Case "F22"
Rows(23).Hidden = Target.Cells(1) = "x"
Case "F23"
Rows(24).Hidden = Target.Cells(1) = "x"
Case "31"
Rows(32).Hidden = Target.Cells(1) = "x"
Case "F32"
Rows(33).Hidden = Target.Cells(1) = "x"
Case "F34"
Rows(35).Hidden = Target.Cells(1) = "x"
End Select
End Sub

verdammt es geht nicht mehr, warum ned. ich hab noch ein paar Zeilen hinzugef�gt. Ich hab halt ein paar Zeilen ausgelassen.

Eventuell k�nnte mir noch einmal jemand helfen.

10.04.2018, 13:39

#15

MOF Meister

Registrierung: 02.10.2003

Du hast bei

Code:

Case "31"
Rows(32).Hidden = Target.Cells(1) = "x"

das "F" vergessen, deshalb mag er nicht so recht.

__________________

Sch�ne Gr��e
Berni

Kann man in Excel einzelne Zellen ausblenden?

Wählen Sie eine oder mehrere Spalten aus, und drücken Sie die STRG-TASTE, wenn Sie weitere Spalten auswählen möchten, die nicht benachbart sind. Klicken Sie mit der rechten Maustaste auf die ausgewählten Spalten, und wählen Sie Ausblenden aus.

Warum blendet Excel Zeilen aus?

Wahrscheinlich haben Sie die verschwundenen Zellen oder Spalten nur versehentlich ausgeblendet. Um ausgeblendete Zeilen wieder anzuzeigen, markieren Sie die Zeile über- und unterhalb der Zeilen, die angezeigt werden sollen.

excel zellen ausblenden wenn bedingung erfüllt