Office: Flackern des Bildschirms

Moin Fedi,
erst mal meine Gratulation, dass Deine Aufgabe Fortschritte macht. Hoffentlich steigst Du jetzt aber nicht subito aus dem Thema aus. Denn ich hätte da tatsächlich noch eine Idee, für die ich aber erst einmal ein Stoppuhr-Ergebnis brauche.

Wenn Du dann immer noch einen Film sehen möchtest, baue ich Dir einen entsprechenden Fortschrittsbalken.

Aber, wenn meine Idee klappt, könnte es passieren, dass RPP63 uns noch einen VBA-Oscar für super schnelles Kino spendiert ...

Schöne Grüße

 

Moin und SCNR -- me too
Warst du schon mal auf dem Land in einem Kino, wo Kühe in der Nähe weiden?

Niemals unter keinen Umständen sollte man ein Abführmittel und eine Schlaftablette zur gleichen Zeit einnehmen.
Dave Barry

 

Guten Abend d'r Bastler
Gute Ideen sind immer gut.
Lass mir aber ein paar Tage Zeit, bis ich die weiteren Verbesserungen vorgenommen habe (Betonung auf versuchen).
Salut Fedi

 

LOL Um Deine Frage nach dem Kino auf dem Land zu beantworten: Weiden durfte das Fleckvieh nicht, aber der Misthaufen der Stallhaltung neben dem Kino (tatsächlich mitten im Ort) sorgte für zusätzliche kineastisch Eindrücke .... Mitte der 1960er.

Okay, lass Dir Zeit - falls Du Fragen zu Deinen Versuchen hast, lass wissen!

Grüße!

 

Experiment gelungen!
Ich habe die Datei überholt und viele Select-Befehle eliminiert (Riesenarbeit).
Jetzt läuft es wie geschmiert, nämlich in 10 Sekunden. Ich muss das File vielleicht wieder etwas verlangsamen, sonst habe ich den reellen Eindruck der Verarbeitung (Film) nicht mehr. :-)
Alles erledigt.
Falls Du möchtest sende ich das Makro zu.
Ansonsten vielen herzlichen Dank für Dein/Euer Engagement.
Gruss Fedi

 

Hallo Fedi,

Das ist aber jetzt nicht dein Ernst?
Das fertige Makro würde mich schon mal interessieren.

 

Noch nie war ich ernster
Die Datei lade ich nun hoch.


Der Hochzeitstag ist der nahtlose Uebergang
von dürfen zu müssen.
Oscar Wilde

 

Hallo Fedi,

wie gesagt ich bastle Di rgerne einen Prograssbalken. Kann aber sein, dass du den nach einer echten Code-Optimierung kaum wahrnehmen kannst ...

 

Hallo Fedi,

nur das ich das jetzt nicht falsch verstehe: das ist das optimierte Makro?

 

Ja, das ist es und es läuft wie gewünscht (Nur Profis würden noch nicht zufrieden sein).
Was will man mehr?
Ich habe jetzt soviel Zeit damit "verbraten", dass ich auf weitere Anpassungen gerne verzichte, es sei denn, es wären Kleinigkeiten. Ich hoffe auf Euer Verständnis und grüsse herzlich
Fedi

 

Hallo Fedi,

ich finde es gruselig, aber wem nicht zu raten ist....

 

Hallo Fedi,

ja das ist in der Tat gruselig. Ich würde empfehlen, dass du dir mal das Geschehen um Malermeister Pinselgut und seinen Gesellen JawollChef (Online - Excel Programmierung VBA Makro: Achtung Makrorekorder oder Wer selektiert denn da?) zu Gemüte führst. Wenn du diesen Artikel gelesen hast, wir die klar werden, was die Helfer versuchen dir beizubringen. Dein jetziger Code würde dadurch auf höchstens 30% der jetzigen Größe schrumpfen, besser lesbar sein und auch höchstens noch 30% der jetzigen Laufzeit benötigen. Und ich bin mir sicher, wenn man den richtig optimieren würde 8und vor allem die nötigen Spielereien weg lassen würde, käme man auf unter 1 Sekunde Laufzeit.

