Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1472to1476
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
1472to1476
1472to1476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per VBA Zeilen ausblenden und einblenden

Per VBA Zeilen ausblenden und einblenden
11.02.2016 15:18:53
Rene
Hallo zusammen,
ich habe ein Drop Down menü.
es soll wie der Text angibt, bestimmte Zeilen ausblenden und wieder einblenden,
anbei mein Versuch.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Tabelle1
If .Range("C3").Text = "JIS_Gestelle" Then 'JIS Gestelle
.Rows("15:21").EntireRow.Hidden = False
Else
.Rows("09:14").EntireRow.Hidden = True
.Rows("22:26").EntireRow.Hidden = True
End If
If .Range("C3").Text = "Material" Then 'Material
.Rows("09:14").EntireRow.Hidden = False
Else
.Rows("15:26").EntireRow.Hidden = True
End If
If .Range("C3").Text = "Technik" Then 'Technik
.Rows("22:26").EntireRow.Hidden = False
Else
.Rows("09:21").EntireRow.Hidden = True
End If
End With
End Sub

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

Betreff
Datum
Anwender
Anzeige
evtl das falsche Ereignis gewählt?
11.02.2016 15:29:27
Matthias
Hallo
Denn das Worksheet_SelectionChange tritt bereit ein wenn Du eine Zelle anklickst.
Soll doch sicher erst passieren, bei einer Änderung eines Zellinhaltes
Das wäre dann aber ein anderes Ereignis: Worksheet_Change.
Gruß Matthias

AW: evtl das falsche Ereignis gewählt?
11.02.2016 15:44:27
Rene
Ja genau, ich habe in Zelle C3 ein Drop Down drin, bei Veränderung der Zelle soll sich nur der Bereich zeigen den ich im Code enthalten habe, Problem er erscheint nur bei "Technik" der Rest wie "JIT-Gestelle" oder "Material" erscheinen nicht.
Private Sub Worksheet_Change(ByVal Target As Range)
With Tabelle1
If .Range("C3").Text = "JIS_Gestelle" Then 'JIS Gestelle
.Rows("15:21").EntireRow.Hidden = False
Else
.Rows("09:14").EntireRow.Hidden = True
.Rows("22:26").EntireRow.Hidden = True
End If
If .Range("C3").Text = "Material" Then 'Material
.Rows("09:14").EntireRow.Hidden = False
Else
.Rows("15:26").EntireRow.Hidden = True
End If
If .Range("C3").Text = "Technik" Then 'Technik
.Rows("22:26").EntireRow.Hidden = False
Else
.Rows("09:21").EntireRow.Hidden = True
End If
End With
End Sub

Anzeige
wann willst Du was ein-/ausblenden ?
11.02.2016 16:07:40
Matthias
Hallo
Im Moment bin ich nicht sicher was Du wann tatsächlich ein- bzw. ausblenden willst
Erkläre es doch bitte mal mit Deinen Worten.
Gruß Matthias

AW: wann willst Du was ein-/ausblenden ?
11.02.2016 16:16:31
Rene
Ich habe ein Speerzettel der Kopf ist immer gleich
Zeile 1 bis 8
nun habe ich ein Drop down menü in Zelle C3 und will wenn der bestimmte Text erscheint das auch der Abschnitt das zu erscheint.
DropDown: Technik, Jit-Gestelle, Material
Technik ist von Zeile 22 bis 26
Material ist von Zeile 9 bis 15
Jit-gestelle von zeile 16 bis 21
Wenn ich Technik auswähle soll Zeile 22 bis 26 erscheinen und der Rest ausgeblendet
Wenn ich Material auswähle soll Zeile 9 bis 15 erscheinen und der Rest ausgeblendet
usw.
ich hoffe es ist so verständlich :)

Anzeige
AW: wann willst Du was ein-/ausblenden ?
11.02.2016 16:39:25
Matthias
Hallo
So ?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C3").Text = "" Then  'Technik
Rows("09:26").EntireRow.Hidden = False
End If
If Range("C3").Text = "JIS_Gestelle" Then 'JIS Gestelle
Rows("09:26").EntireRow.Hidden = True
Rows("16:21").EntireRow.Hidden = False
End If
If Range("C3").Text = "Material" Then 'Material
Rows("09:26").EntireRow.Hidden = True
Rows("09:14").EntireRow.Hidden = False
End If
If Range("C3").Text = "Technik" Then  'Technik
Rows("09:26").EntireRow.Hidden = True
Rows("22:26").EntireRow.Hidden = False
End If
End Sub
Gruß Matthias

Anzeige
AW: wann willst Du was ein-/ausblenden ?
11.02.2016 16:44:37
Rene
Super Technik und Material funktionieren aber JIS_Gestelle, dort passiert nix, liegt es daran des es genau in der Mitte liegt zwischen den beiden?

AW: wann willst Du was ein-/ausblenden ?
11.02.2016 16:48:34
Rene
AHHHH OKAY FEHLER ENTDECKT HATTE EIN LEERZEICHEN DRIN.
Vielen lieben Dank :).

Danke für die Rückmeldung ... owT
11.02.2016 16:51:52
Matthias

118 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 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
Makro - Zeilen ein- und ausblenden
WalterK

Hallo,
den Code habe ich vor längerer Zeit in einem Forum gefunden und die Bezeichnung "Ein" und "Aus" auf "Privat+Intern Ein" und "Privat+Intern Aus" abgeändert. Noch ist es so, dass über den CommandButton die Zeilen mit den Nichtleeren Zellen in Spalte H aus- oder eingeblendet werden.
...
05.07.2009 11:07:55
Thread-ID: 1086451
6 Beiträge
Anzeige
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
Mit VBA Zeilen checken und ausblenden
Reiner

Hallo zusammen!
Ich bin neue hier im Forum und hoffe jemand kann mir weiterhelfen.
Folgendes Problem.
Ich möchte die ersten 100 Zeilen/Zellen einer Spalte per VBA checken.
Steht in der Zelle eine 0 soll die ganze Reihe ausgeblendet werden.
Steht in der Zelle eine 1 soll die...
02.12.2011 10:39:58
Thread-ID: 1240358
10 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
1
2
5
7
7
5
1
5
9
2
1
3
3
10
1
6
5
1
14
1
4
3
5
1