Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ein-Ausblenden zu langsam, Einblenden geht nicht

Forumthread: Ein-Ausblenden zu langsam, Einblenden geht nicht

Ein-Ausblenden zu langsam, Einblenden geht nicht
31.12.2017 11:55:18
Werner
Hallo Liebe Ecxelfreunde,
ich brächte mal wieder ein Tipp von Euch. Spalten Ok.
Die Zeilen(Rows) werden ausgeblendet aber nicht wieder eingeblendet und es ist sehr langsam. siehe unten
LG Werner
Sub AusEinblenden()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
If .Name  "Jahressummen" And .Name  "Arbeitsfreie Tage" And .Name  "Ergebnis" And . _
Name  "Inhaltsverzeichnis" And .Name  "Stammdaten" And .Name  "Nettoarbeitszeit" Then
.Range("AI:DZ").EntireColumn.Hidden = Not (.Range("AI:DZ").EntireColumn.Hidden)
.Rows("6:6").EntireRow.Hidden = Not Rows("6:6").EntireRow.Hidden = True
.Rows("9:9").EntireRow.Hidden = Not Rows("9:9").EntireRow.Hidden = True
.Rows("12:12").EntireRow.Hidden = Not Rows("12:12").EntireRow.Hidden = True
.Rows("15:15").EntireRow.Hidden = Not Rows("15:15").EntireRow.Hidden = True
.Rows("18:18").EntireRow.Hidden = Not Rows("18:18").EntireRow.Hidden = True
.Rows("21:21").EntireRow.Hidden = Not Rows("21:21").EntireRow.Hidden = True
.Rows("24:24").EntireRow.Hidden = Not Rows("24:24").EntireRow.Hidden = True
.Rows("27:27").EntireRow.Hidden = Not Rows("27:27").EntireRow.Hidden = True
.Rows("30:30").EntireRow.Hidden = Not Rows("30:30").EntireRow.Hidden = True
.Rows("33:33").EntireRow.Hidden = Not Rows("33:33").EntireRow.Hidden = True
.Rows("36:36").EntireRow.Hidden = Not Rows("36:36").EntireRow.Hidden = True
.Rows("38:94").EntireRow.Hidden = Not Rows("38:94").EntireRow.Hidden = True
Application.ScreenUpdating = True
End If
End With
Next ws
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Ein-Ausblenden zu langsam, Einblenden geht nicht
31.12.2017 12:15:15
Armin
Hallo,
Die Rows Anweisung ist falsch schreibe .Rows(6)....
Gruß Armin
AW: Ein-Ausblenden zu langsam, Einblenden geht nicht
31.12.2017 12:25:07
Werner
Hallo Namensvetter,
ich hab jetzt zusätzlich mal noch am Anfang die automatische Berechnung aus und am Ende wieder eingeschaltet. Ob das nötig ist musst du selbst mal testen. 
Public Sub AusEinblenden()
Dim i As Long, ws As Worksheet
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each ws In ThisWorkbook.Worksheets
With ws
If .Name  "Jahressummen" And .Name  "Arbeitsfreie Tage" And .Name  "Ergebnis" And  _
. _
Name  "Inhaltsverzeichnis" And .Name  "Stammdaten" And .Name  "Nettoarbeitszeit"  _
Then
.Columns("AI:DZ").Hidden = Not .Columns("AI:DZ").Hidden = True
For i = 6 To 36 Step 3
.Rows(i).Hidden = Not .Rows(i).Hidden = True
Next i
.Rows("38:94").Hidden = Not .Rows("38:94").Hidden = True
End If
End With
Next ws
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Gruß Werner
Anzeige
AW: Ein-Ausblenden zu langsam, Einblenden geht nicht
31.12.2017 12:56:23
Werner
Wow! funktioniert vieleb lieben Dank! GUTEN RUTSCH!
Gerne u.Danke für die Rückmeldung.
31.12.2017 13:00:09
Werner
.....und Rutsch auch gut rein.
Gruß Werner
AW: Ohne doppelte Schleife
31.12.2017 13:26:53
Gerd
Moin 
Sub AusEinblenden()
Dim ws As Worksheet
Const rw As String = "6:6,9:9,12:12,15:15,18:18,21:21,24:24,27:27,30:30,33:33,36:36,38:94"
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Jahressummen", "Arbeitsfreie Tage", "Ergebnis", _
"Inhaltsverzeichnis", "Stammdaten", "Nettoarbeitszeit"
'mach nix
Case Else
ws.Range("AI:DZ").EntireColumn.Hidden = Not ws.Columns("AI").Hidden
ws.Range(rw).EntireRow.Hidden = Not ws.Rows(6).Hidden
End Select
Next ws
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Guten Rutsch
Gerd
Anzeige
AW: Ein-Ausblenden zu langsam, Einblenden geht nicht
31.12.2017 12:28:30
Werner
Hallo,
ich nochmal. Hier der Code nochmals, weil ich nicht aufgepasst habe und die Forensoftware einen Zeilenumbruch reingehauen hat. 
Public Sub AusEinblenden()
Dim i As Long, ws As Worksheet
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each ws In ThisWorkbook.Worksheets
With ws
If .Name  "Jahressummen" And .Name  "Arbeitsfreie Tage" _
And .Name  "Ergebnis" And .Name  "Inhaltsverzeichnis" _
And .Name  "Stammdaten" And .Name  "Nettoarbeitszeit" Then
.Columns("AI:DZ").Hidden = Not .Columns("AI:DZ").Hidden = True
For i = 6 To 36 Step 3
.Rows(i).Hidden = Not .Rows(i).Hidden = True
Next i
.Rows("38:94").Hidden = Not .Rows("38:94").Hidden = True
End If
End With
Next ws
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Gruß Werner
Anzeige
AW: Ein-Ausblenden zu langsam, Einblenden geht nicht
31.12.2017 12:40:25
Christian
hallo Werner,
nach erstem Überblick würde ich sagen: "works as designed".
Was mir da so auffällt:
- bei ".Rows("6:6")" etc. muss Excel den String "6:6" erst in einen Range übersetzen. Warum nicht einfach ".Rows(6)" etc. ?
- Wenn du ganze Zeile(n) ansprichst, was soll da noch das ".EntireRow" ?
- im rechten Teil fehlt die Referenz zum Worksheet und Workbook, sprich ohne Punkt vor "Rows" verweist du auf das aktive Tabellenblatt. Ist das so gewollt?
- bei boolschen Ausdrücken wie "a = b = c" macht es Sinn Klammern zu setzen, wie zB. "a = (b = c)". Nicht zuletzt, damit du selbst weißt, was du da tust...
- aber ich vermute aus deiner Frage, dass dieses Konstrukt so eh nicht stimmen kann.
Ohne deine Datei zu kennen schieße ich mal in Blaue mit:
.Rows(6).Hidden = Not .Rows(6).Hidden
etc.
guten Rutsch
Grüße Christian
Anzeige

