Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zellen < jahr 2004 ausblenden über command button

Forumthread: zellen < jahr 2004 ausblenden über command button

zellen < jahr 2004 ausblenden über command button
02.03.2004 08:43:36
jürgen
hallo und moin moin,
gibts eine möglichkeit über ein makro / commandbutton die zeilen auszublenden in dessen spalte B das datum kleiner als 2004 ist.
gleichfalls wäre die funktion hilfreich ( ebenfalls über button )um alle zeilen wieder einzublenden.
ist sowas möglich ?
gruß und danke im vorraus
jürgen
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zellen < jahr 2004 ausblenden über command button
02.03.2004 09:24:53
TinoB
hallo jürgen,
probier dies mal, und dann noch einem button zuweisen.

Sub jahr_aus()
Dim i As Integer
For i = 1 To 2000
If Cells(i, 2).Value <= 2003 And Cells(i, 2).Value <> "" Then
Rows(i).Hidden = True
End If
Next i
End Sub



Sub jahr_ein()
For iCount = 1 To 2000
If ActiveSheet.Range("B" + CStr(iCount)) <> "" Then
ActiveSheet.Rows(iCount).Hidden = False
End If
Next
End Sub

Grüße
Tino
Anzeige
AW: zellen < jahr 2004 ausblenden über command button
02.03.2004 09:27:50
Maurice
Dies beides einfach mal im VBA-Editor in das entsprechende Arbeitsblatt kopieren.
Dann einfach zwei Knöpfe erstellen und die Makros zuweisen
Gruß Maurice

Sub ausblende()
Dim i As Long
Dim vergleichDatum As Date
vergleichDatum = 37987  'Der Wert für den 01.01.04
i = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2).Value < vergleichDatum Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
i = i + 1
Loop
End Sub



Sub einblende()
Cells.Select
Selection.EntireRow.Hidden = False
End Sub

Anzeige
AW: zellen < jahr 2004 ausblenden über command button
02.03.2004 09:42:24
jürgen
hi und erstmal vielen dank für die mühe.
allerdings hackt es noch irgendwo !!!
Userbild

habt ihr ev. nen tipp was falsch gelaufen ist?
jürgen
AW: zellen < jahr 2004 ausblenden über command button
02.03.2004 09:44:52
Maurice
Die ganz erste Zeile ist wohl noch von wo anders.
Folgenden Code kannst du nutzen um einen Schalter Knopf zu implementieren

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Einblenden" Then
Call einblende
CommandButton1.Caption = "Ausblenden"
Else
Call ausblende
CommandButton1.Caption = "Einblenden"
End If
End Sub

Anzeige
AW: zellen < jahr 2004 ausblenden über command button
02.03.2004 09:47:54
jürgen
muß ich diese zeile jetzt löschen?
und wohin gehört dein code?
jürgen
AW: siehe Antwort bei H.I.L.F.E
02.03.2004 10:06:22
Maurice
Also nun Schritt für Schritt:
- Du öfnnest den VBA-Editor und klickst im linken Bereich auf das Arbeitsblatt mit den Daten (datum plural oder?)
- Dort kopierst du den folgenden Code rein
- Dann nutzt du die Steuerlemente - Toolbox und fügst auf dem Tabellenblatt einen Button ein.
- Auf diesen drückst du mit der rechten Maustaste und dann auf Eigenschaften
- Dort überprüfst du den Namen des Buttons (sollte CommandButton1 heisten) (steht ganz oben)
- Dann beendest du den Entwurfstmodus (Blaues Symbol mit Lineal klicken) Dann dürfte es laufen


Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Einblenden" Then
Call einblende
CommandButton1.Caption = "Ausblenden"
Else
Call ausblende
CommandButton1.Caption = "Einblenden"
End If
End Sub

Sub einblende()
Cells.Select
Selection.EntireRow.Hidden = False
End Sub


Sub ausblende()
Dim i As Long
Dim vergleichDatum As Date
vergleichDatum = 37987 'Der Wert für den 01.01.04
i = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2).Value < vergleichDatum Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
i = i + 1
Loop
End Sub

Anzeige
AW: siehe Antwort bei H.I.L.F.E
02.03.2004 12:41:30
jürgen
auf ein letztes - dann nerve ich auch nicht mehr.....
bekomme folgenden fehler angezeigt:
Userbild

