Public Sub fEinsForm(Datum As Date)
Dim tempcol As colEinsätze
Dim tempForm As frmEinsatz
Set tempForm = New frmEinsatz
 
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
                              Set tempcol = fEinsatzWeitere(Datum)
                    End Select
 
 
          End Select
     Case "Ausgabe"
           Set tempcol = fEinsatzVorhanden(Datum)
 
 
End Select
Dim i As Integer
ReDim EinsForm(tempcol.count)
 
For i = 1 To tempcol.count
 
 
With tempForm
     .EinsNr = tempcol.item(i).EinsNr
     .Formmodus = tempcol.item(i).Formmodus
     .Top = 0
     .Width = 2250
     .Height = LEForm.Height
     .Caption = "Einsatz: " & .EinsNr
 If .EinsNr = 1 Then
     .Left = LEForm.Width + TagForm.Width
Else
     .Left = LEForm.Width + TagForm.Width + (.EinsNr - 1) * .Width
End If
 
     .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
 
Set EinsForm(i) = tempForm
Next
Set tempcol = Nothing
End Sub