Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makroausführung dauert sehr lange

Makroausführung dauert sehr lange
21.10.2007 10:29:43
KiaOra
Hi Ihr, ;-)
möchte gerne beim Anklicken eines Blattes folgendes Makro laufen lassen.
Ziel: Optimale Zeilenhöhe bei Zeilenumbruch mit einer Mindeshöhe von 18.75.
Problem dabei: Obwohl immer nur ein Bruchteil der Zellen befüllt ist und im Filter angezeigt wird, läuft das Makro scheinbar immer über alle Zeilen (bis 1998) u. braucht entsprechend lange (bei mir ca. 3 - 5 Sek.).
Habt Ihr ne Idee, wie ich das noch etwas schneller bekommen kann bzw. nur auf das Filterergebnis einschränken kann ? :-)

Private Sub Worksheet_Activate()
Range("A2:L1998").Select
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=1, Criteria1:=""
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Selection.Rows
rng.AutoFit
If rng.RowHeight


Vielen Dank für jede Hilfe !
VG u. machts gut,
Micha

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makroausführung dauert sehr lange
21.10.2007 10:34:00
Josef
Hallo Micha,
warum wolltest du dann gestern immer den Bereich 2:1998 ?
Private Sub Worksheet_Activate()
Dim rng As Range

On Error GoTo Ende
Application.ScreenUpdating = False

With Range("A2").CurrentRegion
    .AutoFilter Field:=1
    .AutoFilter Field:=1, Criteria1:="<>"
    For Each rng In .Rows
        rng.AutoFit
        If rng.RowHeight < 18.75 Then rng.RowHeight = 18.75
    Next
End With

Ende:
Application.ScreenUpdating = True
End Sub

Gruß Sepp

Anzeige
AW: Makroausführung dauert sehr lange
21.10.2007 11:08:49
KiaOra
Hallo Sepp,
das ist ja klasse, dass Du schon wieder aushilfst - danke !
Mein Problem ist nach wie vor die Zeit, die das Makro braucht (auch jetzt noch mehrere Sek.).
Könnte ich vielleicht noch einfügen, dass nur Zeilen mit Inhalt geprüft werden oder so ?
Tut mir leid, wenn ich Dich hier so in Anspruch nehme, aber die Ladezeit ist echt lange (und komischerweise nur bei diesem Makro...).
VG,
Micha

AW: Makroausführung dauert sehr lange
21.10.2007 11:12:00
Josef
Hallo Micha,
ich glaube zwar nicht das es etwas bringt, aber jetzt werdeb nur Zeilen mit Inhalt in Spalte "C" geprüft.
Private Sub Worksheet_Activate()
Dim rng As Range

On Error GoTo Ende
Application.ScreenUpdating = False

With Range("A2").CurrentRegion
    .AutoFilter Field:=1
    .AutoFilter Field:=1, Criteria1:="<>"
    For Each rng In .Columns(3).SpecialCells(xlCellTypeConstants).Rows
        rng.AutoFit
        If rng.RowHeight < 18.75 Then rng.RowHeight = 18.75
    Next
End With

Ende:
Application.ScreenUpdating = True
End Sub


Gruß Sepp

Anzeige
AW: Makroausführung dauert sehr lange
21.10.2007 11:18:00
KiaOra
Hallo Sepp,
ist ein Unterschied wie Tag und Nacht - jetzt läufts ultra-schnell, keine Ahnung warum ! :-)
Die (hoffentlich) letzte Frage dazu: Wie könnte ich hier mehrere Spalten angeben (z.B. A:C) ? ;-)
VG,
Micha

AW: Makroausführung dauert sehr lange
21.10.2007 11:20:50
Josef
Hallo Micha,
das freud mich.
Mehrere Spalten so.
Private Sub Worksheet_Activate()
Dim rng As Range

On Error GoTo Ende
Application.ScreenUpdating = False

