Office: (Office 2013) Makro wird immer langsamer

mathieu_91 · 27. Juli 2016

Also trotz neuer Mappe ohne BFs und mit Array Funktion läuft das Ganze langsamer, gleiches Problem wie zuvor...

Hat jemand noch eine Vorschläge, woran es liegen könnte?

Grüße

Mathieu

EarlFred · 27. Juli 2016

Hallo Mathieu,

meine Vermutungen zum alten Stand habe ich mitgeteilt. Den neuen Stand kennt ja keiner.

Die paar Zeilen und Spalten sollten in kaum bemerkbarer Zeit in ein Array eingelesen und von dort wieder ausgegeben werden können.

Teste mal:
Code:

Option Explicit

Sub test()
Dim t As Single: t = Timer

Dim fVar(1 To 2000, 1 To 35) As Variant, i As Long, j As Long

For i = LBound(fVar, 1) To UBound(fVar, 1)
For j = LBound(fVar, 2) To UBound(fVar, 2)
fVar(i, j) = i + j
Next j
Next i

Range(Cells(1, 1), Cells(2000, 35)).Value = fVar

Debug.Print Timer - t
End Sub

Sub test2()
Dim t As Single: t = Timer

Dim fVar As Variant, i As Long, j As Long

fVar = Range(Cells(1, 1), Cells(2000, 35)).Value

For i = LBound(fVar, 1) To UBound(fVar, 1)
For j = LBound(fVar, 2) To UBound(fVar, 2)
fVar(i, j) = fVar(i, j) * 3
Next j
Next i

Range(Cells(1, 1), Cells(2000, 35)).Value = fVar

Debug.Print Timer - t
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Code Test2 greift genau 2mal auf das Blatt zu. Ist das bei Deinem Code ähnlich?

Grüße
EarlFred

mathieu_91 · 27. Juli 2016

Hallo EarlFred,

nein, das wird aber leider, glaube ich, nicht funktionieren.

Ich muss ja umsortieren bzgl. Spalten.

Also Werte aus Liste 1 und Spalte 1 kommen beispielsweise in Liste 2 in Spalte 30 etc..

Habe jetzt folgendes gemacht, um schon einmal die permanente If Abfrage zu meiden, ob eine Spalte jetzt sichtbar ist oder nicht, ein Array mit den sichtbaren Spaltennummern befüllt und lesen anschließend dieses Array aus.

Code läuft jetzt binnen 3 Sekunden durch.

Der Hauptteil vom Makro FillEL sieht jetzt so aus:

Code:

[...]

i = 0

For col = 1 To LastCol

If Not .Columns(col).Width = 0 Then
ReDim Preserve ColArray(i)
ColArray(i) = col
i = i + 1
End If

Next col

For Each rw In Filter_Rng.SpecialCells(xlCellTypeVisible)

ItemRow = rw.Row

For i = 0 To UBound(ColArray())

col = ColArray(i)

Select Case col

Case 1
twbEL.Cells(RowEL, col).Value = Cnt
twbEL.Cells(RowEL, 30).Value = .Cells(ItemRow, col).Value
Case 2
twbEL.Cells(RowEL, 19).Value = .Cells(ItemRow, col).Value
Case 3 To 17
twbEL.Cells(RowEL, col - 1).Value = .Cells(ItemRow, col).Value
Case 19
twbEL.Cells(RowEL, 17).Value = .Cells(ItemRow, col).Value
Case 20
twbEL.Cells(RowEL, 18).Value = .Cells(ItemRow, col).Value
Case 21
twbEL.Cells(RowEL, 22).Value = .Cells(ItemRow, col).Value
Case 22
twbEL.Cells(RowEL, 20).Value = .Cells(ItemRow, col).Value
Case 23

If .Cells(ItemRow, 30).Value Empty And .Cells(ItemRow, 31).Value Empty Then
twbEL.Cells(RowEL, 21).Value = Chr(10) & "(BT + OPEL) " & Chr(10) & .Cells(ItemRow, col).Value & Chr(10)
ElseIf .Cells(ItemRow, 30).Value Empty And Cells(ItemRow, 31).Value = Empty Then
twbEL.Cells(RowEL, 21).Value = Chr(10) & "(OPEL) " & Chr(10) & .Cells(ItemRow, col).Value & Chr(10)
Else
twbEL.Cells(RowEL, 21).Value = Chr(10) & "(BT) " & Chr(10)
End If

