Ich lasse Werte aus einer Listbox in eine Tabelle übertragen. Danach sind aber in den Ziel-Zellen die Zahlenformate kaputt. Und zwar so, dass für diese Zellen kein Format mehr angegeben werden kann.
Wie kann ich die Werte aus der Lisbox so übertragen, dass nur Werte übergeben werden. (ohne Formate)
Nachfolgender Code überträgt die Einträge in eine Tabelle
Private Sub cmdEintragen_Click()
Dim iRow As Integer, iRowL As Integer, rng As Range
Set rng = ActiveCell.CurrentRegion.Rows(ActiveCell.Row)
iRowL = ActiveCell.Row
For iRow = 0 To lstKorb.ListCount - 1
Cells(iRowL + iRow, 5) = lstKorb.List(iRow, 0)
Cells(iRowL + iRow, 6) = lstKorb.List(iRow, 1)
Cells(iRowL + iRow, 8) = lstKorb.List(iRow, 2)
Cells(iRowL + iRow, 7) = lstKorb.List(iRow, 3)
Cells(iRowL + iRow, 9) = lstKorb.List(iRow, 4)
Next iRow
lstKorb.Clear
Unload Me
End Sub
Vielleicht kann mir jemand sagen welches Zauberwörtchen ich dazu noch benötige.
Danke
Gruß Kersten