Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1656to1660
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
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausblenden von Zeilen dauert zu lange

Ausblenden von Zeilen dauert zu lange
22.11.2018 10:36:21
Zeilen
Hallo alle zusammen
eine Frage habe ich bezüglich des Ausblendens von Zeilen!
Mit folgendem Code blende ich derzeit Zeilen aus, insgesamt hat das Sheet 120 Zeilen, ca 1000 Spalten. Das ausblenden klappt beim Aktivieren des Blattes auch prima, jedoch würde ich mir eine schnellere Abarbeitung wünschen. Leider muss man eben immer ein bisschen warten, bis alles aufgearbeitet wurde.
Hat jemand Verbesserungsvorschläge?
Danke bereits im Voraus
Private Sub Worksheet_Activate()
Dim Zelle As Range
Application.ScreenUpdating = False
For Each Zelle In ActiveSheet.Range("C15:C34,C36:C55,C57:C76,C78:C97,C99:C118")
If Zelle = 0 Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next Zelle
Application.ScreenUpdating = True
End Sub

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
schalt die automatische Berechnung ab
22.11.2018 10:52:14
Matthias
Hallo
So wie Du die Bildschirmaktualisierung ausschaltest, kannst Du auch die Berechnung zu Beginn auf manuell setzen.
Wenn die Schleife durch ist stellst Du wieder auf Automatik.
Gruß Matthias
AW: schalt die automatische Berechnung ab
22.11.2018 10:54:27
Andy
Wie meinst du das Matthias ? Was muss ich wo auf Manuell setzen ?
AW: Ausblenden von Zeilen dauert zu lange
22.11.2018 10:53:08
Zeilen
und was in diesem Zusammenhang noch ganz schick wäre...
Die Zeilen, die ausgeblendet werden liegen innerhalb einer Gruppierung. Kann ich eine Zeile, die wie oben innerhalb einer Gruppierung zuvor ausgeblendet wurde, dauerhaft ausblenden? Nach demschließen und Öffnen der Gruppierung geht mir die ausgeblendete Zeile verloren, dh sie wird wieder angezeigt.
Anzeige
Application.Calculation ...
22.11.2018 11:03:45
Matthias
Hallo
So meine ich das ...
Private Sub Worksheet_Activate()
Dim Zelle As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Zelle In ActiveSheet.Range("C15:C34,C36:C55,C57:C76,C78:C97,C99:C118")
If Zelle = 0 Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next Zelle
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub
Kannst ja mal Testen ob es dann etwas schneller geht.
Der Code selbst lässt sich auch noch verkürzen.
Gruß Matthias
Anzeige
AW: Application.Calculation ...
22.11.2018 11:06:24
Andy
Matthias du bist spitze, das hat geklappt. Vielen vielen Dank.
Kannst du mir für mein Verständnis noch kurz sagen, wass dieser Eintrag bewirkt ? man lernt ja gerne dazu....
und vl weißt du noch eine Idee für mein zweites Problem, zu dem ich leider auch nichts finden konnte
AW: Ausblenden von Zeilen dauert zu lange
22.11.2018 11:06:57
Zeilen
Hi
was steht den in den Zellen C35,C56,C77 usw?
eigentlich könnte man doch einfach den Autofilter einsetzen, außer diesen Zellen steht eine 0 und die Zelle muss trotzdem sichtbar bleiben.
ansonsten, wenn du bei reinem Code bleiben willst:
1. alle Zeilen gemeinsam einblenden.
2. die Zellen mit 0 per Union in einer Rangevariable sammeln und dann am Schluss alle gemeinsam ausblenden.
Das Problem in Excel ist, dass das Ein/Ausblenden einer Zeile genauso lange dauert, wie wenn du viele Zellen gemeinsam ein- oder ausblendet.
dh in etwa so 
dim Bereich as range
dim Zelle as range
Range("15:118").entirerow.Hidden = false
For Each Zelle In ActiveSheet.Range("C15:C34,C36:C55,C57:C76,C78:C97,C99:C118")
If Zelle = 0 Then
if Bereich is nothing then
set Bereich = Zelle
else
set Bereich = Union(Zelle, Bereich)
end if
next
if not Bereich is Nothing then Bereich.EntireRow.Hidden = true
Gruß Daniel
Anzeige
AW: Ausblenden von Zeilen dauert zu lange
22.11.2018 11:25:56
Zeilen
Danke Daniel,
aber der Vorschlag von Matthias funktioniert perfekt.Der Autofilter ist keine Option, da eben 0 drinnen steht in den Feldern.
War nur noch das Problem mit den Gruppierungen. Eine unschöne Art und Weise der Ausblendung lässt sich nicht durch den Hidden-Befehl sondern durch das änder der Zeilenhöhe umgehen.... Solange keine andere Alternative in Sicht ist, nehme ich das
.RowHeight = 15
Der Autofilter ist keine Option. Da eben 0 drinnen steht in den Feldern.

302 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
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
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
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
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
4
13
2
5
7
9
6
2
4
5
10
9
3
5
2
6
3
2
6
2
5
5
7
8
5