Private Sub btnAngDrucken_Click()
    If SuchNr = 0 Then
       MsgBox "Wählen Sie bitte zuerst ein Angebot aus"
       Exit Sub
    End If
    FileClose
    AngebotDrucken.Show vbModal
    Set AngebotDrucken = Nothing
    sevTabStrip1.ActiveTab = 28
End Sub