Adresse mit Cells weiter verarbeiten

Dim rngBereich As Range
Dim rngLetzte As Long
Dim ws As Worksheet
With ListBox1
.AddItem rngBereich.Offset(, -4).Text
.List(.ListCount - 1, 1) = rngBereich.Offset(, -3).Text
.List(.ListCount - 1, 2) = rngBereich.Offset(, -2).Text
.List(.ListCount - 1, 3) = rngBereich.Offset(, -1).Text
.List(.ListCount - 1, 4) = rngBereich.Offset(, 1).Text
.List(.ListCount - 1, 5) = rngBereich.Offset(, 2).Text
.List(.ListCount - 1, 6) = rngBereich.Text
.List(.ListCount - 1, 7) = rngBereich.Address
End With

Private Sub CommandButton2_Click()
Dim i As Long
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
MsgBox .List(i, 7)
End If
Next
End With
End Sub