Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1688to1692
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
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen bedingt ausblenden mit begrenzter Schleife

Zellen bedingt ausblenden mit begrenzter Schleife
06.05.2019 18:07:03
ronny.brosende
Hallo Zusammen!
Ich möchte für folgenden Befehl eine Schleife für die nächsten 90 Zeilen einrichten:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B1")
Leider habe ich hierzu nirgendwo etwas gefunden und würde mich deshalb sehr über eine Antwort freuen.
Liebe Grüße
Ronny

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen bedingt ausblenden mit begrenzter Schleife
06.05.2019 18:15:48
Werner
Hallo Ronny,
meinst du so: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
Select Case Target.Row
Case 1 To 89
Rows(Target.Row + 1).Hidden = Target
Gruß Werner
AW: Zellen bedingt ausblenden mit begrenzter Schleife
06.05.2019 18:26:37
ronny.brosende
Vielen Dank für die rasche Antwort!
Der Befehl konnte mein Problem leider nicht lösen.
Der Befehl soll folgende ausführen:
Wenn die Zelle B1 kleiner ist als 0 soll die Zeile 2 ausgeblendet werden. Dieser Befehl soll wiederum in eine Schleife, sodass diese Regelung für die Zeilen 2 bis 90 auch zutrifft (Bsp. wenn B2 leer dann Zeile 3 ausgeblendet, wenn B 3 leer dann Zeile 4 ausgeblendet, usw.)
Anzeige
AW: Zellen bedingt ausblenden mit begrenzter Schleife
06.05.2019 18:37:36
Werner
Hallo Ronny,
und wo hast du den Code stehen? Dir ist schon klar, dass das ein Event-Makro ist? Das gehört ins Codemodul des Tabellenblattes, auf dem sich der Code auswirken soll.
Zudem handelt es sich um ein Change-Event. Das reagiert nur auf eine "händische" Zelleingabe.
Kopier den Code mal ins Codemodul von Tabelle1. Geh dann in irgendeine Zelle in Spalte B und drück die Entfernen-Taste.
Gruß Werner
AW: Zellen bedingt ausblenden mit begrenzter Schleife
06.05.2019 19:45:21
ronny.brosende
Hat geklappt! Vielen Dank für die rasche Antwort!
Gerne u. Danke für die Rückmeldung. o.w.T.
06.05.2019 19:48:09
Werner
AW: Zellen bedingt ausblenden mit begrenzter Schleife
06.05.2019 18:50:35
onur 

Private Sub Worksheet_Change(ByVal Target As Range)
Exit Sub
Dim cell
If Target.Column  2 Or Target.Row > 89 Then Exit Sub
For Each cell In Target
If cell.Column = 2 And cell.Row

Da dein Code auch im Change-Event war, gehe ich davon aus, dass er auf Änderungen reagieren soll.
Zum Testen einfach die Zellen aus B einfach kopieren und an die gleiche Stelle einfügen.
Der Code kann natürlich NICHT auf Änderungen durch Formeln reagieren, dafür müsste er auf Kommando (Button) laufen.
Anzeige
AW: Zellen bedingt ausblenden mit begrenzter Schleife
06.05.2019 19:44:50
ronny.brosende
Hat geklappt! Vielen Dank für die Rasche Antwort!
AW: Zellen bedingt ausblenden mit begrenzter Schleife
06.05.2019 19:52:22
onur
Dass das 
Exit Sub

weg muss (Restmüll aus Testphase), hast du anscheinend schon bemerkt.

307 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

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