Thema Datum  Von Nutzer Rating
Antwort
05.07.2023 12:19:57 mac0811
Solved
Blau Ausführung beschleunigung
 05.07.2023 14:41:30 Der Steuerfuzzi
NotSolved
05.07.2023 15:20:10 mac0811
NotSolved
05.07.2023 15:34:54 Der Steuerfuzzi
NotSolved

Ansicht des Beitrags:
Von:
Der Steuerfuzzi		 Datum:
05.07.2023 14:41:30		 Views:
997		 Rating:
     
Antwort:
  Ja
Thema:
Ausführung beschleunigung

Hallo,

 

als erstes fällt mir auf, dass Du den gesamten inhalt der Tabelle mittels copy und inhalte einfügen in Werte umwandelst. Das geht mE so schneller:

?
1
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

 

Du löscht die ausgeblendeten Zeilen/ Spalten einzeln. Das ist mega zeitaufwändig. Du solltest mehrere ausgeblendete Spalten bzw.ö Zeilen zusammen löschen. Alles zusammen wäre das optimale, was aber nur richtig und performant funktioniert, wenn nicht zu viele nicht zusammenhängende Bereiche bestehen. Ich hatte mal was Ähnliches und habe so gelöst (umgeschrieben auf Deinen Code):

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Sub Ausgeblendetloeschen()
    Dim lngIndex As Long
    Dim strDelete As String
    Dim strTemp As String
    'Application.ScreenUpdating = False   -> Wird in der Hauptroutine schon gemacht
    For lngIndex = 1 To 256
        If Columns(lngIndex).Hidden Then
            If strTemp <> "" Then
                If Not Range(strTemp & ":" & strTemp).Column = lngIndex - 1 Then
                    strDelete = strDelete & ":" & strTemp & ", "
                    strDelete = strDelete & Left(Columns(lngIndex).Address(, False), InStr(Columns(lngIndex).Address(, False), ":") - 1)
                End If
            Else
                strDelete = Left(Columns(lngIndex).Address(, False), InStr(Columns(lngIndex).Address(, False), ":") - 1)
            End If
            strTemp = Columns(lngIndex).Address(, False)
            strTemp = Left(strTemp, InStr(strTemp, ":") - 1)
        End If
    Next
    strDelete = strDelete & ":" & strTemp
    If strDelete <> ":" Then Range(strDelete).Delete
    For lngIndex = 1 To 65535
        If Rows(lngIndex).Hidden Then
            If strTemp <> "" Then
                If Not Range(strTemp & ":" & strTemp).Row = lngIndex - 1 Then
                    strDelete = strDelete & ":" & strTemp & ", "
                    strDelete = strDelete & CStr(lngIndex)
                End If
            Else
                strDelete = CStr(lngIndex)
            End If
            strTemp = CStr(lngIndex)
        End If
    Next
    strDelete = strDelete & ":" & strTemp
    If strDelete <> ":" Then Range(strDelete).Delete
    'Application.ScreenUpdating = True   -> Es hier wieder einzuschlaten wäre Kontraproduktiv ;)
End Sub

Das sollte bei nicht allzu vielen ausgeblendeten Bereichen funktionieren.

Folgendes kannst Du anpassen:

?
1
2
3
'Spalten K-Z löschen
Columns("K:Z").Delete Shift:=xlToLeft
'Ist das noch K-Z? Denn die ausgeblendeten wurden gelöscht, evtl. K-Z vorher löschen

Damit sollte die Prozedur um einiges schneller laufen.

 

Gruß

Michael

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
05.07.2023 12:19:57 mac0811
Solved
Blau Ausführung beschleunigung
 05.07.2023 14:41:30 Der Steuerfuzzi
NotSolved
05.07.2023 15:20:10 mac0811
NotSolved
05.07.2023 15:34:54 Der Steuerfuzzi
NotSolved