Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1704to1708
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ausblenden wenn Bedingung erfüllt ist

Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 12:01:10
Schlandro
Hallo,
ich würde gerne per VBA Zeilen ausblenden wenn in einer bestimmten Zelle (D7) ein bestimmter Wert ausgegeben wird. Heißt wenn beispielsweise XY ausgegeben wird sollen Zeilen 25 bis 30 ausgeblendet werden.
Nun zu meinem Problem, ich habe Schwierigkeiten das "Private Sub" auszuführen um die Zeilen auszublenden. Wie muss ich das ins Makro integrieren? Was fehlt in meinem Code?

Option Explicit
Private Sub Ausblenden(ByVal Target As Range)
If Target.Address = "$D$7" Then
If Target.Value = "XY" Then
Rows("25:30").Hidden = True
Else
Rows("25:30").Hidden = False
End If
ElseIf Target.Address = "$D$7" Then
If Target.Value = "ZX" Then
Rows("25:30").Hidden = True
Rows("17:22").Hidden = True
Else
Rows("25:30").Hidden = False
Rows("17:22").Hidden = False
End If
End With
End Sub
Beste Grüße und vielen Dank für die Hilfe!

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 12:06:56
Torsten
Schreib den Code ins Worksheet_Change Ereignis.
Gruss Torsten
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 12:41:56
Schlandro
Hallo Torsten,
dass habe ich bereits versucht, es funktioniert trotzdem leider nicht. Könnte ich sonst noch was übersehen haben?
Danke!
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 12:49:28
Werner
Hallo,
was bedeutet hier
in einer bestimmten Zelle (D7) ein bestimmter Wert ausgegeben wird
ausgegeben? Ist das Ergebnis in D7 das Ergebnis einer Formelberechnung oder wird der Wert von Hand eingegeben?
Gruß Werner
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 12:53:29
peterk
Hallo
Versuch mal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$D$7" Then
        If Target.Value = "XY" Then
            Rows("25:30").Hidden = True
        ElseIf Target.Value = "ZX" Then
            Rows("25:30").Hidden = True
            Rows("17:22").Hidden = True
        Else
            Rows("25:30").Hidden = False
            Rows("17:22").Hidden = False
        End If
    End If
End Sub

Anzeige
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 13:29:09
peterk
Hallo
Bitte 

Private Sub Worksheet_Change(ByVal Target As Range)
verwenden und nicht "SelectionChange"
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 13:47:34
Schlandro
Hallo,
das Makro lässt sich zwar ausführen, aber es passiert jedoch nichts. Außerdem öffnet sich bei jeder "Sub Ausführung" ein Fenster indem man erneut das Makro auswählen, bearbeiten und ausführen kann.
Hier ist eine Testdatei, bei dem ich das Makro getestet habe.
https://www.herber.de/bbs/user/131179.xlsm
Danke für eure Bemühungen!
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 13:55:39
peterk
Hallo
Ich dachte Du wolltest bei "XY" die Zellen ausblenden, bei Dir steht aber
        If Target.Value = "XY" Then
            Rows("25:30").Hidden = False
Des weiteren ist die Abfrage Case-Sensitive "xy" ist nicht "XY"
Ansonsten funktioniert es bei mir.
Anzeige
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 14:02:26
Werner
Hallo,
so: 
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case UCase(Range("D7").Value)
Case "XY"
Rows("25:30").Hidden = True
Rows("17:22").Hidden = False
Case "ZX"
Rows("25:30").Hidden = True
Rows("17:22").Hidden = True
Case Else
Rows("25:30").Hidden = False
Rows("17:22").Hidden = False
End Select
End Sub
Gruß Werner
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 14:45:57
Schlandro
Hallo Werner,
dein Code funktioniert wunderbar, allerdings funktioniert er nicht bei Kleinschreibug oder mit Zahlen. Also beispielsweise wenn Xy oder xy in der Zelle eingegeben werden. Was muss ich dahingehend noch verändern?
Vielen Dank!
Anzeige
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 15:04:57
peterk
Hallo
Beziehst Du Dich auf meine Code oder den von Werner (Werner hat bereist ein "UCASE" eingefügt und somit wäre Groß/Kleinschreibung kein Problem). In meinen Code müsstes Du folgendes machen 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$7" Then
        If UCase(Target.Value) = "XY" Then
            Rows("25:30").Hidden = True

        ElseIf UCase(Target.Value) = "ZXY" Then
            Rows("25:30").Hidden = True
            Rows("17:22").Hidden = True
        Else
            Rows("25:30").Hidden = False
            Rows("17:22").Hidden = False
        End If
    End If
