Angewählter Artikel in der Listbox wird in die nächste freie Zeile in Spalte 2 eingefügt. In Spalte 11 wird der Preis des Artikel per Sverweis ausgegeben
Besteht die Möglichkeit, wenn eine Checkbox1 aktiviert wird, das der Sverweis in dieser Zeile geändert wird und anstelle auf Spalte 4 auf Spalte 6 zugreift?
Also etwa 'If CheckBox1.Value = True Then ändere Wert der entsprechenden Spalte von 4 auf 6 in der Formel
Nachfolgend mein Code und der Sverweis
Private Sub ListBox1_Click() ' Einfügen nächste freie Zelle in definiertem Bereich
Dim ze, sp
ze = 24
sp = 2
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
While Cells(ze, sp) ""
ze = ze + 1
Wend
Cells(ze, sp) = ListBox1.List(i)
End If
Next i
End Sub
=WENN(ISTNV(SVERWEIS(B24;'Material 2020.xlsm'!Daten;4;FALSCH));0;SVERWEIS(B24;'Material 2020.xlsm'!Daten;4;FALSCH))
Falls das möglich ist bin ich dankbar für Hilfe, für mich ist die Nummer zu gross