Listbox füllen, Zeile mit Variablen
30.01.2010 07:25:16
Judith
Hallo,
leider muss ich Euch auch wegen einer wahrscheinlich simplen Sache mit einer Listbox quälen. Aber ich schaffs einfach nicht.
Bei Klick auf eine beliebige Zelle in der Spalte B öffnet sich ein Userform. Die gesamte Zeile (A:K) soll dann in die Listbox eingelesen werden.
Ich benutze die Variable lngAktuelleZeile um die Zeile festzustellen und versuche dann, über RowSource mit der Cells Eigenschaft die Zeile einzulesen. Und genau da hapert es. Liegt es vielleicht an der Syntax?
Mein Code
Sub lbo_Tageseintrag_füllen()
Dim lngAktuelleZeile As Long
lngAktuelleZeile = ActiveCell.Row
With usf_Journal.lbo_Tageseintrag
.ColumnCount = 11
.ColumnWidths = "1cm;1cm;1cm;3cm;3cm;3cm;1cm;3cm;3cm;1cm;1cm"
'hier kommt wahscheinlich das Problem
.RowSource = Cells(lngAktuelleZeile, 1) , (Cells(lngAktuelleZeile, 11))
End With
End Sub
Ich bin für jeden Tipp echt dankbar, leider bin ich nicht so die Leuchte....
Viele Grüße
Judith