Hallo zusammen,
ich haben ein Problem mit dem Einfügen aus einer Listbox unter verbundenen Zeilen.
Aus meiner Listbox werden in der letzten freien Zeile in Spalte "C" und "D" Werte eingefügt.
Private Sub ListBox1_Click()
Dim i As Integer
Dim a As Long
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Sheets("Tabelle1").Cells(Rows.Count, "C").End(xlUp).Offset(2) = .List(i, 1)
Sheets("Tabelle1").Cells(Rows.Count, "D").End(xlUp).Offset(2) = .List(i, 2)
End If
Next
End With
Ab und an muss Zeile "C" bis "F" verbunden werden, jetzt wird nur noch Zeile "C" aus der Listbox eingefügt, Zeile "D" nicht mehr (die letzte "ausgefüllte Zelle" wird sicher nimmer gefunden)
Kann man Zeile Spalte "D" auch irgendwie unter einer verbundenen Zeile einfügen?
Danke im Voraus!
Martin