Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen aus- / einblenden

Forumthread: Zeilen aus- / einblenden

Zeilen aus- / einblenden
11.09.2008 18:24:56
Thomas
Hallo,
ich möchte folgendes machen:
Entprechend dem Wert im Feld B3 sollen verschieden Zeilen ein- bzw. aus-geblendet werden.
Steht zum Beispiel im Feld B3 der Wert 1 sollen die Zeilen "B7:B15" ausgeblendet werden
Steht im Feld B3 der Wet 2 sollen die Zeilen "B8:B15" ausgeblendet werden
Steht im Feld B3 der wert 3 sollen die Zeilen "B9:B15" ausgeblendet werden.
usw...
ich habe folgendes Macro für den Wert 1 der auch funktioniert

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B3").Value = 1 Then
Rows("7:15").Hidden = True
Else
Rows("7:15").Hidden = False
End If
End Sub


Füge ich nun zwischen End If und End Sub

den If Befehl für den Wert 2 ein, funktioniert dieser, aber dafür funktioniert die Sache mit dem Wert 1 nicht mehr.
Es funktioniert immer nur der unterste If Befehl. Die davorhergehenden nicht mehr.
Was kann ich machen?

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen aus- / einblenden
11.09.2008 18:29:00
Hajo_Zi
Hallo Thomas,
das geht kürzer
Rows("7:15").Hidden =Range("B3").Value = 1
Rows("8:15").Hidden =Range("B3").Value = 2

AW: Zeilen aus- / einblenden
11.09.2008 18:51:54
Thomas
Dank Hajo,
ist kürzer, aber es funktioniert immer nur die unterste Funktion.
Bei
Rows("7:15").Hidden =Range("B3").Value = 1
Rows("8:15").Hidden =Range("B3").Value = 2
werden die Zeilen korrekt bei Wert 2 in B3 ausgeblendet, Bei Wert 1 passiert nichts.
Bei
Rows("7:15").Hidden = Range("B3").Value = 1
Rows("8:15").Hidden = Range("B3").Value = 2
Rows("9:15").Hidden = Range("B3").Value = 3
werden die Zeilen korrekt bei Wert 3 in B3 ausgeblendet, Bei Wert 1 und 2 passiert nichts
Anzeige
AW: Zeilen aus- / einblenden
11.09.2008 19:11:23
Hajo_Zi
Hallo Thomas,
jetzt mit Testung.

Rows("7:15").Hidden = False
Select Case Range("B1")
Case 1, 2, 3
Rows(6 + Range("b1") & ":15").Hidden = True
Case Else
Rows("7:15").Hidden = False
End Select


Gruß Hajo

Anzeige
AW: Zeilen aus- / einblenden
11.09.2008 19:17:24
Thomas
Einwandfrei, vielen Dank Hajo
AW: Zeilen aus- / einblenden
11.09.2008 19:27:00
Hajo_Zi
Hallo Thomas,
der Teil
Case Else
Rows("7:15").Hidden = False
kann entfallen das ist noch ein Rest von der Testung
Gruß Hajo
AW: Zeilen aus- / einblenden
11.09.2008 19:52:50
Erich
Hallo Thomas,
das "usw..." in deinem ersten Beitrag hat mich noch mal rumprobieren lassen.
Muss es eigentlich Worksheet_SelectionChange sein? Worksheet_Change reicht meist aus.
Hier mal beide Varianten, die beide auf Eingaben einer Zahl von 0 bis 9 reagieren: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Cells(3, 2)) Is Nothing Then Exit Sub
If Cells(3, 2)  9 Then Exit Sub
Rows("6:14").Hidden = False
Rows(6 + Cells(3, 2)).Resize(10 - Cells(3, 2)).Hidden = True
End Sub
Private Sub xxxWorksheet_SelectionChange(ByVal Target As Range)
If Cells(3, 2)  9 Then Exit Sub
Rows("6:14").Hidden = False
Rows(6 + Cells(3, 2)).Resize(10 - Cells(3, 2)).Hidden = True
End Sub

Durch das "xxx" am Anfang von xxxWorksheet_SelectionChange ist dieses Ereignis erst mal deaktiviert.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Zeilen aus- / einblenden
11.09.2008 20:39:00
Thomas
Danke, ist sogar noch besser,
so kann man irgendeinen Wert in den Code geben z.B 

> 10

oder



> 99

oder wie auch immer, ohne die ganze Zahlenpalette angeben zu müssen.
Ich habe schon so viel versucht und ewig daran rumgefummelt und nun habe ich gleich 2 verschieden Lösungen von Euch. Vielen Dank
Ich habe es jetzt so:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Cells(3, 2)) Is Nothing Then Exit Sub
If Cells(3, 2)  10 Then Exit Sub
Rows("6:15").Hidden = False
Rows(6 + Cells(3, 2)).Resize(11 - Cells(3, 2)).Hidden = True
End Sub
Private Sub xxxxWorksheet_SelectionChange(ByVal Target As Range)
If Cells(3, 2)  10 Then Exit Sub
Rows("6:15").Hidden = False
Rows(6 + Cells(3, 2)).Resize(10 - Cells(3, 2)).Hidden = True
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 Beiträge
Wiedergabe von Werten aus einer Spalte
Werten

