Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Hidden trödelt | Herbers Excel-Forum


Betrifft: Hidden trödelt von: Matze
Geschrieben am: 08.01.2010 14:39:32

Hallo liebes Forum.

Seit der Umstellung auf xl 2007 habe ich Probleme mit der Hidden-Funktion.

In einer Schleife werden Zeilen ausgeblendet.

Fall 1
Excel 2000 - Sehr schnell abgearbeitet.

Fall 2
Excel 2007 - Akzeptabel Zeit

Fall 3
Excel 2007, Eine leere Mappe und eine andere Datei sind geöffnet - Dauert über eine Minute in der leeren Mappe.

Natürlich habe ich schon mit Calculation und Screenupdating versucht diese Schleife schneller zu bekommen. Auch der Versuch mich explizit auf die Datei und deren Tabellenblatt zu beziehen hat nicht geholfen.

Fahre den Kompatibilitätsmodus.

Hat jemand eine Idee?

  

Betrifft: AW: Hidden trödelt von: Tino
Geschrieben am: 08.01.2010 15:20:04

Hallo,
vielleicht hilft es zuerst die Daten zu sammeln und diese dann auf einmal aus oder einzublenden.

Beispiel:

Sub TestJedeZweite()
Dim Spalten As Range
Dim A&
Dim booIsHidde As Boolean

For A = 2 To ActiveSheet.Columns.Count Step 2
 If Not Spalten Is Nothing Then
    Set Spalten = Union(Spalten, Columns(A))
 Else
    Set Spalten = Columns(A)
    booIsHidde = Spalten.EntireColumn.Hidden
 End If
Next A

Spalten.EntireColumn.Hidden = Not booIsHidde
End Sub
Gruß Tino


  

Betrifft: AW: Hidden trödelt von: Matze
Geschrieben am: 08.01.2010 15:59:22

Hallo Tino,

Danke für Deine Mühe.
Werde mal mit Deinem Vorschlag durchspielen.

Seltsam ist es aber trotzdem.

Danke und Gruß, Matze.


 

Beiträge aus den Excel-Beispielen zum Thema "Hidden trödelt"

Blattwechsel zwischen xlVeryHidden ausgeblendeten Blättern