// Saldo bestimmen
      if not FDTableJournal6.Active then
        FDTableJournal6.Active := True;
      FDTableJournal6.Filter := 'zeitpunkt > ' + QuotedStr(DateTimeToStr(ZeitraumVon)) + ' and ' +
                                'zeitpunkt <= ' + QuotedStr(DateTimeToStr(ZeitraumBis)) + '';
      FDTableJournal6.Filtered := True;
      FDTableJournal6.Refresh;
      FDTableJournal6.First;
      //Button_zurück.Text := IntToStr(FDTableJournal6.RecordCount);
      while not FDTableJournal6.Eof do begin
        Saldo := Saldo + FDTableJournal6.FieldByName('preisgesamt'). AsFloat;
        FDTableJournal6.Next;
      end;