Thema Datum  Von Nutzer Rating
Antwort
12.07.2021 10:31:05 Sandra2308
Solved
Blau Laufzeitproblem bei Zellenübertrag
 12.07.2021 10:57:00 Gast90713
Solved
12.07.2021 12:07:25 Sandra2308
NotSolved

Ansicht des Beitrags:
Von:
Gast90713		 Datum:
12.07.2021 10:57:00		 Views:
244		 Rating:
     
Antwort:
 Nein
Thema:
Laufzeitproblem bei Zellenübertrag

~1,8s bei 100k Datensätzen

 

Public Sub TimeStamp()
    'Deklariere alle Variablen
    Dim i As Long
    Dim j As Long
    Dim n As Long
    Dim t
    
    t = Timer
    
    n = 1
    j = 3
    i = 2
    'Schleife, um Werte bei Veränderung in nächstes Tabellenblatt zu übertragen
    'j ist eine Zelle unter i, um Veränderung abprüfen zu können
    '"raw_data" ist Quellen-, "data" ist Ziel-Tabellenblatt
    Do
        'in Spalte 8 sind die Zeitstempel in der Quelle
        With ActiveWorkbook.Worksheets("raw_data")
            
            If .Cells(i, 8).Value <> .Cells(j, 8).Value Then
                'übertrage in Zieldatei
                ActiveWorkbook.Worksheets("data").Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = .Cells(i, 8).Value
            End If
            
            i = i + 1
            j = j + 1
        End With
    Loop Until IsEmpty(ActiveWorkbook.Worksheets("raw_data").Cells(i, 1))
 
 
    Debug.Print "Anzahl Datensätze: " & ActiveWorkbook.Worksheets("raw_data").UsedRange.Rows.Count & " in " & Timer - t & " s abgeschlossen."
    
    
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.07.2021 10:31:05 Sandra2308
Solved
Blau Laufzeitproblem bei Zellenübertrag
 12.07.2021 10:57:00 Gast90713
Solved
12.07.2021 12:07:25 Sandra2308
NotSolved