VBA Code läuft noch nicht rund/flüssig

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ralf,
super, Teil 1 wäre gelöst. Kein Ruckeln (zumindest im Moment) und kein "Scrollen" mehr. Vielen Dank für den Tip. Bleibt noch Problem 2.

Sub AuswahlMonat()
    Dim i&
    With Tabelle2
    Application.ScreenUpdating = False
        .Rows("10:375").EntireRow.Hidden = False
        For i = 10 To .Cells(Rows.Count, 1).End(xlUp).Row
            If Format(.Cells(i, 1), "mmmm") > .Cells(9, 1) Then .Rows(i).EntireRow.Hidden = True
        Next i
    End With
End Sub

Für mich liegt das Problem in der Schleife und zwar hier:

For i = 10 To .Cells(Rows.Count, 1).End(xlUp).Row

hier wird ja Excel mitgeteilt, bis zur letzten Zeile zu gehen, wenn ich das richtig verstehe. Oder liege ich da falsch?
Gruß Frank

Guten Morgen,

@ Ralf wir sind auf der Zielgeraden. Die Funktionalität, wie ich es mir vorstelle, ist gegeben. Nur meine Maus entwickelt sich zum Kreisel, was heisst, es dauert 2-3 Sekunden, bis sich die Daten aktualisieren.

@Luschi bin noch dabei, deine Änderungen nachzuvollziehen. Was die Änderungen im oberen Teil schon bringt, ist ja gewaltig. Flüssig und rasend schnell. Hätte nicht gedacht, was 4 kleine Zeilen bringen. Bei den Änderungen in "Auswahl Monat" steige ich noch nicht durch, was diese bewirken bzw. sollen. Warum bis Zeile 375? Gedacht ist, dass ich das gesamte Jahr eintrage. Gehe ich richtig in der Annahme, das Du bei diesen Änderungen nicht berücksichtigt hast, dass die leeren Zeilen - wie Ralf`s Lösung es jetzt macht, ausgeblendet werden. Jetzt müsste man nur noch Ralf´s Lösung mit deiner kombinieren, dann hätte ich es endlich. Die Kommentare sind für mich sehr hilfreich. So weiß ich wenigstens, wo genau ich in der Hilfe schauen muss.
Gruß Frank

Sub AuswahlMonat() Dim i&, j&, Monat$, R As Range With Tabelle2 Monat = .Cells(9, 1) Set R = .Cells(375, 1) j = .Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False .Rows("10:375").EntireRow.Hidden = False For i = 10 To j If Format(.Cells(i, 1), "mmmm") > Monat Then Set R = Union(R, .Cells(i, 1)) End If Next i If j 375 Then Set R = Union(R, .Range("A" & (j + 1) & ":A375")) R.EntireRow.Hidden = True End With Set R = Nothing End Sub

Sub AuswahlMonat() Dim xRg As Range, i& With Tabelle2 .Rows("10:375").EntireRow.Hidden = False For i = 10 To 375 If Format(.Cells(i, 1), "mmmm") > .Cells(9, 1) Then '' .Rows(i).EntireRow.Hidden = True 'in xRg werden alle Zellen der Spalte 'A' gesammelt, die ausgeblendet werden müssen! 'das hat den Hintergrund, daß seit Excel 2013 jeder .Hidden-Befehl 'eine Neueberechnung des Tabellenblattes intern auslöst If xRg Is Nothing Then Set xRg = .Cells(i, 1) Else Set xRg = Union(xRg, .Cells(i, 1)) End If End If Next i If Not xRg Is Nothing Then xRg.EntireRow.Hidden = True Set xRg = Nothing End If End With End Sub

Beliebteste Forumthreads (12 Monate)

VBA Code läuft noch nicht rund/flüssig

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread