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:
326		 Rating:
     
Antwort:
 Nein
Thema:
Laufzeitproblem bei Zellenübertrag

~1,8s bei 100k Datensätzen

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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