fra listbox til regneark

Obs! Jeg har taget udgangspunkt i, at værdierne skal starte i den aktive celle. Den skal derfor rettes, hvis ikke det er korrekt. Jeg har ikke lavet kode til alle 7 værdier (kun til de første par stykker), men idéen er den samme, så det er bare copy/paste og lige rette til :-)

******************

    Dim objRange As Range
    Dim i As Integer
   
    Set objRange = ActiveCell
   
    For i = 0 To Me.lstBox.ListCount - 1
        If Me.lstBox.Selected(i) = True Then
            With Me.lstBox
                objRange.Value = .List(i)
                objRange.Offset(, 1).Value = .List(i, 1)
                objRange.Offset(, 2).Value = .List(i, 2)
                objRange.Offset(, 3).Value = .List(i, 3)
                Set objRange = objRange.Offset(1)
            End With
        End If
    Next i

***************

Worked like a charm!

Super. Så smider jeg et svar :-)

Takker. Lukket. Ny åben ;)