Listbox wert in Zelle schreiben, den 1 und 2ten
05.01.2008 16:45:42
Fredd
Ich habe in einer UF eine ListBox, in der ich den Inhalt aus 2 Zeilen anzeige .
Bei Doppel klick darauf wird der angewählte bereich in eine vorgeschriebene Zelle geschrieben.. Aber leider nur der erste bereich. Der zweite wird nicht mit übernommen.
Also Es wird der Bereich A3 bis B15 in der Listbox angezeigt, aber nur A1 z.B wird in die Zelle geschrieben.
Giebt es eine möglichkeit den dazugehörenden Bereich B1 auch in eine Zelle zu schreiben.
Mit diesem Code schreibe ich den Wert in die richtige Zelle.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 0
Cells(iRow, 4).Value = ListBox1.Text
Me.Hide
Unload Me
End Sub
wenn es möglich ist, würde ich gerne den 2ten Wert 3 Zellen daneben reingeschrieben haben.
Ist das Möglich.
Anzeige