With Range("A2").CurrentRegion
    .AutoFilter Field:=1
    .AutoFilter Field:=1, Criteria1:="<>"
    For Each rng In .Columns("A:C").SpecialCells(xlCellTypeConstants).Rows
        rng.AutoFit
        If rng.RowHeight < 18.75 Then rng.RowHeight = 18.75
    Next
End With

Ende:
Application.ScreenUpdating = True
End Sub

Gruß Sepp

Anzeige
AW: Makroausführung dauert sehr lange
21.10.2007 11:39:00
KiaOra
...oh mann - ich trau mich ja fast nicht mehr... ;-)
läuft perfekt - sofern die Daten direkt in diesem Blatt eingegeben werden...
...kommen die Daten per wenn-dann-Formel von einem anderen Blatt, erkennt es das Makro offenbar nicht...
...weisst Du auch dafür noch was...? :-(
Vielen Dank für alles !
Micha

AW: Makroausführung dauert sehr lange
21.10.2007 11:46:12
Josef
Hallo Micha,
ungetestet.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Activate()
Dim rng As Range, rngU As Range

On Error GoTo Ende
Application.ScreenUpdating = False

With Range("A2").CurrentRegion
    .AutoFilter Field:=1
    .AutoFilter Field:=1, Criteria1:="<>"
    
    On Error Resume Next
    Set rngU = Union(.Columns("A:C").SpecialCells(xlCellTypeConstants), _
        .Columns("A:C").SpecialCells(xlCellTypeFormulas))
    Err.Clear
    On Error GoTo Ende
    
    For Each rng In rngU.Rows
        rng.AutoFit
        If rng.RowHeight < 18.75 Then rng.RowHeight = 18.75
    Next
    
End With

Ende:
Application.ScreenUpdating = True
End Sub

Gruß Sepp

Anzeige
AW: Makroausführung dauert sehr lange
21.10.2007 20:18:36
KiaOra
Hallo Sepp,
nochmals vielen vielen Dank für alle Hilfe !
Ist echt klasse, wenn sich jemand so viele Zeit für Fragen und Probleme nimmt !
Habe Dein Makro in Verwendung u. bin nun echt zufrieden mit den Rechenzeiten. ;-)
VG u. einen schönen Abend,
Micha

AW: die Erklärung
21.10.2007 11:46:25
Daniel
Hi Micha
damit du es auch verstehts, warum es schneller ist:
der Zusatz .SpecialCells(xlCellTypeConstants) schränkt den Zellbereich auf die Zellen eine, die auch tatsächlich einen FixWert enthalten, dh. Leerzellen und Zellen mit einer Formel gehören nicht mehr zur Auswahl.
Damit ist die Anzahl der Zellen, die bearbeitet werden muss, natürlich geringer und das Makro schneller.
Der Befehl entspricht der Excel-Funktion Bearbeiten - Gehe Zu - Inhalte.
Hier siehst du auch, welche Möglichkeiten dieser Funktion bietet und kannst über den Recorder relativ schnell den richtigen Parameter rausfinden.
Im Zusammenhang mit dem Autofilter scheint mir aber .SpecialCells(xlCellTypeVisible) sinnvoller, da hier die Auswahl auf die gefilterten Zellen eingeschränkt wird.
Gruß, Daniel
PS über diese Funkion kann man mit ein Paar kreativen Ideen und geschickten Formeln oft sehr schnelle weil schleifenfreie Markros schreiben

Anzeige
AW: die Erklärung
21.10.2007 20:16:47
KiaOra
Hi Daniel,
vielen vielen Dank für die ausführliche Erklärung und den Tipp mit CellTypeVisible !
Ist echt klasse, wenn man neben den Codes auch noch so eine Hilfe bekomme !
VG u. einen schönen Abend,
Micha

53 Forumthreads zu ähnlichen Themen

Automatische Berechnung dauert sehr lange
Josef

