Hallo zusammen,
ich bräuchte die Hilfe eines erfahrenen VBA'lers :P, bin neu auf dem Gebiet.
Ich möchte gerne in einer Liste mehrere Werte (Städte, die es zu beliefern gibt) auswählen( Habe ich hin bekommen), anschließend klickt man dann auf einen Button, der dann in einem Tabellenblatt einen Wert setzt ( liefern).
Wie bekomme ich das geschickt hin? Habe schon einen Ansatz, leider klappt es nicht..
Wäre dankbar um jede HIlfe.
Dim intIndex As Integer
For intIndex = 0 To ListBox1.ListCount - 1
' wenn das Item ausgewählt wurde...
If ListBox1.Selected(intIndex) = True Then
'dann setze in dem Tabellenblatt Kunde an einer bestimmten Stelle den Wert Liefern , bei jedem Wert ist diese Stelle, wo der Wert "Liefern" stehen soll wo anders
Set Sheets("Kunden").Cells(6, intIndex) = "Liefern"
Next
' Falls ein Wert nicht ausgewählt wurde soll "Nicht Liefern " in dem Tabellenblatt neben der Stadt erscheinen
|