Mehrspaltiges Listenfeld aus anderem Tabellenblatt
31.03.2004 12:56:39
Maik
ich möchte nochmal um Eure Hilfe bitten.
Ich hadere mit einem Listenfeld im Tabellenblatt1, indem ich die Einträge der Spalten A bis F aus dem Tabellenblatt2 zeilenweise auflisten möchte. Zusätzliches Problem ist, dass sich die Spalten A bis F in Ihrer Höhe verändern können. Derzeit versuche ist es erfolglos mit diesem Code.
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Worksheets("Tabelle2")
ListBox1.ListFillRange = .Range(.Cells(2, 1), .Cells(.Cells(65536, 2).End(xlUp).Row, 6)).Address(External:=True)
End With
'Cells(1, 22) = Listbox1.Value
End Sub
Grüße
Maik