Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1420to1424
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
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ausblenden per VBA

Zeilen ausblenden per VBA
12.04.2015 13:17:03
Paul
Hallo,
ich hatte hier kürzlich erfolgreich das Problem gelöst, per VBA Zeilen auszublenden. Dies funktioniert immer noch tadellos, allerdings hat mich der Übermut gepackt und nun möchte ich mit anderen Regeln andere Zeilen ausblenden. Ich habe alles mir logisch erscheinende probiert, aber es klappt nicht.
Also ich wende erfolgrech folgenden Code an um bestimmte Zeilen auszublenden sobald der Wert in Zelle A2 ein bestimmter ist:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Rows("12:13").Hidden = Range("A2") = 0
Rows("37:42").Hidden = Range("A2") = 0
Rows("313:316").Hidden = Range("A2") = 1
Rows("342:344").Hidden = Range("A2") = 1
End If
End Sub
Nun möchte ich weitere Zeilen ausblenden wenn der Wert in Zelle B2 1 oder 0 ist.
Könnt ihr mir da weiterhelfen?
Vielen Dank, Paul.

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden per VBA
12.04.2015 13:30:03
Matthias
Hallo Paul
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Rows("12:13").Hidden = Range("A2") = 0
Rows("37:42").Hidden = Range("A2") = 0
Rows("313:316").Hidden = Range("A2") = 1
Rows("342:344").Hidden = Range("A2") = 1
End If
If Not Intersect(Target, Range("B2")) Is Nothing Then
Rows("4:5").Hidden = Range("B2") = 0 Or Range("B2") = 1
Rows("7:9").Hidden = Range("B2") = 0 Or Range("B2") = 1
End If
End Sub
Gruß Matthias

AW: Zeilen ausblenden per VBA
12.04.2015 14:09:16
Paul
Hallo Matthias,
vielen Dank für die schnelle Antwort, aber das habe ich bereit probiert. Dann blendet er gar nichts mehr ein oder aus... Hast Du eine Idee woran das liegen kann?
Gruß Paul.

Anzeige
kann ich mir nicht vorstellen
12.04.2015 14:35:51
Matthias
Hallo
Bei mit klappt es doch auch ohne Probleme
Gib in A2 1 oder 0 ein (oder Inhalt löschen)
Gib in B2 0, 1 oder z.B. 3 ein.
Bei mit wird ein- und ausgeblendet.
Ansonsten lad die Mappe hoch, da kann man schauen, was los da ist.
Gruß Matthias

AW: Zeilen ausblenden per VBA
12.04.2015 20:12:00
Paul
Ah, jetzt klappt es. Dann muss ich zuerst wohl irgendwas falsch gemacht haben. Danke Dir!

AW: Zeilen ausblenden per VBA
12.04.2015 18:41:05
Gerd
Hallo Paul,
wahrscheinlich hast du die Erweiterung entgegen dem Wortlaut deiner Beschreibung so gemeint:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Range("12:13,37:42").EntireRow.Hidden = Range("A2") = 0
Range("313:316,342:344").EntireRow.Hidden = Range("A2") = 1
End If
If Not Intersect(Target, Range("B2")) Is Nothing Then
Rows("4:5").Hidden = Range("B2") = 1
Rows("7:9").Hidden = Range("B2") = 0
End If
End Sub

Gruß Gerd
Anzeige

306 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 VBA
thomas

Hallo mal wieder
Über eine Suche wird mir die SpaltenNr mit dem Treffer ausgegeben und in ein Array geschrieben (ArrSpalte(i)).
Nun möchte ich im sheet("Tabelle1") alle Zeilen ausblenden in der kein Treffer ist.
Z.b.
Treffer
ArrSpalte(1)=8
ArrSpalte(2)=8 'Zweiter Treffer...
08.04.2009 13:08:33
Thread-ID: 1067708
2 Beiträge
Zeilen ausblenden ohne VBA
Ptonka

Hallo zusammen,
ich habe eine Tabelle mit 10 Spalten und 15 Zeilen.
In Spalte A wird mittels einer Formel je nach Eintrag in anderen Spalten ein "x" eingetragen.
Diese mit "x" gekennzeichneten Zeilen sollen ausgeblendet werden.
Dies soll aber weder mit einem Makro noch mit dem A...
20.05.2009 13:47:30
Thread-ID: 1076358
3 Beiträge
Anzeige
VBA Zeilen ein-/ausblenden
Daniel

Hallo
Ich habe eine Frage, ob der nachfolgende VBA-Code vereinfacht werden kann.
Ausgangslage: in der Spalte B sind die Auswahlkriterien (3 stellige Nummern: 101, 102, 103, etc.). Nun soll via Makro alle Zeilen einer bestimmte Nummer (z.B. 101) angezeigt werden.
Ist es möglich, den...
07.07.2010 10:43:30
Thread-ID: 1165894
8 Beiträge
VBA Problem bei Zeilen ausblenden
Lorenz

Hallo Excelspezialisten,
Leider funktioniert der untenstehende Code nur wenn nach Zeile 97 alle Zeilen eingeblendet sind.
Ich habe aber ab Zeile 98 alle Zeilen ausgeblendet.
if Target.Row >= 14 Then
iZ = Target.Row + 1
With Range(Cells(iZ, 1), Cells(97, 1))
.EntireRow...
28.12.2010 14:15:45
Thread-ID: 1193064
8 Beiträge
mit Drehfeld Zeilen ein und ausblenden per vba
Ulf

Moin, moin
die ersten Schritte mit vba/makro sind schwer und 2 Tage suchen hat leider nichts passendes ergeben
vielleicht ist mein Grundansatz auch falsch
folgendes Problem
ich habe ein Drehfeld (Formular) erstellt dessen Zellbezug h1 ist.
Wenn der Wert sich auf 1 erhöht sol...
11.04.2011 21:00:59
Thread-ID: 1209942
6 Beiträge
VBA Zeilen aus/einblenden
Christian

Hallo,
ich habe in den Zeilen (Mappe "Übersicht") B10-B35 die Einträge "Team Meier; Team Schulze; Team Müller; Team Krüger etc. In H10-H35 errechne ich einen Zielwert, nachdem der Datenbereich sortiert wird.
Die Teams gehören einzelnen Abtl, die ich per Button anzeigen lassen möchte. <...
08.07.2011 09:51:42
Thread-ID: 1221319
2 Beiträge
Makro Leere Zeilen ausblenden Office 2010
Maksiu

Servus Miteinander!
Vor längerer Zeit habe ich von Euch das folgende Makro bekommen, das mir in den Bereichen E13:E24 und E30:E109 und E122:E265 die Zeilen ausblendet, die in Spalte E einen Wert Leider funktioniert das Makro auf Office 2007 und Office 2010 nicht.
Wie muss das Makro für...
18.10.2011 17:08:26
Thread-ID: 1234374
6 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
2
2
1
2
5
7
7
5
1
5
9
2
1
3
3
10
1
6
5
1
14
1
4
3
1