Dim iIndex As Integer
 
Bereich1 = Range("A3", Range("A3").End(xlDown)).Address
For Each Auswahl1 In Range(Bereich1)
  If Auswahl1.Text <> "" Then
    With ListView_Buchung
      Set itemX = .ListItems.Add(, , Auswahl1)
    End With
  End If
Next
 
Bereich2 = Range("B3", Range("B3").End(xlDown)).Address
MsgBox Bereich2
 
iIndex = 1
For Each Auswahl2 In Range(Bereich2)
  If Auswahl1.Text <> "" Then
    With ListView_Buchung
      .ListItems(iIndex).SubItems(1) = Auswahl2
      iIndex = iIndex + 1
    End With
  End If
Next
 
Bereich3 = Range("C3", Range("C3").End(xlDown)).Address
MsgBox Bereich3
 
iIndex = 1
For Each Auswahl3 In Range(Bereich3)
  If Auswahl1.Text <> "" Then
    With ListView_Buchung
      .ListItems(iIndex).SubItems(2) = Auswahl3
      iIndex = iIndex + 1
    End With
  End If
Next