Makro kürzen
15.08.2022 16:46:14
Fred
ich habe vor längerer Zeit ein Makro von SNB erhalten:
Sub Ergebnis()
sn = Sheets("Depot").ListObjects(1).DataBodyRange
sp = Sheets("Ergebnisse").ListObjects(1).DataBodyRange
With CreateObject("scripting.dictionary")
For j = 1 To UBound(sp)
.Item(sp(j, 1)) = Array(sp(j, 12), sp(j, 13), sp(j, 14), sp(j, 15), sp(j, 16))
Next
For j = 1 To UBound(sn)
sn(j, 12) = .Item(sn(j, 1))(0)
sn(j, 13) = .Item(sn(j, 1))(1)
sn(j, 14) = .Item(sn(j, 1))(2)
sn(j, 15) = .Item(sn(j, 1))(3)
sn(j, 16) = .Item(sn(j, 1))(4)
Next
End With
Sheets("Depot").ListObjects(1).DataBodyRange = sn
End Sub
Hier werden Daten von Sheet "Ergebnisse" nach Sheet "Depot" kopiert,- wenn in 1ter Spalte der Eintrag identisch ist.Klappt
Meine Frage:
Wenn ich den zu kopierenden Bereich auf sp 12 bis sp 50 erweitern möchte, muss ich dann
.Item(sp(j, 1)) = Array(sp(j, 12), sp(j, 13), sp(j, 14), sp(j, 15), sp(j, 16))
entsprechend ergänzenOder geht es auch kürzer?
Gruss
Fred