Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 11:30:20
Pivot Balken und Kreisdiagram Darstellung /Beschriftung
28.04.2024 11:05:44
datum automatisch ändern und einfügen
28.04.2024 10:11:19
Nur aktuelle und direkte Unterordnen durchsuchen
28.04.2024 10:01:02
Rang aus zwei Datumsspalten ermitteln
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1876to1880
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
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ausblenden mit 2 Bedingungen

Zeilen ausblenden mit 2 Bedingungen
02.04.2022 17:22:10
Andreas
Hallo Excelprofis,
ich komme bei einem Problem, trotz Recherche, nicht so richtig weiter. Ich möchte per Makro Zeilen nach bestimmten Bedingungen ausblenden.
Ich möchte alle Zeilen im Bereich Zeile 5 bis Zeile 88 ausblenden, bei denen in den beiden Spalten C und G die Zelle leer oder 0 (Null) ist.
Also nur wenn C und G leer oder Null ist soll die Zeile ausgeblendet werden.
Kann mir bitte Jemand helfen.
Vielen Dank fürs lesen und die Hilfe.
mfg
Andreas

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden mit 2 Bedingungen
02.04.2022 18:24:16
onur 

Private Sub CommandButton1_Click()
Dim z
Range("A5:A88").Rows.Hidden = False
For z = 5 To 88
If Cells(z, 7) = 0 Or Cells(z, 37) Then Cells(z, 1).Rows.Hidden = True
Next z
End Sub

AW: Zeilen ausblenden mit 2 Bedingungen
02.04.2022 18:29:57
GerdL
Moin Andreas!

Sub Unit()
Dim C As Range, D As Range
For Each C In Range("5:88").EntireRow
If C.Cells(3) = 0 And C.Cells(7) = 0 Then
If D Is Nothing Then
Set D = C
Else
Set D = Union(D, C)
End If
End If
Next
If Not D Is Nothing Then
D.Delete
Set D = Nothing
End If
End Sub
Gruß Gerd
AW: Zeilen ausblenden mit 2 Bedingungen
02.04.2022 18:53:34
Andreas
Hallo Gerd,
leider verstehe ich nicht so viel von VBA, so dass ich Deinen Code nicht nachvollziehen kann.Ich gkaube aber, hier wird nur abgefragt ob in Spalte 3 und 7 eine 0 steht.
Die Lösung von onur hat mir geholfen, die konnte ich dann anpassen.
Vielen Dank für Deine Hilfe.
mfg
Andreas
Anzeige
AW: Zeilen ausblenden mit 2 Bedingungen
02.04.2022 18:35:27
onur
die 37 bitte in 3 ändern.
AW: Zeilen ausblenden mit 2 Bedingungen
02.04.2022 18:49:40
Andreas
Hallo,
vielen Dank für die Hilfe. Ich habe es jetzt, Dank Deiner Hilfe, so angepasst, da funktioniert es super.

Sub CommandButton1_Click()
Dim z
Range("A5:A88").Rows.Hidden = False
For z = 5 To 88
If Cells(z, 7) = 0 And Cells(z, 3) = 0 Then Cells(z, 1).Rows.Hidden = True
If Cells(z, 7) = "" And Cells(z, 3) = "" Then Cells(z, 1).Rows.Hidden = True
If Cells(z, 7) = 0 And Cells(z, 3) = "" Then Cells(z, 1).Rows.Hidden = True
If Cells(z, 7) = "" And Cells(z, 3) = O Then Cells(z, 1).Rows.Hidden = True
Next z
End Sub
Nochmals vielen Dank.
mfg
Andreas
Anzeige
AW: Zeilen ausblenden mit 2 Bedingungen
02.04.2022 19:00:48
onur
Wenn in den 2 Spalten sowieso nur eine Zahl oder nix steht (also kein Text), dann reicht das:

If Cells(z, 7) = 0 Or Cells(z, 3) = 0 Then Cells(z, 1).Rows.Hidden = True

