Werte zweier Spalten mit Zellenwert vergleichen
15.03.2017 08:30:24
hermann
Hallo,
Ich habe eine relativ umfangreiche Tabelle (ca. 35.000 Zeilen) in der ich 2 Werte einer Zeile mit einem Zellenwert vergleichen muss. Sollten beide Zellenwerte nicht übereinstimmen sollte die Zeile versteckt werden. Das VBA Programm funktioniert so weit, nur das Laufzeitverhalten ist unmöglich! Gibt es eine Optimierungsmöglichkeit für das VBA Programm?
Public Sub Auswahl1()
Dim i, x As Long
Dim Belegnummer As String
Application.ScreenUpdating = False
'Anzahl Datensätze ermitteln
i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Sheets(1).Unprotect Password:="xxx"
'alle Zeilen einblenden
Range(Cells(6, 1), Cells(i, 10)).EntireRow.Hidden = False
'Falsche Zeilen ausblenden
For x = 6 To i
If Trim(Cells(x, 5).Value) <> Trim(Cells(2, 4).Value) And _
Trim(Cells(x, 6).Value) <> Trim(Cells(2, 4).Value) And Cells(2, 4).Value <> "" Then
Rows(x).EntireRow.Hidden = True
End If
Next
Sheets(1).Protect Password:="xxx"
Application.ScreenUpdating = True
End Sub
Hier der Screenshot zum Ergebnis:Danke im Voraus
Hermann