Office: (Office 2010) Hilfe zu Fortschrittsanzeige

Helfe beim Thema Hilfe zu Fortschrittsanzeige in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Guten Morgen, ich benötige einmal etwas Hilfe. Ich habe einige Exceldateien, welche Daten abgleichen und Fehlerhafte Werte in ein temporäres Blatt... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Hüosse, 18. Februar 2019.

  1. Hüosse Neuer User

    Hilfe zu Fortschrittsanzeige


    Guten Morgen,

    ich benötige einmal etwas Hilfe.
    Ich habe einige Exceldateien, welche Daten abgleichen und Fehlerhafte Werte in ein temporäres Blatt schreiben.
    Diese Auswertung kann u.U. sehr lange dauern, in dieser Zeit sieht es so aus, als ob Excel steht.
    Mein Code ( nur der Auszug der Fehler ) sieht wie folgt aus :
    Code:
            
        If initialer_durchlauf = False Then
            Sheets("Daten_1").Select
            Dim last_d_1, c1, c2, lb1i As Integer
            last_d_1 = Cells(Rows.count, 2).End(xlUp).Row
            lb1i = ListBox1.ListCount - 1
            With Diff.ListBox2
                .ColumnCount = 2
                .ColumnWidths = "5cm;5cm"
            End With
            For c1 = 2 To last_d_1
                For c2 = 0 To lb1i
                    If ListBox1.List(c2, 0) = Range("F" & c1).Value Then
                        Range("K" & c1).Interior.Color = &HC000&
                    End If
                Next c2
            Next c1
            ReDim userarray(0)
            Dim array_user_count As Long
            Dim stringsave As String
            array_user_count = 0
            For c1 = 2 To last_d_1
                For c2 = 0 To lb1i
                    If Range("K" & c1).Interior.Color <> &HC000& Then
                      stringsave = Range("G" & c1).Value & "," & Range("H" & c1).Value & ";" & Range("F" & c1).Value
                      userarray(array_user_count) = stringsave
                      array_user_count = array_user_count + 1
                      ReDim Preserve userarray(array_user_count)
                    End If
                Next c2
            Next c1
        
            'Anzeige der Differenzen
            If array_user_count = 0 Then
                Sheets("Back").Select
                Range("A33").Value = "ok"
            End If
            If array_user_count > 0 Then
                Dim x12 As Long
                Dim y12 As Long
                Dim objarrlist As Object, l As Long
                Set objarrlist = CreateObject("System.collections.arraylist")
                For l = 0 To UBound(userarray) - 1
                    If objarrlist.contains(userarray(l)) = False Then
                        objarrlist.Add userarray(l)
                    End If
                Next l
                Erase userarray
                With objarrlist
                    .Sort
                    userarray = .toarray
                End With
                
                Set objarrlist = Nothing
                Dim z12
                x12 = LBound(userarray)
                y12 = UBound(userarray)
                For z12 = x12 To y12
                    Diff.AddItem userarray(z12)
                Next z12
                Diff.Show
            End If
            'Ende der Differenzenanzeige
        End If 'des initialen durchlaufs
    
    
    Hier will ich eine Fortschrittsanzeige einbauen, die im Vordergrund dem Anwender anzeigt, dass der Differenzenabgleich noch läuft.

    Wo müsste ich das wohl einbauen ?

    Danke für Eure Hilfe.

    Florian
     
    Hüosse, 18. Februar 2019
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi Florian,

    ich würde das anders lösen: am Anfang eine MsgBox mit dem Hinweis, dass der Vorgang länger dauert. Begründung: durch eine Fortschrittsanzeige wird der Codedurchlauf noch um ein wesentliches weiter verlangsamt.

    Bis später
    Karin
     
    Beverly, 18. Februar 2019
    #2
  3. Hüosse Neuer User
    Mh.. gute Idee, man muss gar nicht so kompliziert denken :)
    Das werde ich mir nochmals durch den Kopf gehen lassen....
     
    Hüosse, 18. Februar 2019
    #3
Thema:

Hilfe zu Fortschrittsanzeige

Die Seite wird geladen...
  1. Hilfe zu Fortschrittsanzeige - Similar Threads - Hilfe Fortschrittsanzeige

  2. Hilfe bei Berichtserstellug

    in Microsoft Access Hilfe
    Hilfe bei Berichtserstellug: Hallo zusammen, als ein absoluter Access-Neuling möchte ich euch nach Unterstützung fragen. Mir liegen mehrere Excel-Tabellen vor, die ich irgendwie in Access zusammenfügen möchte. Es handelt...
  3. Hilfe für Formel erstellen

    in Microsoft Excel Hilfe
    Hilfe für Formel erstellen: Ich möchte den Fremdwährungsbestand automatisieren. Das heisst den Bestand automatisch bewirtschaften. Zum Beispiel Wieviel Noten ich von einer Sorte bestellen muss, wenn Lagerbestand nur noch 10...
  4. Hilfe meine Fusszeile nimmt viel platz ein!

    in Microsoft Word Hilfe
    Hilfe meine Fusszeile nimmt viel platz ein!: Hallo liebe Community, Ich schreibe gerade eine Facharbeit und benötige dringend hilfe! Morgen muss ich diese Datei ausgedruckt abgeben, jedoch ist mir ein Fehler passiert und nun sind die...
  5. Zeilen in Excel automatisch alle paar Zeilen einfügen

    in Microsoft Excel Hilfe
    Zeilen in Excel automatisch alle paar Zeilen einfügen: Hallo, ich bin über die Googlesuche hier gelandet und dachte ich hätte auch die Lösung für mein Problem schon gefunden. Doch der Beitrag war von 2006 und schon beim Eingeben in MS Office...
  6. Speichern mit dem Titel der Zelle A2

    in Microsoft Excel Hilfe
    Speichern mit dem Titel der Zelle A2: Moin moin, Ich habe per Makro einen Arbeitsablauf aufgezeichnet der soweit auch funktioniert. Dieser Endet jedoch im "Speichern Unter" Fenster, welches durch das Klicken von "Drucken als PDF"...
  7. Hilfe bei der Buchung in der Buchhaltung

    in Microsoft Excel Hilfe
    Hilfe bei der Buchung in der Buchhaltung: Hallo Leute da draussen! Bin wieder einmal am Abschluss der Buchhaltung meiner Frau angelangt, die ein Microgeschäft hat. Nun ärgere ich mich schon paar Jahre, dass ich am Abschluss der...
  8. EXCEL Berechnung bitte um Hilfe

    in Microsoft Excel Hilfe
    EXCEL Berechnung bitte um Hilfe: Hallo, wer kann mir helfen. Ich habe unterschiedliche 16 Anfangstermine und unterschiedliche 25 Forderungsbeträge und 2 Teilzahlungen im Verlauf der 16 Anfangstermine erhalten sowie einen festen...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden