Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
976to980
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
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
Anzeige
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
Anzeige
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
Automatisches füllen von Zeilen aus Spalten
Zeilen

Hallo,
ich habe eine Datei, sie besteht aus 2 Tabellenblättern. Im Tabellenblatt "Ursprung" stehen die Daten, wie man sieht in einer Zeile nebeneinander. Ich habe nun diese Zeile mittels "Transportieren" in eine Spalte untereinander kopiert (im Tabellenblatt "Problem").
Nun habe ich ein...
24.10.2008 15:37:41
Thread-ID: 1019049
6 Beiträge
ausgeblendete Zeilen auf Blattkopie auch ausblende
Thomas

Hallo,
ich habe folgendes Problem:
Mittels VBA und der Funktion PastSpecial kopiere ich ein Tabellenblatt, welches ausgeblendete Zeilen enthält.
Zum Einfügen des zu kopierenden Inhaltes verwende ich die o.a. Funktion zwei mal:
Zielblatt.Range(Quellenblatt.UsedRange.Address).Past...
20.11.2008 09:18:00
Thread-ID: 1026312
3 Beiträge
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
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
2
5
2
4
3
5
5
2
1
1
4
4
5
3
4
1
2
2
3
2
5
6
6
7
5