Public Sub psNeuenEintrag(lvName As ListView, strSpalte1Wert As String, _
  Optional strSpalte2Wert As String)
If strSpalte2Wert = "" Then
  lvName.ListIndex.Add , , strSpalte1Wert
Else
  lvName.ListIndex.Add , , strSpalte1Wert & in die 2 Spalte den Wert in _
    strSpalte2Wert
End If
End Sub
 
 
Public Sub psEintragBearbeiten(lvName As ListView, strSpalte1Wert As String, _
  lngIndex As Long)
  ' Hier habe ich überhaupt keinen Plan ;(
End Sub