End Sub

Anzeige
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 15:10:22
Werner
Hallo,
wie kommst du denn bitte zu der Aussage, dass der Code nicht mit kleinschreibung funktionieren würde. Bei meinem Code ist es völlig egal ob klein oder groß oder teilweise klein und teilweise groß geschrieben wird.
Und was das Ganze jetzt mit Zahlen zu tun haben soll erschließt sich mir jetzt leider überhaupt nicht.
Gruß Werner
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 15:55:14
Schlandro
Hallo,
ich habe mich auf Werners Code bezogen aber bei der anderen Code-Version habe ich genau das gleiche Phänomen. Wenn ich im Code und in der Tabelle XY durch beispielsweise Xy 23 ersetze funktioniert es nicht, bei XY oder XX jedoch schon. Ich kann auch nicht nachvollziehen woran das Liegen soll.
Anzeige
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
31.07.2019 17:22:26
Werner
Hallo,
was erwartest du denn, wenn du plötzlich die Vorgaben änderst.
Anfangs war die Rede davon, dass XY bzw. ZX in die Zelle eingetragen wird. Jetzt ist es plötzlich XY ? oder ZX ?
Oder meinst du bei einer Prüfung per Formel würdest du da bei XY = XY 123 als Ergebnis ein Wahr bekommen?
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Left(UCase(Range("D7").Value), 2)
Case "XY"
Rows("25:30").Hidden = True
Rows("17:22").Hidden = False
Case "ZX"
Rows("25:30").Hidden = True
Rows("17:22").Hidden = True
Case Else
Rows("25:30").Hidden = False
Rows("17:22").Hidden = False
End Select
End Sub
Vielleicht solltest du dir den Code etwas genauer anschauen und zumindest versuchen ihn zu verstehen. So kompliziert ist der jetzt wirklich nicht.
Gruß Werner
Anzeige
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
01.08.2019 08:19:06
Schlandro
Hallo,
eigentlich sollte es doch geanuso funktionieren, wenn ich den Code entsprechend anpasse:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Left(UCase(Range("D7").Value), 2)
Case "Xxxxx 100"
Rows("25:30").Hidden = True
Rows("17:22").Hidden = False
Case "Zx5"
Rows("25:30").Hidden = True
Rows("17:22").Hidden = True
Case Else
Rows("25:30").Hidden = False
Rows("17:22").Hidden = False
End Select
End Sub
Dann Sollte entsprechend für Xxxxx 100 in zelle D7 die Zeilen ausgeblendet werden, ebenso für Zx5. Aber genau das funktioniert nicht. Oder übersehe ich da etwas völlig offentsichliches?
Danke für eure Hilfe!
Anzeige
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
01.08.2019 08:56:16
hary
Moin
Kann auch nix passieren.
Mit 
Select Case Left(UCase(Range("D7").Value), 2)

nimmst du fuer die Cases die beiden linken Zeichen und als Grossbuchstaben
Also pruefst du auf XX oder XY
Damit treten die Faelle "Xxxxx 100" und "Zx5" nie ein.
solte so im Code stehen: Case "XX" oder Case "ZX"
gruss hary
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
01.08.2019 09:40:26
Schlandro
Hallo,
Mein Code funktioniert soweit, allerdings nur mit Grossschreibung. Gibt es auch eine Möglichkeit, dass Kleinschreibung berücksichtigt wird? Sodass auch für beispielsweise "Zxxxxx Yxxx" die Zeilen ausgeblendet werden.
If Target.Address = "$D$7" Then
If UCase(Target.Value) = "Zxxxxx Yxxx" Then
Rows("33:39").Hidden = True
Else
Rows("33:39").Hidden = False
End If
End If
Danke an alle!
Anzeige
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
01.08.2019 09:54:56
hary
Moin
Dann ohne UCase 
If Target.Address = "$D$7" Then
If Target.Value = "Zxxxxx Yxxx" Then
Rows("33:39").Hidden = True
Else
Rows("33:39").Hidden = False
End If
End If

