Thema Datum  Von Nutzer Rating
Antwort
Rot Zeile mit Bedingung löschen --> code langsam
06.06.2019 16:24:35 Reinhard
NotSolved
06.06.2019 18:38:28 Mackie
****
NotSolved
07.06.2019 08:26:57 Gast90463
NotSolved
07.06.2019 09:36:24 Reinhard
NotSolved
07.06.2019 11:20:28 Mackie
NotSolved
07.06.2019 12:18:51 Reinhard
NotSolved
07.06.2019 12:39:36 Mackie
NotSolved
07.06.2019 13:22:18 Werner
Solved
07.06.2019 13:23:51 Werner
NotSolved
07.06.2019 13:27:59 Werner
*****
NotSolved
07.06.2019 14:38:45 Gast68811
NotSolved
07.06.2019 14:48:43 Werner
NotSolved

Ansicht des Beitrags:
Von:
Reinhard
Datum:
06.06.2019 16:24:35
Views:
63
Rating: Antwort:
  Ja
Thema:
Zeile mit Bedingung löschen --> code langsam

Hallo zusammen,

ich hoffe ihr könnt mir helfen meine Probleme bei meinem gebastelten VBA Programm zu beheben.

Ich habe folgendes Codefragment (siehe unten), welches die jeweilige Zeile löscht wenn 7 Bedingungen erfüllt sind. Dieser wird auf ein Worksheet mit ca. 8000 Datensätzen angewandt. Leider dauert der Codedurchlauf bei mir teilweise 5min und länger. Woran kann das liegen?

Beste Grüße

Reinhard

Function leere_merkmale_loeschen()


Dim tab_f As Worksheet
Dim matakt As String

Set tab_f = Worksheets("Beispieldatensatz")

With tab_f
    For i = .Cells(3, 5).End(xlDown).Row To 3 Step -1
        matakt = .Cells(i, 5).Value
        Select Case matakt
            Case Is = "Außendurchmesser" Or "Wandstärke" Or "Ovalität" Or "Exzentrizität"
            Case Else
                If .Cells(i, 6).Value = 0 Or .Cells(i, 6).Value = "" Then
                    If .Cells(i, 7).Value = 0 Or .Cells(i, 7).Value = "" Then
                        If .Cells(i, 8).Value = 0 Or .Cells(i, 8).Value = "" Then
                            .Rows(i).EntireRow.Delete
                        End If
                    End If
                        
                End If
        End Select
    Next
End With

End Function

 


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 Zeile mit Bedingung löschen --> code langsam
06.06.2019 16:24:35 Reinhard
NotSolved
06.06.2019 18:38:28 Mackie
****
NotSolved
07.06.2019 08:26:57 Gast90463
NotSolved
07.06.2019 09:36:24 Reinhard
NotSolved
07.06.2019 11:20:28 Mackie
NotSolved
07.06.2019 12:18:51 Reinhard
NotSolved
07.06.2019 12:39:36 Mackie
NotSolved
07.06.2019 13:22:18 Werner
Solved
07.06.2019 13:23:51 Werner
NotSolved
07.06.2019 13:27:59 Werner
*****
NotSolved
07.06.2019 14:38:45 Gast68811
NotSolved
07.06.2019 14:48:43 Werner
NotSolved