'löscht die Spalte, die dem gesuchten Wert entspricht!
Public Function pF_lvwDelCol(LView As Object, _
                    ByVal search4Key As String, _
                    Optional ByVal toDel As Boolean) As Boolean
Dim lValue As Variant
 
For Each lValue In LView.ColumnHeaders
    ' überprüfe zunächst ob die Spalte **KEY** existiert!
    If lValue.Key = search4Key Then
        ' diese Spalte löschen, wenn der Löschauftrag True ist
        If toDel = True Then
        '------------------------------------------------------
        ' ????????????????
        '------------------------------------------------------
        LView.ColumnHeaders.Remove (lValue.Index)
            pF_lvwDelCol = True ' Rückgabe = True, wenn löschung erfolgreich
        End If
        Exit For
    End If
Next
    LView.Refresh  'Refresh das LIstView
End Function

' fügt eine bestimmte Spalte hinzu
Public Function pF_lvwADDCol(LView As Object, _
                    ByVal search4Key As String, _
                    ByVal toAdd As Boolean, ByVal strColHead As String, _
                    ByVal lWidth As Long) As Boolean
Dim lValue As Variant
Dim colExists As Boolean
For Each lValue In LView.ColumnHeaders
    ' prüft ob die Spalte **KEY** existiert
    If lValue.Key = search4Key Then
        colExists = True    ' upps diese gibt es schon!
        Exit For
    End If
Next
 
' nur wenn die Spalte nicht existiert, wird diese mit
' Key, Spaltenüberschrift und Spaltenbreite hinzugefügt!
If colExists = False Then
    If toAdd = True Then LView.ColumnHeaders.Add , search4Key, strColHead, _
      lWidth
    pF_lvwADDCol = True ' Rückgabe = True, wenn erfolgreich hinzugefügt
End If
 
    LView.Refresh  'Refresh das LIstView
End Function