Abgleich von Katalogwerten mit Quelle
24.01.2023 12:48:47
Katalogwerten
ich habe ein Problem mit dem Abgleich von Daten (Katalogwerten) in meiner Quelltabelle. MEin Code funktioniert, ist aber eben relativ langsam und mit Arrays, die hier sicherlich Sinn machen würden) kenne ich mich nicht aus.
int_BerZeile = 8
'Quelltabelle
For a = 3 To Worksheets("LG").Cells(Rows.Count, 2).End(xlUp).Row
'b = Katalogwerte, die in der Tabelle LG abgeglichen werden sollen
For b = 3 To Worksheets("Refill").Cells(Rows.Count, 11).End(xlUp).Row
'Wenn der Katalogwert in der Quelltabelle gefunden wird, dann sollen einige Zellen in den "Bericht" kopiert werden.
If Worksheets("LG").Cells(a, 9) = Worksheets("Refill").Cells(b, 11) Then
With Worksheets("Bericht")
.Cells(int_BerZeile, 2) = Worksheets("LG").Cells(a, 3)
.Cells(int_BerZeile, 3) = Worksheets("LG").Cells(a, 4)
.Cells(int_BerZeile, 4) = Worksheets("LG").Cells(a, 5)
.Cells(int_BerZeile, 5) = Worksheets("LG").Cells(a, 6)
.Cells(int_BerZeile, 6) = Worksheets("LG").Cells(a, 17)
.Cells(int_BerZeile, 7) = Worksheets("LG").Cells(a, 9)
int_BerZeile = int_BerZeile + 1
End With
End If
Next b
Next a
Könnt ihr mir bitte helfen...?Danke
Jack