Übrigens: Auch die anderem Artikel auf der genannten Seite sind extrem hilfreich, wenn man sich mit Excel im Allgemeinem und VBA im Besonderen befassen will.

 

Moin liebe Kollegen,

tja, vermutlich müssen wir uns damit abfinden, dass es Fedi nicht um die Programmierung eines Workbooks für Steuererklärungen geht, sondern um die Gestaltung eines Kurzfilms. Dann muss er sich aber leider die Kritik gefallen lassen, dass der Titel dieses Themas deutlich falsch gewählt ist. Mein Vorschlag wäre dann:

Wie kann ich mit VBA einen Film generieren, der in Spalte B
zeilenweise "...arbeitet" anzeigt?​

Aber, in einem guten Forum werden ja auch solche Wünsche wahr. Hier also

Fedi's XL-Thriller mit spannenden Spaltenbreiten, echter Arbeit und dem Unvermeidlichen...​

Der Code gehört in ein Arbeitsblatt:

Code:

Option Explicit

Sub Fedis_XL_Thriller()
Dim i As Integer, s As Integer, w As Integer, sPerformance As String
Dim t As Double, tStart As Single, isSpot As Boolean
Dim tBegin As Single, tTime As Double

tBegin = Timer
s = Cells(1, 1)                 'z.B. 37
If Cells(1, 1) = "" Then s = 48 'die Anzahl der Seiten seines "optimierten" Word-Dokements
Cells.Clear
Cells(1, 2).Font.Bold = True
Cells(1, 2).Font.Size = 16
Cells(1, 2) = "d'r Fedi"

For i = 2 To s
    isSpot = False
    Cells(i, 2) = "...arbeitet..."
    tStart = Timer
    t = 0.5 + Rnd * (2.5 - 0.5)
 
    Do While Timer < tStart + t
        DoEvents
    Loop
 
    If i Mod 12 = 0 Then
        isSpot = True
        Rows(i).Font.Bold = True
        Rows(i).Font.Color = vbRed
        Cells(i, 2) = "Nur ein Spot!"
        Cells(i,4) = " d'r Bastler von den VBAsteleien.de"
        For w = 20 To 0 Step -1
            Cells(i, 3) = w
            Application.Wait Now + TimeSerial(0, 0, 1)
        Next w
        Cells(i, 3) = ""
    End If

    If t < 1 Then sPerformance = "ziemlich schnell"
    If t > 1 And t < 2 Then sPerformance = "ordentlich"
    If t > 2 Then sPerformance = "eher gemächlich"
 
    If Not isSpot Then Cells(i, 3) = sPerformance
    Columns.AutoFit
Next i

    tTime = Format(Timer - tBegin, "0.00")
    Cells(s + 2, 2).Font.Bold = True
    Cells(s + 2, 2) = "... und hatte " & tTime & " Sekunden Spaß."
 
End Sub

Kommt übrigens ganz ohne SELECT aus

Viel Spaß damit!

 

Man füge hinter Cells(1,2) = "d'r Fedi" bitte diese Zeile ein

Code:

Columns(3).HorizontalAlignment = xlCenter

 

Moin Fedi,

auch wenn Du Dein Projekt mit Experiment gelungen kommentierst, kann ich nicht umhin, noch ein paar Fragen zu stellen:

• Wieso muss Deine Arbeitsmappe alle 50 Jahre immer wieder neu berechnen? Oder habe ich da was falsch verstanden?
• Warum lässt Du Dir nicht helfen, die Berechnungen in Schleifen zu packen und damit das Ganze erheblich zu beschleunigen?
• Es ging um Bildschirmflackern. Weshalb greifst Du da nicht auf ein probates Mittel wie Application.ScreenUpdating zurück?

Und deshalb gibt's dann hier noch Fedi's Farbfilm

Schöne Grüße!