ich möchte gerne über einen Bereich die verschiedenen Werte in ein Object ablegen. Mein Code bringt eine Fehlermeldung, sobald ein Wert das zweite Mal gefunden wird.
Was muss ich ändern?
Sub RowSumIf()
Dim lc, lz, x, Spalte As Integer
Dim scr
lz = Worksheets("Einkaufsliste_Lager").Cells(2, 1).End(xlDown).Row
lc = LastColumn(2)
Spalte = 4
Set scr = CreateObject("Scripting.Dictionary")
With Worksheets("Einkaufsliste_Lager")
For Spalte = 4 To lc - 1 Step 3
For x = 2 To lz - 1
If Cells(x, Spalte) "" Then
scr.Add .Cells(x, Spalte).Value, .Cells(x, Spalte).Value
End If
Next x
Next Spalte
End With
End Sub