1.
ist es möglich, das 2 Listboxen in einer Userform in ihren Werten voneinander abhängen?
Ich habe 2 Listboxen, die erste wird beim Aktivieren mit Werten (definierten Namen) gefüllt. Nun wär es optimal, wenn der Nutzer durch anklicken eines Wertes ihn quasi in die andere ListBox befördern könnte. Also er verschwindet aus lstbox 1 und erscheint in lstbox 2 (den eventuellen Rücktransfer falls sich jmd. verklickt hat sollte ich dann selber hinbekommen)
Listbox2 soll so nacheinander mit mehreren Werten "füllbar" sein.
Bei Herber.de hab ich folgenden Code gefunden
Private Sub lstA_Click()
Dim iRow As Integer
iRow = 2
lstB.Clear
Do Until IsEmpty(Cells(iRow, 1))
lstB.AddItem Cells(iRow, lstA.ListIndex + 1)
iRow = iRow + 1
Loop
End Sub
Private Sub UserForm_Initialize()
lstA.Column = Range("A1").CurrentRegion.Rows(1).Value
End Sub
Wenn ich ihn so bei mir einfüge (Namen natürlich angepasst), bekomme ich beim Start nur 2 leere Listboxen. Lasse ich die Zeile bei Initialize weg, habe ich zwar wieder meine Werte, aber auch keine Funktion.
2.
Wie leite ich die Werte (definierte Namen) dann aus Listbox2 an einen Drucker weiter? In der bisherigen Form (Werte über Inputbox), habe ich es so gemacht:
ActiveSheet.PageSetup.PrintArea = Druckauftrag
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, Preview:=True
Und ist es möglich in dem Makro auch festzlegen, das Excel den Bereich 2 "definierter Namen" auf eine Seite druckt? Ich werde da auch aus den Makros hier aus dem Archiv nicht wirklich schlau.
Zu guter letzt noch eine kleine Wissensfrage, besteht ein Unterschied zwischen Userform_activate und Userform_Initialize?
Ich hoffe das ganze ist nicht zu komplex, und es is OK das ich die 2 Fragen in einen Thread gepackt habe, kann sie sonst der Übersicht halber auch gerne splitten.
Vielen Dank schonmal für eure Überlegungen, einen schönen Vormittag und freundliche Grüße,
Florian