Forumthreads zu verwandten Themen

geschütztes Blatt - "ersetzen" geht nicht
Meli

Hallo,
ich muß ein geschütztes Blatt befüllen, sprich nur in einigen Zellen darf ich Werte/Verknüpfungen einfügen.
Ich muß ziemlich viele Zellen/Blätter ausfüllen, deswegen möchte ich die Verknüpfungen kopieren und dann durch anderen Text ersetzen lassen. Diese Funktionen (Kopieren/Erse...
30.01.2009 12:43:10
Thread-ID: 1045365
5 Beiträge
xlSheetVeryHidden
Gordon

Moin,
habe folgenen Code in "DieseArebeitsmappe":
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False Sheets("Stammdaten").Unprotect Sheets("Bilanzrating").Unprotect Sheets("Z-Score").Unprotect Sheets("Stammdaten").Visible = xlSheetVeryHidden Sheets("...
29.06.2009 13:40:48
Thread-ID: 1085130
7 Beiträge
Anzeige
2 Tabellenblätter in ein PDF nicht möglich
Joachim

Hallo,
ich möchte per VBA das 3. und 4. Tabellenblatt als PDF in EIN Dokument bringen:
Dim n As Integer
Sheets(3).Select
For n = 3 To Sheets.Count
Sheets(n).Select False
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
25.11.2009 08:17:45
Thread-ID: 1119865
6 Beiträge
kopieren eines großen Tabellenblatts nicht möglich
Bibabutzel

Hallo zusammen,
der nette Sepp (Josef Ehrensberger) aus diesem Forum hat mir ein Makro geschrieben, das nach Erfüllung verschiedener Bedingungen mehrere neue Tabellenblätter erzeugt, indem ein "Vorlage-Tabellenblatt" kopiert wird. Das Makro funktioniert tadellos - allerdings nur, wenn das "...
15.01.2010 23:04:46
Thread-ID: 1130392
8 Beiträge
xlSheetVeryHidden, screenupdating...
hans

Hallo zusammen,
ich habe ein Problem was ich nicht ganz verstehe, hoffe es ist nur ne Kleinigkeit, die ich grad einfach nicht mehr sehe...
Habe ein Tabellenblatt welches auf veryhidden gesetzt ist.
Von einem anderen Blatt aus, möchte ich auf eine Rechnung zurückgreifen, welche auf d...
27.04.2010 14:13:14
Thread-ID: 1154076
3 Beiträge
VBA - xlSheetHidden-Blätter bearbeiten
Dogbert

Hallo!
Ich habe immer wieder folgendes Problem: Ich muss aus einer Arbeitsmappe, die versteckte Arbeitsblätter enthält, die versteckten Blätter rauslöschen.
Nun suche ich ein Makro, das mir dieses erledigt, es soll so aussehen (jetzt mal ganz umgangssprachlich formuliert):
n = Anz....
05.11.2010 11:44:42
Thread-ID: 1185339
3 Beiträge
Anzeige
Copy aus xlVeryHidden Sheet
Maria

Der Übersicht halber ein neuer Thread, weil sich das Problem etwas verlagert hat.Ich versuche Daten aus dem xlVeryHidden Sheet in ein anderes (sichtbares) Sheet zu kopieren. Egal was ich wie versuche, es gibt alle möglichen Fehlermeldungen. Gibt es da irgendwelche besonderen Mittel & Wege?
13.05.2002 12:34:40
Thread-ID: 120429
8 Beiträge
VBA Alle Blätter (xlVeryHidden) in Mappe schützen
Christian

Kann ich per VBA alle Sheets (aktuell ca. 25 , 1 sichtbar, 24 xlVeryHidden) in der jeweiligen Arbeitsmappe per VBA schützen / Blattschutz aufheben ?Danke
Christian
24.05.2002 14:37:49
Thread-ID: 123500
4 Beiträge
Zelle kopieren in anderes Blatt geht nicht
Joel

Hallo zusammen
Ich weis nicht warum, aber irgendwie geht das nicht, wenn ich eine ganze Zelle in ein neues Blatt kopieren will. Kopieren geht schon, aber es nimmt nicht alles. Es kopiert mir nur einen Teil (etwa 30%).
Das ist doch nicht normal oder?
Danke schon im Voraus.
Gruss...
10.01.2012 10:08:47
Thread-ID: 1245445
14 Beiträge
Anzeige
Makro für alle Tabellenblätter (Filter,ausblenden.
Maggie

Hallo
ich habe 3 Makros welche nur auf dem aktiven Tabellenblatt laufen, bräuchte sie aber so das sie gleichzeitig in allen Tabellenblättern laufen... habe Null-Ahnung wie ich das hin bekommen soll...
kann mir bitte jemand dabei helfen?
Gruß
Maggie
hier die 3 Makros
---...
06.05.2012 15:13:47
Thread-ID: 1262489
9 Beiträge
Anzeige
VBA Zeile ausblenden wenn Spalte F wert 0
Bernd

Hallo zusammen,
komme leider nicht weiter, habe schon viele Codes ausprobiert keines hat funktioniert. Meine VBA Kenntnisse sind sehr gering.
Wer kann mir bei der Lösung behilflich sein?
Vielen Dank schon mal im Voraus!
Gruß
Bernd
23.03.2013 01:23:10
Thread-ID: 1305603
4 Beiträge
Sheet veryhidden - Verhindern Auswahl über Index
Prevertex

Hallo zusammen.
Ich möchte das Aufrufen von Blättern nur über meine eigenenen Makros garantieren.
Die Blätter sind schon veryhidden und haben codierte Namen. VBA ist passwort-geschützt und eigentlich müssen Makros aktiviert sein, damit irgendwas läuft.
Beim Testen habe ich festgest...
16.06.2013 20:57:13
Thread-ID: 1317968
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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