Thema Datum  Von Nutzer Rating
Antwort
Rot Performance
07.03.2019 13:53:45 root13
NotSolved
07.03.2019 15:02:21 Ulrich
NotSolved
07.03.2019 16:02:32 Gast7842
NotSolved
07.03.2019 16:17:16 Gast19118
NotSolved
07.03.2019 16:19:37 Ulrich
*****
NotSolved
08.03.2019 12:53:33 Gast955
NotSolved

Ansicht des Beitrags:
Von:
root13
Datum:
07.03.2019 13:53:45
Views:
82
Rating: Antwort:
  Ja
Thema:
Performance

Hallo zusammen

 

Ich habe eine Tabelle wo ich doppelte Zeilen rausfiltern möchte. Dies funktioniert mit dem Code den ich gebasltet habe auch, nur warte ich ca. 30 Minuten bis zur Fertigstellung :( Kann mir jemand helfen, wie ich den Code optimieren kann, dass ich eine bessere Performance hinbekommen kann.

 

Sub DoppelteEinträgeLöschen()
 
' ###Sachen abschalten die es nicht braucht###
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
' ###Variablen###
Dim txA As String, txB As String
Dim lRowMaxI As Long, lRowMaxJ As Long, i As Long, j As Long
 
'###Variablen definieren###
lRowMaxI = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
i = 2
 
  With Income
            Do
                j = i + 1
                Do
                    Kontrolle i, j
                    j = j + 1
                Loop Until j = lRowMaxI
            Loop Until i = lRowMaxI
    End With
' Sachen wieder einschalten - Performance
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
 
 
Function Kontrolle(i As Long, j As Long)
    '###Variablen###
    Dim txtA As String, txtB As String
    
    txtA = Cells(i, 1).Value & Cells(i, 2).Value & Cells(i, 3).Value & Cells(i, 4).Value & Cells(i, 5).Value & Cells(i, 6).Value & Cells(i, 7).Value & Cells(i, 8).Value
    txtB = Cells(j, 1) & Cells(j, 2).Value & Cells(j, 3).Value & Cells(j, 4).Value & Cells(j, 5).Value & Cells(j, 6).Value & Cells(j, 7).Value & Cells(j, 8).Value
        If txtA = txtB Then
        Cells(j, 1).EntireRow.Delete
        Else
        End If
 
End Function
 
Danke im Voraus für jede Unterstützung
Gruss, root13

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Performance
07.03.2019 13:53:45 root13
NotSolved
07.03.2019 15:02:21 Ulrich
NotSolved
07.03.2019 16:02:32 Gast7842
NotSolved
07.03.2019 16:17:16 Gast19118
NotSolved
07.03.2019 16:19:37 Ulrich
*****
NotSolved
08.03.2019 12:53:33 Gast955
NotSolved