vielen dank für die hilfe
jürgen
AW: siehe Antwort bei H.I.L.F.E
02.03.2004 12:43:52
Maurice
Ersetzte in dem ersten Teil (oberste Prozedur) CommandButton1 jeweils durch CommandButton2 (ingesamt wohl dreimal)
Gruß Maurice
Anzeige
AW: siehe Antwort bei H.I.L.F.E
02.03.2004 13:00:32
jürgen
DANKE ERSTMAL - HAT LEIDER NICHT GEKLAPPT.
DAS EINZIGE WAS PASSIERT IST DAS BEIM CLICK ALLE ZELLEN MARKIERT WERDEN UND DER BUTTON ÄNDERT SICH.
Userbild
TROTZDEM DANKE
GRUß JÜRGEN
AW: H.I.L.F.E
02.03.2004 09:39:54
Maurice
Du möchtest also nur einen Knopf haben so wie einen Lichtschalter mit ein / aus richtig?
AW: H.I.L.F.E
02.03.2004 09:45:08
jürgen
hallo,
sofern es möglich ist - ja.
aber wie du siehst hab ich schon beim makro einrichten probleme ;-)))
ich hoffe das wird alles nicht so kompliziert !
jürgen
AW: H.I.L.F.E
02.03.2004 09:53:21
Maurice
Also nun Schritt für Schritt:
- Du öfnnest den VBA-Editor und klickst im linken Bereich auf das Arbeitsblatt mit den Daten (datum plural oder?)
- Dort kopierst du den folgenden Code rein
- Dann nutzt du die Steuerlemente - Toolbox und fügst auf dem Tabellenblatt einen Button ein.
- Auf diesen drückst du mit der rechten Maustaste und dann auf Eigenschaften
- Dort überprüfst du den Namen des Buttons (sollte CommandButton1 heisten) (steht ganz oben)
- Dann beendest du den Entwurfstmodus (Blaues Symbol mit Lineal klicken) Dann dürfte es laufen

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Einblenden" Then
Call einblende
CommandButton1.Caption = "Ausblenden"
Else
Call ausblende
CommandButton1.Caption = "Einblenden"
End If
End Sub

Sub einblende()
Cells.Select
Selection.EntireRow.Hidden = False
End Sub

Sub ausblende()
Dim i As Long
Dim vergleichDatum As Date
vergleichDatum = 37987 'Der Wert für den 01.01.04
i = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2).Value < vergleichDatum Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
i = i + 1
Loop
End Sub

Anzeige
;

Forumthreads zu verwandten 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
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
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
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
Zeilen Ein und Ausblenden
TinoB

Hallo Excelgemeinde,
ich stehe gerade auf dem Schlauch und hoffe Ihr könnt mir helfen. Ich habe im Forum schon danach gesucht, nur leider komme ich nicht weiter. Ich möchte wenn in der Zelle B2 eine 1, 2 oder 3 steht die Zeile 18 ausblenden. Ansonsten soll diese eingeblendet werden oder zum...
23.03.2009 16:43:10
Thread-ID: 1062965
4 Beiträge
Gitternetzlinien per Icon ein- und ausblenden
Vega

Hi,
ich habe mir Excel an meinem neuen Arbeitsplatz gerade wieder neu eingerichtet und auch alles soweit wieder hinbekommen. Nur ein Icon in der Menüleiste fehlt mir noch, mit dem ich die Gitternetzlinien ein- und ausblenden kann.
Ich hatte dies ein meiner alten Excel Umgebung in der Sy...
30.03.2009 15:30:18
Thread-ID: 1065324
5 Beiträge
Anzeige
Spalten mit Makro nach Vorgabe ein und ausblenden
Christoph

Hallo,
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden() Rows("9:209").Hidden = True Rows("9:" & (9 + Range("A4").Value)).Hidden = False End Sub
Für Spalten klapp...
09.04.2009 14:44:26
Thread-ID: 1068032
3 Beiträge
Spalten mit farbigen Zellen ausblenden
Robert

Hallo,
stehe momentan voll auf dem Schlauch und komm nicht weiter.
Könnte Ihr mir bitte helfen?
Ich müsste alle Spalten, in denen eine oder mehrere farbige Zellen sind, ausblenden.
- und das wenn möglich mit VBA.
Vielen Dank schon mal.
Gruß Robert
11.06.2009 19:25:52
Thread-ID: 1080829
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige