Hallo,
ich habe 2 Tabellenblätter, Kunden (hier wird über eine Userform Kundendaten eingeben) das zweite Tabellenblatt soll den Auftrag darstellen.
ich suche grade nach einer Lösung für ein 2 Probleme
ich möchte über eine Combobox auf einer Userform nach der Firma suchen und dann nach Auswahl einige daten vom Tabellenblatt Kunden an das Tabellenblatt Aufträge übergeben.
das zweite Problem ist ich habe mehrere Listboxen nach auswahl übergebe ich das an tabellenblatt Auftrag.Klappt soweit aber es werden nicht immer alle Einträge ausgewählt ich so soll dann per klick alle ausgewählten einträge untereinander geschrieben werden.
With Worksheets("Auftrag")
.Range("A15:A25").ClearContents
a = 18
For i = 1 To ListBox1.ListCount
If ListBox1.Selected(i - 1) Then
a = a + 1
.Range("A" & a) = ListBox1.List(i - 1)
End If
Next i
End With
Habt ihr eventuell ideen wie ich das lösen kann ?
Danke.
Beste Grüße
|