AW: Zeilen ausblenden mit 2 Bedingungen
02.04.2022 19:58:28
Andreas
Hallo,
in den Zellen stehen Formeln, die auf bestimmte Zellen eines anderen Blattes verweisen. Die Formatierung ist tatsächlich Text. Es müssen alle Zeilen ausgeblendet werden, wo in Spalte 3 und Spalte 7 nix oder 0 steht. Also ist das Argument "Oder" hier nicht Zielführend.
Oder sehe ich das Falsch?
Die Zeile soll also nur ausgeblendet werden wenn eine der 4 Konstallationen vorliegen:
Spalte 3 und 7 =0
Spalte 3 und 7 =""
Spalte 3="" und 7 =0
Spalte 3=0 und 7 =""
Vielen Dank.
mfg
Andreas
Anzeige
AW: Zeilen ausblenden mit 2 Bedingungen
02.04.2022 20:05:19
onur
Oder ist GENAU der richtige Weg. Simpel ausgedrückt: Ausblenden wenn:
Spalte 3=0 oder Spalte 7=0 oder Spalte 3= leer oder Spalte 7 =leer
ODER ?
Oder trift auch zu, wenn mehrere der Bedingungen erfüllt werden.

If Cells(z, 7) = 0 Or Cells(z, 3) = 0  Or Cells(z, 7) = "" Or Cells(z, 3) = "" Then Cells(z, 1).Rows.Hidden = True

AW: Zeilen ausblenden mit 2 Bedingungen
02.04.2022 20:16:26
Andreas
Hallo,
Sorry, ist ohne Bespielmappe schwierig. Wenn ich das Argument "Oder" nutze, wird ja auch die Zeile ausgeblendet, bei der in einer der beiden Spalten ein Wert steht.
Das soll ja nicht sein. Nur wenn in beiden Spalten 0 oder "" steht soll die Zeile ausgeblendet werden. Es müssen also beide Spalten die Bedingungen erfüllen und nicht nur eine.
Grüße
Andreas
Anzeige
AW: Zeilen ausblenden mit 2 Bedingungen
02.04.2022 20:19:16
onur 

If (Cells(z, 7) = 0 Or Cells(z, 3) = 0)  And (Cells(z, 7) = "" Or Cells(z, 3) = "") Then Cells(z, 1).Rows.Hidden = True

AW: Zeilen ausblenden mit 2 Bedingungen
02.04.2022 20:33:23
Andreas
Hallo,
Das funktioniert gar nicht. Wenn ich das richtig interpretiere werden hier ja nur die Zeilen ausgeblendet wenn in einer Zelle 0 und in der anderen "" steht. Was ist aber, wenn in beiden Zellen 0 oder in beiden Zellen "" steht, die sollen ja auch ausgeblendet werden.
Eine bescheidene Frage. Was ist an meiner Lösung nicht richtig? Die funktioniert ja.
Grüße
Andreas
AW: Zeilen ausblenden mit 2 Bedingungen
02.04.2022 20:41:57
onur
Ich wollte nur deinen Code verkürzen, aber sowas passiert, wenn man keine Datei zum Testen hat.

If (Cells(z, 7) = 0 Or Cells(z, 7) ="")  And (Cells(z, 3) =0 Or Cells(z, 3) = "") Then Cells(z, 1).Rows.Hidden = True

Anzeige
AW: Zeilen ausblenden mit 2 Bedingungen
03.04.2022 14:48:35
Andreas
Hallo,
So funktioniert es perfekt. Vielen Dank für dei Geduld und Mühe.
mfg
Andreas
AW: Zeilen ausblenden mit 2 Bedingungen
03.04.2022 09:44:22
GerdL
Hallo Andreas,
also ausblenden, wenn "" oder 0.

Sub Unit()
Dim C As Range, D As Range
For Each C In Range("$5:$88").EntireRow
If C.Cells(3).Text = "0" Or C.Cells(3) = vbNullString Then
If C.Cells(7).Text = "0" Or C.Cells(7) = vbNullString Then
If D Is Nothing Then
Set D = C
Else
Set D = Union(D, C)
End If
End If
End If
Next
If Not D Is Nothing Then
D.EntireRow.Hidden = True
Set D = Nothing
End If
End Sub
Gruß Gerd
AW: Zeilen ausblenden mit 2 Bedingungen
03.04.2022 14:47:33
Andreas
Hallo,
vielen Dank, so funtionierts super.
Ein schönes Restwochenende.
mfg
Andreas
Anzeige

312 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8