Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1568to1572
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
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Wert in Zelle Zeilen ausblenden/einblenden

Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 08:53:31
Siggi
Hallo ihr Lieben,
habe ein Problem. Wenn in Zelle A1 ein Wert steht sollen Zeilen automatisch (ohne Nutzung des Macros) ein bzw. ausgeblendet werden.
Das heisst:
Wenn in A1 die Zahl 1 steht sollen die Zeilen 16 bis 50 ausgeblendet sein
Wenn in A1 die Zahl 2 steht sollen die Zeilen 21 bis 50 ausgeblendet sein
Wenn in A1 die Zahl 3 steht sollen die Zeilen 26 bis 50 ausgeblendet sein
wäre euch sehr dankbar, wenn mir jemand helfen könnte.
Danke

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:14:29
Bernd
Hi,
ich weiß das Du es ohne Makro wolltest, nur mal so zum Testen, vielleicht sagt es Dir ja zu:
Option Explicit

Sub ausblenden()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Tabelle1")
With sh
'Alle Zellen wieder einblenden, nur zu Testzwecken
.Cells.EntireRow.Hidden = False
If .Range("A1").Value = "1" Then
.Rows("16:50").EntireRow.Hidden = True
End If
If .Range("A1").Value = "2" Then
.Rows("21:50").EntireRow.Hidden = True
End If
If .Range("A1").Value = "3" Then
.Rows("26:50").EntireRow.Hidden = True
End If
End With
Set sh = Nothing
End Sub
MfG Bernd
Anzeige
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:19:43
Siggi
Das funktioniert perfekt Bernd. Danke vielmals
Kann man evtl das Makro bei einer Veränderung der Zahl automatisch ausführen lassen?
Beste Grüße
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:19:17
Siggi
Das funktioniert perfekt Bernd. Danke vielmals
Kann man evtl das Makro bei einer Veränderung der Zahl automatisch ausführen lassen?
Beste Grüße
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:23:05
Bernd
Hi,
kann man sicher. Ich selbst bin aber leider kein so großer VBA Spezialist.
Auch den vorherigen Code habe ich nur aus dem Netz auf die schnelle zusammen kopiert und etwas verändert, so wie Du wolltest.
Daher lasse ich die Frage mal auf offen,
MfG Bernd
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:32:18
Werner
Hallo Bernd,
der Code gehört ins Codemodul des Arbeitsblattes, auf dem er sich auswriken soll.
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Select Case Target.Value
Case 1
Rows.EntireRow.Hidden = False
Rows("16:50").EntireRow.Hidden = True
Case 2
Rows.EntireRow.Hidden = False
Rows("21:50").EntireRow.Hidden = True
Case 3
Rows.EntireRow.Hidden = False
Rows("26:50").EntireRow.Hidden = True
Case Else
Rows.EntireRow.Hidden = False
End Select
End If
End Sub
Gruß Werner
Anzeige
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:36:21
Bernd
Hi Werner,
Danke für die Info. Aber der Fragesteller ist Siggi :-)
MfG Bernd
uuups .... o.w.T.
18.07.2017 09:38:22
Werner
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:34:11
Bernd
Hi,
hab doch noch etwas gefunden:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Tabelle1")
With sh
'Alle Zellen wieder einblenden, nur zu Testzwecken
.Cells.EntireRow.Hidden = False
If .Range("A1").Value = "1" Then
.Rows("16:50").EntireRow.Hidden = True
End If
If .Range("A1").Value = "2" Then
.Rows("21:50").EntireRow.Hidden = True
End If
If .Range("A1").Value = "3" Then
.Rows("26:50").EntireRow.Hidden = True
End If
End With
Set sh = Nothing
End Sub
MfG Bernd
Anzeige
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:48:40
Werner
Hallo Bernd,
das hier 
Set sh = ThisWorkbook.Sheets("Tabelle1")
With sh
End With
set sh = Nothing
ist unnötig. Da es sich hier um ein Worksheet_Change Event handelt, wirkt sich der Code auch immer nur auf dem Worksheet auf, in dessen Codemodul sich der Code befindet. Also ist eine Rferenzierung auf das Blatt unnötig. Allerdings müssen dann die Punkte vor den Range Objekten .Range("A1"), .Rows(..) weg.
Gruß Werner
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:51:59
Siggi
Hallo ihr Lieben,
danke für das Feedback - habe das Problem mit einem einfachen Code gelöst
Beste Grüße
Gerne u. Danke für die Rückmeldung. o.w.T.
18.07.2017 09:58:56
Werner
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:57:26
Bernd
Hi Werner,
nochmals Danke für Deine Info. Man(n) lernt immer gerne dazu.
MfG Bernd
Anzeige
Gerne...
18.07.2017 09:58:33
Werner
..ich bin auch noch einer von den "Lernenden" Bernd.
Gruß Werner
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:43:58
Werner
Hallo Siggi,
nochmal etwas verkürzt (da hat mich Bernd drauf gebracht).
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Rows.EntireRow.Hidden = False
Select Case Target.Value
Case 1
Rows("16:50").EntireRow.Hidden = True
Case 2
Rows("21:50").EntireRow.Hidden = True
Case 3
Rows("26:50").EntireRow.Hidden = True
Case Else
End Select
End If
End Sub
Gruß Werner

