ich habe eine Frage, wie kann ich zu einer ZElle weitere Werte hinzufügen?
Mei Ansatz war:
Private Sub CommandButton_addalternite_Click()
Dim last As Long
last = NewProduct.ComboBox_AddalterniTe.Value
If NewProduct.ComboBox_AddalterniTe.Value = True Then
If ActiveSheet.Cells(last, 17).Value = True Then
ActiveSheet.Cells(last, 17).Value = ActiveSheet.Cells(last, 18).Value & "," & last
Else
ActiveSheet.Cells(last, 17).Value = last
End If
End If
End Sub
Zur Erklärung NewProduct.ComboBox_AddalterniTe.Value ist eine Zeilenangabe. Ich möchte in die Zelle ActiveSheet.Cells(last, 17) diese Zeilenangabe hineinschreiben. Allerdings, wenn da schon etwas drin steht, soll die Angabe mit ",last" ergänzt werden. Sollte der Wert "last" schon in der Zeile enthalten sein, soll nichts passieren.Ich bitte um Hilfe, Vielen Dank für die Mühe!
Grüße
Freddy