Wo bekomme ich antworten über Excel und VB6?
In den Forums von VB möchten die Leute nichts mit Excel zu tun haben.
Darum versuche ich es immer wieder hier im Forum.
Wo ich doch hin und wieder sehr gute Tipps und Anregungen bekomme.
Danke dafür.
Ich lese und schreibe über eine ListBox in einer Zeile .
Meine frage wie schaffe ich es dass die leeren Cellen nicht mit eingelesen werden.
Den wen ich der ListBox einen Text übergebe landet der Text immer an letzter stelle.
Soweit gut wen nicht dazwischen noch leere reihen wären.
Einlesen:
Private Sub List2_DblClick()
Dim Li%
Dim i As Integer
Li = List2.ListIndex + 4
With Excel.cells With Excel.cells
Form2. List1.Clear
Form2.List2.Clear
Form2.List3.Clear
Form2.List4.Clear
Form2.List5.Clear
For i = 23 To 50 Step 5
Form2. List1.AddItem .cells(Li, i)
Form2.List2.AddItem .cells(Li, i + 1)
Form2.List3.AddItem .cells(Li, i + 2)
Form2.List4.AddItem .cells(Li, i + 3)
Form2.List5.AddItem .cells(Li, i + 4)
Next
End With
Form2.Visible = True
End Sub
Schreiben:
Dim F As Integer
Dim x As Integer
Dim Li%
Li = Form1.List2.ListIndex + 4
For x = 23 To 50 Step 5
For F = 0 To lstItems.Container - 1
Excel.cells(Li, x).Value = lstItems.List(F)
Excel.cells(Li, x + 1).Value = List2.List(F)
Excel.cells(Li, x + 2).Value = List3.List(F)
Excel.cells(Li, x + 3).Value = List4.List(F)
Excel.cells(Li, x + 4).Value = List5.List(F)
Next
Danke