' Benötigte API-Deklarationen
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As _
  Long) As Long
 
Private Const SM_CXVSCROLL = 2

'Listview
Private Sub lvwSetMaxWidth(oListView As ListView, ByVal nColumn As Integer, _
  Optional ByVal bScrollBar As Boolean = True)
 
' Breite des vertikalen Scrollbalken
Dim nVScrollWidth As Long
    If bScrollBar Then
        nVScrollWidth = GetSystemMetrics(SM_CXVSCROLL) * _
        Screen.TwipsPerPixelX
    End If
 
' max. zur Verfügung stehende Breite für Spalte
' "nColumn" berechnen
Dim nWidth As Long
Dim nColWidth As Long
Dim oColumn As ColumnHeader
 
    With oListView
        For Each oColumn In .ColumnHeaders
            If oColumn.Index <> nColumn Then
                nWidth = nWidth + oColumn.Width
            End If
        Next
 
        nColWidth = .Width - nWidth - nVScrollWidth - 60
 
        ' Spaltenbreite für "nColumn" anpassen
        If nColWidth > 0 Then
            .ColumnHeaders(nColumn).Width = nColWidth
        Else
            .ColumnHeaders(nColumn).Width = 0
        End If
    End With
End Sub
'Listview

' ListView-Spalten festlegen
  With lvwAuswahl.ColumnHeaders
    .Add , , "Name, Vorname"
  End With
 
  lvwSetMaxWidth lvwAuswahl, 1