Live-Forum - Die aktuellen Beiträge
Datum
Titel
01.12.2023 15:24:19
Bereich definieren und nach mehreren Kriterien Zählen
01.12.2023 15:11:13
Wenn Funktion nicht zutrifft nächste Zeile überprüfen
01.12.2023 15:08:00
Vier Shapes - Ovale zeitverzögert aus und einblenden
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ausblenden über Button

Zeilen ausblenden über Button
16.05.2008 13:34:00
Andre
Hallo!
Mal eine (hoffentlich) kurze Sache.
In meiner Tabelle können in den Zellen der ersten Spalte folgende Dinge stehen (Text): Grün, Rot, Gelb. Es kann auch nur eine leere Zelle vorhanden sein. Also 4 ‚Zustände’.
Es geht mir darum: Wenn in den Zellen der ersten Spalte ‚Grün’ oder ‚Rot’ steht, soll die gesamte Zeile ausgeblendet werden. Bevorzugt über einen Button, mit dem ich das ein und ausschalten kann.
Weiß da einer was? Danke!
Da ich nicht gerade viel Ahnung von VBA habe, hilft mir die Archiv-Suche in diesem Fall nicht weiter. Einen Code ausprobieren kann ich aber. ;)
Andre

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden über Button
16.05.2008 13:43:45
Klaus
Moin Andre,
Dieser Button blendet die aktuelle Zeile aus, wenn in ihrer Spalte A das Wort "Rot" oder "Grün" steht.

Private Sub CommandButton1_Click()
If Range("A" & ActiveCell.Row) = "Rot" Or Range("A" & ActiveCell.Row) = "Grün" Then
ActiveCell.EntireRow.Hidden = True
End If
End Sub


Aber was meinst du mit "ein - ausschalten"? Oder soll die Zeile ausgeblendet werden, sobald du "Rot" eingibts?
Grüße,
Klaus M.vdT.

AW: Zeilen ausblenden über Button
16.05.2008 13:57:00
David
Da ich gerade heute ein ähnliches Problem hatte, hier mal meine Lösung als Vorschlag:

Sub zeilen_löschen2()
Dim Zeile As Long, wks As Worksheet
Set wks = Worksheets("Tabelle1")
With wks
For Zeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If Cells(Zeile, 1).Value = "grün" Or Cells(Zeile, 1).Value = "rot" Then
Rows(Zeile & ":" & Zeile).Rows.Group
Rows(Zeile & ":" & Zeile).EntireRow.Hidden = True
End If
Next
End With
End Sub


Dabei werden die entsprechenden Zeilen als Gruppierung formatiert und anschließend ausgeblendet. Dies hat den Vorteil, dass du das Ausblenden ganz schnell wieder rückgängig machen kannst, indem du die Gruppierungsansicht erweiterst.
Gruß
David

Anzeige
AW: Zeilen ausblenden über Button
16.05.2008 13:57:23
Andre
Danke.
ich meine, dass ich auf einen 'Button' klicken kann, der mir wahlweise die Zeilen ausblendet oder auch wieder einblendet. Ein- Ausblenden also nur auf click auf den Button.
Hab mich wohl etwas ungeschickt ausgedrückt.

Siehe meine Lösung (ot)
16.05.2008 14:02:23
Andi
.

AW: Zeilen ausblenden über Button
16.05.2008 13:49:00
Andi
Hi,
mit folgendem Code kannst Du die Zeilen aus- bzw einblenden; nachdem Du den Button erzeugt hast, musst Du ihm einmalig in den Eigenschaften die Caption 'Ausblenden' zuweisen, danach springt die Beschriftung des Button automatisch um, je nach Zustand.

Private Sub CommandButton1_Click()
Dim lZeile As Long
Select Case CommandButton1.Caption
Case "Ausblenden"
For lZeile = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(lZeile, 1) = "Rot" Or Cells(lZeile, 1) = "Grün" Then
Cells(lZeile, 1).EntireRow.Hidden = True
End If
Next lZeile
CommandButton1.Caption = "Einblenden"
Case "Einblenden"
ActiveSheet.Rows.Hidden = False
CommandButton1.Caption = "Ausblenden"
End Select
End Sub


Schönen Gruß,
Andi

Anzeige

300 Forumthreads zu ähnlichen Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
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
Zeilen ausblenden per Button
Hanses

Hallo,
ich wiederhole mein Frage.
Ich möchte in einem geschützen Tabellenblatt, welches per Passwort freigegeben wird, per Button alle Zeilen ausblenden, wenn in Zelle der Spalte "C" kein Eintrag vorliegt.
Ich möchte keinen Autofilter einsetzen, da auch alle Menüs und die Spalten un...
11.09.2008 14:00:00
Thread-ID: 1009116
3 Beiträge
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
Spalten mit Farbe ausblenden
Pet


Wünsche allen einen guten Abend.
Habe mal wieder ein Problem!
Ich brauche ein Makro, welches mir Spalten mit der Hintergrundfarbe gelb ausblendet.
durchsucht wird nur Zeile 2 von A:AR.
Vorab vielen Dank für Eure Hilfe.
Gruß
Pet
08.10.2008 20:13:58
Thread-ID: 1015160
6 Beiträge

Links zu Excel-Dialogen

CommandButton
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige