vba, Kriterium
30.05.2023 13:56:47
Fred
Hallo Excel Profis,
kurze Frage;
Mit dem Makro:
Sub a_3_Reperatur()
sn = Sheets("Import").ListObjects(1).DataBodyRange
sp = Sheets("Reperatur").ListObjects(1).DataBodyRange
With CreateObject("scripting.dictionary")
For j = 1 To UBound(sp)
.Item(sp(j, 1)) = Array(sp(j, 5), sp(j, 6)) ' die SpaltenNr, welche Daten übertragen werden sollen, von Reperatur
Next
For j = 1 To UBound(sn)
If .Exists(sn(j, 1)) Then
sn(j, 9) = .Item(sn(j, 1))(0)
sn(j, 10) = .Item(sn(j, 1))(1)
End If
Next
End With
Sheets("Import").ListObjects(1).DataBodyRange = sn
End Sub
trage übertrage ich an gewünschte Stelle Daten.
Das Kriterium: ist in diesen Fall ".Item(sp(j, 1)) =....."
Meine Frage:
Wie schreibe ich das Kriterium, wenn nicht nur der 1. Spaltenwert der Tabelle, sondern die ersten 10 Spaltenwerte gewünscht sind?
Gruss
Fred
Anzeige