205 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
bestimmte Zeilen per Makro ausblenden
Fritz_W

Hallo Forumsbesucher,
ich bitte die VBA-Kundigen unter euch um Hilfe.
Mit welchem Makro kann ich in einer geöffneten Tabelle alle Zeilen ausblenden, in denen in Spalte B ein Datumseintrag steht, der vor dem jeweils heutigen Tag liegt?
Vielen Dank für eure Hilfe
mfg
Fritz
05.09.2008 10:57:00
Thread-ID: 1007611
3 Beiträge
Zeilen ausblenden, außer wenn in Zelle ...?
Selma

Hallo Leute,
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet...
27.10.2008 18:13:00
Thread-ID: 1019700
10 Beiträge
Anzeige
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
Zeilen ausblenden, wenn 0
evi

Hallo,
ich habe folgendes Problem:
Ich möchte bestimmte Zeilen eines Tabellenblattes (Blatt 2) ausblenden (bspw. Zeile 120-123), wenn in einem anderen Tabellenblatt (Blatt 1) in ein einer bestimmten Zelle (z. Bsp. C45) eine "0" eingetragen ist.
Leider hab ich nicht so viel Ahnung di...
06.02.2009 12:07:03
Thread-ID: 1047705
6 Beiträge
bestimmte Zeilen über der aktiven Zelle ausblenden
Karsten

Hallo,
ich möchte per Makrobefehl alle Zeilen über der aktiven Zelle ausblenden, die in der selben Spalte ohne Inhalt sind.
Danke für eure Hilfe.
Gruß
Karsten
01.03.2009 19:41:02
Thread-ID: 1055316
12 Beiträge
Lösche Zeilen ohne bestimmten Inhalt
Fabio

Hallo zusammen,
dank der Forums-Hilfe kann ich nun "mein" Verzeichnis sehr gut auslesen. Nun habe ich relativ lange "Zahlenkolonnen" - die ich gerne etwas "komprimiert hätte"
Folgendes will ich erreichen (per Makro?):
Lösche alle Zeilen in denen in der Spalte B "NICHT" die Buchstabe...
18.04.2009 18:02:56
Thread-ID: 1069520
8 Beiträge
Zeilen für Druck ausblenden wenn leer
Lutz

Hallo Excel-Profis,
ich habe ein Programm bei dem man immer ein Blatt ausdruckt.
In den Zeilen 9-20 stehen manchmal Werte in Spalte F und manchmal ist Spalte F = "".
Ich möchte jetzt für den Druck alle Zeilen ausblenden in denen in Spalte F kein Wert sondern "" steht - nach dem Druc...
05.08.2009 15:08:20
Thread-ID: 1093780
3 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
9
2
9
5
5
5
11
7
2
2
2
4
3
1
7
1
3
7
5
3
5
1
4
8