Case 24 To 29
If InStr(1, .Cells(ItemRow, col).FormulaR1C1, "=HYPERLINK(", vbTextCompare) = 1 Then
twbEL.Cells(RowEL, 23).FormulaR1C1 = "=HYPERLINK(""" & .Cells(ItemRow, col).Value & """, """ & .Cells(ItemRow, col).Value & """)"
End If
Case 35

Select Case .Cells(ItemRow, col).Value

Case "erledigt"
With twbEL.Cells(RowEL, 26)
.Value = "X"
.Font.Color = RGB(0, 255, 0)
End With
Case "offen"
Dim ItemDate As Date
ItemDate = .Cells(ItemRow, 22).Value

Select Case ItemDate
Case Is > Date
With twbEL.Cells(RowEL, 25)
.Value = "X"
End With
End Select

Case "info"
With twbEL.Cells(RowEL, 26)
.Value = "X"
.Font.Color = RGB(0, 255, 0)
End With

End Select

End Select

Next i

[...]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mir ist das Ganze irgendwie ein völliges Rätsel...*frown.gif*

Bin aber natürlich froh, dass es schneller läuft...

Werde deinen Code mal durchgucken und ausprobieren, aber erst morgen.

Grüße und schönen Feierabend

Mathieu

EarlFred · 27. Juli 2016

Hallo Mathieu,

Ich muss ja umsortieren bzgl. Spalten.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kannst Du doch alles machen, wenn Du willst. Was Du innerhalb des Arrays treibst, braucht wenig Zeit. Das Auslesen aus und Übertragen in die Tabelle braucht Zeit.

Grüße
EarlFred

mathieu_91 · 27. Juli 2016

Hallo EarlFred,

bis vor wenigen Minuten lief mein Makro binnen 3 Sekunden durch.

Dann habe ich die Freigabe kurz rein und wieder rausgenommen, Mappe gespeichert, eine Sicherheitscopie erstellt und seitdem laufen Sicherheitscopie UND die eigentliche Mappe wieder langsam.

Wo ist der Fehler?

Ich finde keinen, das ist mir völligst schleierhaft wieso ein Makro, was vollkommen unverändert, von jetzt auf gleich statt 3 Sekunden 30 Minuten braucht! *mad.gif* *mad.gif* *mad.gif*

Gibt es da einen Counter bei Excel? Macro x mal eingesetzt, dann Excel verlangsamen damit man sich das neueste Excel kauft oder die Mappe komplett neu aufbaut, was in meinem Fall einen halben Arbeitstag dauert, weil Save As reicht nicht aus.
Neue Mappe erzeugen, neue Tabellen erzeugen, Code von A nach B kopieren, Formatierungen kopieren, Texte Kopieren, ActiveX Element kopieren und umbenennen etc..

Was ich mich zudem auch frage ist, warum Excel die Scrollbar nicht aktualisiert, obwohl in der letzten Zeile keine Inhalte sind?
Anbei ein Bild.
Inhalte gibt es nur bis Zeile 13 und das sind die Autofilter.

Habe schon versucht die jungfräulichen Zeilen einer neuen Tabelle da rein zu kopieren, von 14 bis Ende, aber es hilft nichts.

Speichern läuft auch nur noch langsam. Datei ist 1732kb groß.

Warum, Excel?!*bawling *mad.gif*

mathieu_91 · 28. Juli 2016

Hallo,

hatte die Mappe jetzt 10 Minuten offen.

Hatte das Makro pausiert und außerhalb von Excel irgendetwas gemacht.
Hab das Makro dann fortgesetzt und es war plötzlich fertig.

Habe das Makro dann noch einmal ausgeführt, binnen 3 Sekunden fertig.

Ehm, hab ich was verpasst? Ich habe rein gar nichts an der Mappe gemacht, ich habe etwas außerhalb von Microsoft Office gemacht, hatte den Code nur pausiert und das soll dazu führen, dass es von x Stunden wieder auf 3 Sekunden zurückfällt?

Ich mein, da läuft doch irgendetwas wirklich unglaublich faul!*mad.gif*

EDIT:

Wie sieht es mit "Verknüpften Graphiken" aus? Verhalten die sich wie BFs?

Office: (Office 2013) Makro wird immer langsamer

Makro wird immer langsamer

Makro wird immer langsamer

Makro wird immer langsamer

Makro wird immer langsamer - Similar Threads - Makro langsamer

Name der Datei durch Excel geändert

Makro läuft plötzlich(!) sehr langsam

Makro ist brutal langsam

Makro arbeitet sehr langsam

Langsames Makro

makro zu langsam?

Makro zu langsam