Hallo zusammen,
ich habe in einem Tabellenblatt in einer Spalte ca. 16000 Werte stehen (Form: Buchstaben+Zahlenkombinationen (Auftragsnummern)) die beliebig häufig vorkommen können. Es sind aber nur ca. 30 verschiedene Werte. Nun möchte ich in einer automatisierten Ausgabe in einer neuen Sp...
16.01.2009 10:27:00
Thread-ID: 1040456
6 Beiträge
Anzeige
Kann Zeilen, die DA SIND, nicht mehr einblenden!!!
Stephan

Liebe Liste,
habe hier ein Problem, das mich fast verzweifeln läßt!
Ich habe 4 Zeilen am Anfang einer Datei, die sich partout nicht mehr einblenden lassen! Ich kann dort mit den Pfeiltasten der Tastatur hinlaufen, sehe oben in der Wertezeile auch den Wert der Zellen, in denen Inhalt ste...
25.01.2009 12:52:00
Thread-ID: 1043550
11 Beiträge
Spalten-Hintergrundfarbe wiederherstellen
Werner

VBA-Level: befriedigend
Hallo Freunde,
wenn ich in Excel 2007 Dubletten aussondere, erscheinen in mit einer Hintergrundfarbe gefaerbten
Spalten immer weiße Stellen, oft bis zum Ende der Tabelle, und zwar durch die Reihe in allen Spalten.
Dies kann auch bei der Anpassung eines zu...
03.02.2009 08:22:16
Thread-ID: 1046503
3 Beiträge
Zeile automatisch Einblenden
eliewsam

Hallo VBA-Experten,
ich bin auf der Suche nach einem Makro, das von einer beliebigen Zelle aus, die nächste Zeile einblendet, sofern diese ausgeblendet ist.
Vielleicht kann mir hierbei jemand weiterhelfen. Gruß Elie
08.02.2009 18:45:00
Thread-ID: 1048414
2 Beiträge
Spaltenwerte suchen und Info links davon wiedergeb
wiedergeb

Hallo Leute,
ich habe mal wieder eine komische Frage. Ich habe ein Tabellen Blatt indem Werte untereinander angezeigt werden sollen, die zuvor aus einem anderem Blatt in einer Spalte gefunden wurden, die aus Nullwerten und manchmal aus richtigen Zahlen besteht. Die Bedingung ist hier größer...
13.02.2009 10:57:00
Thread-ID: 1050402
4 Beiträge
Excel beim Öffnen nicht sichtbar
Dirk

Hallo Excelgemeinde!
Ich habe mal eine Frage und hoffe mal wieder auf euch!
Ich möchte einen Code beim Öffnen der Datei starten, ohne dass Excel auf dem Desktop erscheint.
Mit folgendem Code wird Excel kurz sichtbar und wird dann ausgeblendet.
Private Sub Workbook_Open() Appli...
06.05.2009 19:28:53
Thread-ID: 1073466
6 Beiträge
Anzeige
kleinster, resp grösster nicht ausgeblendeter Wert
Peter

Guten Abend
Ich möchte aus einem Spaltenbererich den grössten, resp. den kleinsten Wert ermitteln. Dabei dürfen nur Werte aus nicht ausgeblendeten Zeilen berücksichtigt werden.
Wie kann ich das anstellen?
Danke für eine Antwort.
Gruss, Peter
16.06.2009 20:38:45
Thread-ID: 1082045
2 Beiträge
Spalte vor Druck ausblenden/nach Druck einblenden
Gesa

Hallo,
habe nachfolgendes Makro und möchte gerne, dass es erweitert wird und zwar dass bei anwählen des Markos die Spalte D ausgeblendet wird und nach verlassen der Seitenansicht wieder eingeblendet wird.
Geht das?
Für Hilfe bin ich wie immer :-) dankbar..
Sub Druck_KlasseA()...
27.06.2009 15:48:42
Thread-ID: 1084819
4 Beiträge
Anzeige
Spalte lässt sich nicht formatieren
Joachim

Hi,
habe hier ein ganz komisches Problem. Es geht um ein Template, welches von einem Notes-System mit Daten gefüllt wird. In dem Template gibt es eine Spalte mit Datum. (Es steht zumindest das Datum drin)
Wenn ich das Format anschaue, steht es auf Standard.
Diese Spalte wollte ich i...
23.11.2009 10:46:38
Thread-ID: 1119390
3 Beiträge
Anzeige
VBA: Wiederholung von Zahlengruppen in Spalte
Zahlengruppen

Hallo,
ich quäle mich hier mit einem Problem herum, bei dem ich wahrscheinlich eine bessere VBA-Ausbildung
brauchen würde, um es selber lösen zu können. Ich glaube, die Lösung hängt irgendwie mit einem
Array zusammen:
Ich habe eine Spalte mit Zahlen zwischen 0 und 100 und es kom...
28.11.2009 12:47:57
Thread-ID: 1120665
9 Beiträge
Spalten aus-einblenden
Fritz

Hallo, kann mir jemand helfen?
Wie kann ich aus ausgeblendeten Spalten gezielt mit einem Dropdownmenü einzelne Spalten wieder einblenden?
So wie bei "Blatt" aus und einblenden.
Für die Hilfe bereits im Voraus vielen Dank
Gruß
Fritz
29.11.2009 19:59:29
Thread-ID: 1120786
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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