Hallo!
Wenn ich über eine Userform Daten in einer Tabelle ändere, so dauert die Abarbeitung sehr, sehr lange aufgrund der Berechnungen von Formeln in einem anderen Tabellenblatt im Hintergrund.
Wenn ich über einen Button die automatische Berechnung mit
With Application
.Calcula...
28.08.2008 13:18:00
Thread-ID: 1005412
13 Beiträge
Anzeige
Code dauert sehr lange !
rieckmann

Hallo,
ich habe auf der Arbeit nur ein altes Notebook mit Office XP.
Nun habe ich eine Mappe die beim Öffnen das Makro startet.
Es soll bestimmte Spalten in mehreren Tabellenblätter durchlaufen um Leerzeichen einzufügen.
Das Makro wurde hier im Forum erstellt.
Ich habe es le...
09.05.2013 16:38:25
Thread-ID: 1312369
9 Beiträge
Xml Import dauert sehr lange
Bernhard

Hallo VBA-Profis,
ich nutze seit längerem die Funktion XmlImport in VBA, um größere Xml-Dateien einzulesen (Größe in Excel ca. 7500 Zeilen, 85 Spalten).
(Anbei der Code).
Mein Problem:
Nach erstmaligem Öffnen der Excel-Datei dauert das Einlesen ca. 3 Sekunden.
Möchte ich ern...
22.05.2013 10:51:31
Thread-ID: 1314249
7 Beiträge
Anzeige
datei braucht lange zum öffnen
sina

hallo mal wieder,
ich habe eine Datei, die ziemlich lange braucht, bis sie offen ist. ICh denke, dass es an den vielen S-Verweisen liegt, die in der Tabelle sind. Kann man daran irgendetwas ändern??
Wäre euch sehr dankbar!
sina
17.07.2002 11:26:59
Thread-ID: 137386
4 Beiträge
UF-Start dauert sehr lange
Ludmila

Hallo Spezialisten,
ich habe eine UF mit nachfolgenden Elemetenanzahl.
Mit Hajo`s Makro weiss ich nun wieviel Elemente die UF hat.
hierbei wird die UF mit
Label 27
CommandButton 25 *1
Frame 13
Gesamt 65
aktiviert und ausgerichtet.
Zum...
14.06.2015 15:02:53
Thread-ID: 1430790
13 Beiträge
Ausfuehrung Code dauert sehr lange
Juergen

Hallo,
ich habe eine lange Liste (800.000 Zeilen), deren Inhalt ich je nach dem was in Spalte A fuer ein Zahlencode steht, in eine andere Tabelle ueberfuehre. Herausforderung ist lediglich an die richtige Stelle zu kommen, deshalb viele Spruenge mit xltoright, xlup, ...
Es funktioniert...
14.09.2015 18:20:39
Thread-ID: 1447412
5 Beiträge
Übertragen Makro dauert sehr lange
Sigi

Hallo,
zur Weiterverarbeitung der Daten aus WksAufZu, werden die einzelnen Positionen
horizontal in Workbooks("F_Daten.xlsm").Worksheets("Auf_Journal") eingelesen.
Die Anz = Variabel
Bei 86 Zeilen dauert das Makro 3:30 Min.
Mache ich hier einen Fehler?
Danke!
Gruß
28.01.2016 22:11:48
Thread-ID: 1471914
6 Beiträge
Makro auszuführen dauert sehr lange
Nicolai

Hallo zusammen,
ich hatte hier aus dem Forum folgenden Code bekommen:
Z1 = TimeValue(TextBox1.Text) / TimeValue("00:15") + 1
Z2 = TimeValue(TextBox2.Text) / TimeValue("00:15") + 1
For Z = Z1 To Z2
Cells(Z, 2).Value = Cells(Z, 2).Value + 1
Next
https://www.herber.d...
19.08.2016 12:22:05
Thread-ID: 1510177
8 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
6
8
6
3
3
12
4
5
7
2
3
4
2
1
2
2
7
2
5
4
3
4
1
7