Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen automatisch ausblenden

Zeilen automatisch ausblenden
30.05.2006 07:46:21
AVD
Folgendes Problem;
ich möchte Zeilen automatisch ein und ausblenden.
Zeilen sollen ausgeblendet sein, wenn in der jeweiigen Zelle D(Zeilennummer) z.b: D50 ein bestimmter Wert steht in dem Fall B1.
Die Zelle soll jedoch eingeblendet sein wenn dort ein B1X steht.
Dieser Befehl soll über viele Zeilen laufen. Also D51,D52 usw.
Vielen Dank für die Unterstützung.
Gruß
Alex

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen automatisch ausblenden
30.05.2006 08:24:04
Heiko
Hallo Alex,
vollautomatisch z.B. so: Zeile wird bei Eingabe von B1 sofort ausgeblendet.
In das Codefenster des entsprechenenden Tabellenblattes.

Private Sub Worksheet_Change(ByVal Target As Range)
' Bereich bei Bedarf anpassen
If Intersect(Target, Range("D50:D100")) Is Nothing Or Target.Count > 1 Then Exit Sub
If Target = "B1" Then
Target.EntireRow.Hidden = True
ElseIf Target = "B1X" Then
Target.EntireRow.Hidden = False
End If
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
AW: Zeilen automatisch ausblenden
30.05.2006 14:24:13
AVD
Hallo Heiko,
Super Vorschlag. Funktioniert genaus so wie du es angegebn hast.
Mein Problem ist jedoch daß der Wert B1 bzw. B1X der den Befehl auslöst nicht eingetragen wird, sondern durch eine Formel entsteht. Dann funktioniert es nicht mehr.
Hast Du oder jemand anderes noch einen anderen Lösungsvorschlag?
Vielen Dank
Alex
Anzeige
AW: Zeilen automatisch ausblenden
30.05.2006 14:50:36
Klaus
Hallo Alex,
mal als Anregung, geht aber bestimmt noch eleganter.
Private Sub Worksheet_Change(ByVal target As Range)
For i = 50 To 100
If Range("d" & i) = "B1" Then
Range("d" & i).EntireRow.Hidden = True
ElseIf Range("d" & i) = "B1X" Then
Range("d" & i).EntireRow.Hidden = False
End If
Next i
End Sub

Gruß,
Klaus M.vdT.
AW: Zeilen automatisch ausblenden
30.05.2006 16:33:19
AVD
HAllo Klaus,
vielen Dank für deinen Beitrag.
So klappt es tadellos.
Danke auch nocmal an Heiko.
Super.
Gruß
Alex
AW: Zeilen automatisch ausblenden
31.05.2006 08:37:17
Klaus
Hallo Alex,
danke für die Rückmeldung. Heiko's Lösung ist aber eleganter als meine, die bei größeren Bereichen bestimmt arg in die Knie geht. Aber solange es funktioniert :)
Gruß,
Klaus M.vdT.
Anzeige
AW: Zeilen automatisch ausblenden
30.05.2006 14:59:19
Heiko
Hallo Alex,
dann z.B. so:

Private Sub Worksheet_Calculate()
Dim rngT As Range
For Each rngT In ActiveSheet.Range("D50:D100")
If rngT = "B1" Then
rngT.EntireRow.Hidden = True
ElseIf rngT = "B1X" Then
rngT.EntireRow.Hidden = False
End If
Next rngT
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !

304 Forumthreads zu ähnlichen Themen

in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
Anzeige
Diagramm - leere Zeilen ignorieren
Sascha

Hallöchen, ich mal wieder ;)
Ganz einfach Sache, mir ist nur gerade entfallen wies geht *gg*
Ein 2D-Säulendiagramm, Quelldaten A4-B100, ca. 70 Zellen ausgefüllt, der Rest leer.
Um das Diagramm bei der Bearbeitung der Listen aktuell zu halten möchte ich gerne, dass die nicht ausgefül...
13.11.2008 13:38:19
Thread-ID: 1024186
7 Beiträge
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
Anzeige
leere Zellen ausblenden
Christoph

Habe folgendes Problem, dass ich mit einem neuen Makro lösen will:
Aus einem Eingabebereich kopiere ich über Verlinkungen die Zelleninhalte in einen Ausgabebereich, der mir 200 Zeilen Platz für die Daten läßt. Damit ich optisch einen schönen Ausgabebereich habe, sollen nun mittels eines Mar...
27.01.2009 13:10:00
Thread-ID: 1044202
4 Beiträge
Restliche Zeilen/Spalten ausblenden
eliewsam

Hallo Excel-Experten,
leider konnte ich bislang folgendes Problem nicht lösen: Ich würde gerne alle Zeilen ab einer bestimmten Zeile ausblenden. Nach unten sollten dann keine weiteren Zeilen mehr sichtbar sein. Gruß Elie
12.02.2009 17:51:00
Thread-ID: 1050190
3 Beiträge
Alle komplett leeren ZEILEN löschen
Tobias

Hallo allesamt,
ich würde gerne alle Zeilen Löschen, wenn nichts in den zellen steht
habs hiermit versucht:
Sub LeereZeilenLöschen() Dim tmp Dim x Application.ScreenUpdating = False ActiveSheet.Unprotect Password:=passw tmp = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row For...
14.03.2009 00:09:37
Thread-ID: 1060081
8 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
Leere zeilen ausblenden
Andreas

Hallo Forum,
mit folgendem Code lasse ich Zeile auf Inhalt prüfen und ggf. ausblenden:
Private Sub Worksheet_Activate() Dim rng As Range For Each rng In Range("A30:A47") rng.EntireRow.Hidden = rng.Value = "" Next End Sub
Bei diesem Vorgang flackert aber das Dokument einige Sekund...
03.07.2009 14:06:44
Thread-ID: 1086237
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
6
4
6
11
3
3
2
7
7
5
2
7
4
7
8
4
3
1
2
13
6
4
1
7
2