ErgebnisDateiname = Dateiname & "_projektPM.mdb"
a = 0
ReDim DateiSuchenErgebnis(0)
 
For Ergebnis = 0 To UBound(DateiSuchen)
b = InStrRev(DateiSuchen(Ergebnis), "\")
datei = Mid(DateiSuchen(Ergebnis), b + 1)
    If ErgebnisDateiname = datei Then
        DateiSuchenErgebnis(a) = DateiSuchen(Ergebnis)
        a = a + 1
        ReDim Preserve DateiSuchenErgebnis(UBound(DateiSuchenErgebnis) + 1)
    End If
Next
 
If a = 1 Then
    Wertedatei = DateiSuchenErgebnis(0)
    Unload Me
    Call Abspeichern
    Call Load
ElseIf a > 1 Then
    frmErgebnis.Show vbModeless, frmhaupt
ElseIf a < 1 Then
    MsgBox LoadResString(147 + Res), vbInformation
    ReDim DateiSuchenErgebnis(0)
End If