Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1240to1244
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
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen sollen verschwinden

Zeilen sollen verschwinden
Stephan
Hallo zusammen!
Ist es möglich, in meiner angehangenen Tabelle im Reiter "Druck#2" die Zeilen 18-28 verschwinden zu lassen, solange in Spalte A der jeweiligen Zeile kein Wert steht?
Danke für eure Anregungen!
Hier die Datei:
https://www.herber.de/bbs/user/77740.xlsm

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilen sollen verschwinden
30.11.2011 11:40:13
Sonja
Hall Stephan,
versuch mal das: 
Sub LeereZellenAusblenden()
Cells.Rows.Hidden = False
' Blendet im Bereich der Tabelle alle Zeilen aus in denen sich leere Zellen oder Nullwerte  _
befinden
Dim Markierung As Range, Wert As String
Set Markierung = ActiveSheet.Range("A18:A28")
For Each Zelle In Markierung
Wert = Zelle.Value
If Wert = "" Or Wert = "0" Then Rows(Zelle.Row).Hidden = True
Next Zelle
End Sub

Grüßle
sonja
AW: Zeilen sollen verschwinden
30.11.2011 11:45:54
Stephan
Hallo Sonja,
besten Dank, das ist genau DAS, was ich wollte!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige