<font color=green>' ListView 1:1 kopieren</font>
Private Sub CopyListView(lvwQuelle As ListView, _
  lvwZiel As ListView)
 
  <font color=green>' Ziel-ListView löschen</font>
  lvwZiel.ColumnHeaders.Clear
  lvwZiel.ListItems.Clear
 
  With lvwQuelle
    <font color=green>' zunächst Spalten kopieren</font>
    Dim oColumn As ColumnHeader
    For Each oColumn In .ColumnHeaders
      With oColumn
        lvwZiel.ColumnHeaders.Add , .Key, .Text, _
          .Width, .Alignment, .Icon
      End With
    Next
 
    <font color=green>' jetzt Inhalt kopieren</font>
    Dim itemX As ListItem
    Dim oItem As ListItem
    Dim i As Integer
 
    For Each oItem In .ListItems
      With oItem
        Set itemX = lvwZiel.ListItems.Add(, .Key, .Text, .Icon, .SmallIcon)
        For i = 1 To lvwQuelle.ColumnHeaders.Count - 1
          itemX.SubItems(i) = .SubItems(i)
        Next i
      End With
    Next
  End With
End Sub

CopyListView ListView1, ListView2
CopyListView ListView1, ListView3
CopyListView ListView1, ListView4