With ListView1
  For Index = 1 To MaxAnzahl
    Set itemX = .ListItems.Add(, , DatIndex(Index))
    itemX.SubItems(1) = DatumFällig(Index)
    ...
    <font color=green>' Sicherstellen, dass Eintrag selektiert und sofort 
    ' sichtbar ist</font>
    Set .SelectedItem = itemX
    .SelectedItem.EnsureVisible
  Next
End With

For Index = 1 To MaxAnzahl Step 1
  If DatumFällig(Index) = Date(Now, "mm") Then
    <font color=green>' setze die Zeile in die Mitte der ListView1 und markiere 
    ' sie</font>
    SetItemCenter Index
    Exit For
  End If
Next
 
<font color=green>' und hier die Hilfsprozedur</font>
Private Sub SetItemCenter(ByVal Index As Integer)
  Dim botIndex As Integer
  Dim topIndex As Integer
 
  topIndex = Index - Int((MaxVisible - 1) / 2)
  botIndex = Index + Int((MaxVisible - 1) / 2) - 1
 
  If topIndex < 1 Then topIndex = 1
  If botIndex > MaxAnzahl Then botIndex = MaxAnzahl
 
  With ListView1
    <font color=green>' zunächst oberstes Element sichbar machen</font>
    .SelectedItem = .ListItems(topIndex)
    .SelectedItem.EnsureVisible
 
    <font color=green>' dann das unterstes Element sichtbar machen</font>
    .SelectedItem = .ListItems(botIndex)
    .SelectedItem.EnsureVisible
 
    <font color=green>' jetzt gewünschtes Element markieren</font>
    .SelectedItem = .ListItems(Index)
  End With
End Sub

Const MaxVisible = 11