Anzeige
Archiv - Navigation
944to948
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
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen automatisch ausblenden wenn ""

Zeilen automatisch ausblenden wenn ""
29.01.2008 15:50:05
Martin
Hallo Leute!
Und gleich die nächste Frage an euch!
Ich habe eine Tabelle in der ich verschiedene Werte eingeben will.
Die Anzahl der Zeilen in welche die Werte eingegeben werden ist allerdings Variabel, kann aber maximal bis 150 Zeilen besitzen.
In der 151. Zeile steht die Summe.
die Anzahl der Zeilen lasse ich mir in der Zelle A1 durch eine Summe die ich von einem aneren Blatt beziehe anzeigen. Wenn dort die Zahl 13 steht sollen mir 13 Zeilen angezeigt werden. Die Zeilen 14 bis 100 sollen aber automatisch ausgeblendet Werden.
Wenn sich die Zahl ändert, sollen eben die dementsprechenden Zellen eingeblendet werden.
Hier noch eine Beispieldatei.
https://www.herber.de/bbs/user/49501.xls
Danke und liebe Grüsse
Martin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen automatisch ausblenden wenn ""
29.01.2008 16:04:00
Ulf
Hallo Martin
schreibe das in deine Tabelle 2

Private Sub Worksheet_Activate()
Dim Zahl As Integer
Application.ScreenUpdating = False
Zahl = Range("A1")
Rows("6:155").RowHeight = 12.75
Rows(Zahl + 6 & ":155").RowHeight = 0
Application.ScreenUpdating = True
End Sub


mfg Ulf

Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige