Public Sub fEinsForm(datum As Date)
Dim tempcol As colEinsätze
Dim tempForm As frmEinsatz
Set tempForm = New frmEinsatz
Dim i As Integer
tempForm.datum = datum
Select Case PrgStatus
     Case "Eingabe"
          Select Case fDSvorhEinsatzPrüfen(datum)
               Case False
                    Set tempcol = fEinsatzNeu(datum)
 
               Case True
                    Select Case weitere
                         Case False
                              Set tempcol = fEinsatzVorhanden(datum)
                         Case True
                              weitere = False
                              Set tempcol = fEinsatzWeitere(datum)
                    End Select
          End Select
     Case "Ausgabe"
          If fDSvorhEinsatzPrüfen(datum) = True Then
               Set tempcol = fEinsatzVorhanden(datum)
          Else
               Exit Sub
          End If
 
End Select
 
ReDim EinsForm(tempcol.count)
For i = 1 To tempcol.count
Set EinsForm(i) = New frmEinsatz
 
With EinsForm(i)
     .EinsNr = tempcol.item(i).EinsNr
     .Formmodus = tempcol.item(i).Formmodus
     .datum = tempcol.item(i).datum
     .txtvon.Text = tempcol.item(i).EinsAnfang
     .txtbis.Text = tempcol.item(i).EinsEnde
     .txtEinsatzStd.Text = tempcol.item(i).EinsStd
 
End With
Next
 
End Sub