Thema Datum  Von Nutzer Rating
Antwort
Rot leere Zeilen und Spalten schneller löschen ?
 30.01.2017 14:51:05 Jo
NotSolved
31.01.2017 08:58:06 Jo
NotSolved

Ansicht des Beitrags:
Von:
Jo		 Datum:
30.01.2017 14:51:05		 Views:
868		 Rating:
     
Antwort:
  Ja
Thema:
leere Zeilen und Spalten schneller löschen ?

Hallo Zusammen,

mein Code soll all jene Zielen und Spalten löschen, welche durch einen zuvor durchgeführten Code versteckt wurden (Hidden = True). Das tut er auch. Jedoch dauert dieser Vorgang ca. 3 Minuten und das ist mir deutlich zu lang.

Allerdings finde ich keinen Weg, den Vorgang zu verkürzen... Selbst das ScreenUpdate auszuschalten hat nichts gebracht. Habt ihr eine Idee?

Vielen Dank für eure Hilfe!

 

With Application
  .ScreenUpdating = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
    End With

Dim x As Long
For x = 456 To 21 Step -1
If Rows(x).Hidden = True Then
Rows(x).Delete Shift:=xlUp
End If
Next x


Dim hspalte As Long
For hspalte = 270 To 15 Step -1
If Cells(9, hspalte) = "" Then
Columns(hspalte).Delete Shift:=xlUp
End If
Next hspalte

With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
End With

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot leere Zeilen und Spalten schneller löschen ?
 30.01.2017 14:51:05 Jo
NotSolved
31.01.2017 08:58:06 Jo
NotSolved