Hilfe bei Code
27.11.2020 19:53:31
Mani
ich brauche nochmal Profi Hilfe....
ein Freund von mir hat mir folgenden Code zur Zuordnung in meiner Datei zur Verfügung gestellt:
Sub Test()
Dim cellsearch As Range
Dim cellarea As Range
Dim cellfill As Range
Dim Letzte1 As Long
Dim Letzte2 As Long
Dim lrV5 As Long, _
rowCounterV5 As Long
Dim lr As Long, _
rowCounter As Long
Application.ScreenUpdating = False
Sheets("Data").Activate
Sheets("Data").Columns("A:R").AutoFilter
Sheets("Data").Columns("A:R").AutoFilter
Sheets("V5").Activate
Sheets("V5").Columns("A:AC").AutoFilter
Sheets("V5").Columns("A:AC").AutoFilter
Letzte1 = ThisWorkbook.Worksheets("V5").Cells(Rows.Count, "A").End(xlUp).Row
Letzte2 = ThisWorkbook.Worksheets("Data").Cells(Rows.Count, "A").End(xlUp).Row
Worksheets("V5").Range("AC2:AC" & Letzte1).ClearContents
Worksheets("Data").Range("R2:R" & Letzte2).ClearContents
With Sheets("V5")
lrV5 = .Range("AB" & Rows.Count).End(xlUp).Row
For rowCounterV5 = lrV5 To 1 Step -1
For Each cellarea In Worksheets("Data").Range("Q2:Q" & Letzte2)
If cellarea = "" Then GoTo SKIP_Leeres_Feld
If .Cells(rowCounterV5, "AB").Offset(0, 1) "x" Then
If cellarea.Offset(0, 1) = "" Then
If cellarea.Offset(0, -16).Value = .Cells(rowCounterV5, "AB").Offset(0, _
-25).Value Then
If .Cells(rowCounterV5, "AB").Value
Es funktioniert auch alles soweit nur in meiner Datei dauert der Ablauf ungefähr 17 Minuten.Könnt ihr mir bei der Beschleunigung helfen ?
Würde es gerne mit Array umsetzen nur leider übersteigt das meine Fähigkeiten.
Würde mich über jeden Ansatz und jede Hilfe freuen.
Vielen Dank
Beste Grüße
der Mani