oder einfacher 
If Target.Address = "$D$7" Then
Rows("33:39").Hidden = Target.Value = "Zxxxxx Yxxx"
End If

gruss hary
AW: Zeilen ausblenden wenn Bedingung erfüllt ist
01.08.2019 10:45:22
Schlandro
Hallo,
Danke Harry, das funktioniert soweit. Gibt es auch die Möglichkeit, dass für weitere Fälle anzuwenden?
heißt in der Zelle D7 können verschiedene Werte ausgegeben werden, so wie hier im Beispiel. Jedoch funktioniert, dass nur teilweise. Geht dass überhaupt so simpel oder brauch ich da einen komplett anderen Code?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$7" Then
Rows("33:39").Hidden = Target.Value = "Xx/Yx"
End If
If Target.Address = "$D$7" Then
Rows("24:39").Hidden = Target.Value = "Yx"
End If
If Target.Address = "$D$7" Then
Rows("16:31").Hidden = Target.Value = "Yxx"
End If
If Target.Address = "$D$7" Then
Rows("24:31").Hidden = Target.Value = "Yxx/Yx"
End If
If Target.Address = "$D$7" Then
Rows("16:24").Hidden = Target.Value = "Xyy"
Rows("31:39").Hidden = Target.Value = "Xyy"
End If
End Sub

Anzeige

398 Forumthreads zu ähnlichen Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
wenn bedingung erfüllt eine bestimmte zelle beschr
Markus

Hallo zusammen,
ich würde gerne wenn eine bestimmte Bedingung erfüllt ist, einen Wert in eine Zelle schreiben lassen. Das bekomm ich auch auch mit der Wenn-Funktion hin, ABER:
wie bekomme ich es hin, dass wenn die Bedingung nicht erfüllt wird, der wert in eine andere Zelle geschrieben...
29.06.2009 20:53:51
Thread-ID: 1085215
6 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Anzeige
Zellen ausfüllen wenn Bedingung erfüllt (per VBA)
Jessi

Hallo zusammen,
ich habe mal wieder eine Frage bzw. ein Problem, dass ich nicht selbst lösen kann.
Ich lasse per Userform in die Spalte B einen "String" schreiben, das funktioniert auch schon (nicht in Beispielmappe integriert)
Beispielmappe:
https://www.herber.de/bbs/user/6928...
28.04.2010 19:30:32
Thread-ID: 1154354
4 Beiträge
Zellen löschen wenn Bedingung erfüllt ist
Kathi

Hallo zusammen,
zunächst einmal vielen Dank für die vielen tollen Beiträge, die mir schon sehr weitergeholfen haben. Leider stehe ich derzeit vor folgendem Problem (versuche, mich kurz zu fassen):
- habe Fragebogen erstellt, der in Excel eingegeben wird (Optionsfelder)
- insgesamt g...
02.06.2010 10:46:08
Thread-ID: 1159977
3 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:20:47
Thread-ID: 1165045
2 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:09:45
Thread-ID: 1165046
3 Beiträge
Nur Werte übernehmen
gisela

Hallo,
wie kann ich folgende Anweisung ändern, damit nur die Werte übertragen werden?
Sub autoautoC() Application.ScreenUpdating = False Dim strBreich As String Dim rngZelle As Range Sheets("Mai_C").Select strBreich = "$A$1:" & ActiveSheet.Cells(Rows.Count, "A"). _ End(xlUp).Address...
10.09.2010 09:54:44
Thread-ID: 1176788
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
5
12
4
3
2
1
2
9
2
3
1
10
2
3
6
2
5
9
9
8
2
4
9