diff --git a/Elwig/Services/DeliveryAncmtService.cs b/Elwig/Services/DeliveryAncmtService.cs
index ab010e8..e9ada63 100644
--- a/Elwig/Services/DeliveryAncmtService.cs
+++ b/Elwig/Services/DeliveryAncmtService.cs
@@ -318,18 +318,13 @@ namespace Elwig.Services {
                 AddToolTipCell(grid, $"{weight * 100.0 / total2:N1} %", row, 4, 1, bold, true);
         }
 
-        public static async Task<(string, Grid)> GenerateToolTip(IQueryable<DeliveryAncmt> deliveryAncmts) {
-            var grid = new Grid();
-            grid.ColumnDefinitions.Add(new() { Width = new(10) });
-            grid.ColumnDefinitions.Add(new() { Width = new(60) });
-            grid.ColumnDefinitions.Add(new() { Width = new(80) });
-            grid.ColumnDefinitions.Add(new() { Width = new(50) });
-            grid.ColumnDefinitions.Add(new() { Width = new(50) });
+        public static async Task<(string Text, (string?, string?, int, int?, int)[] Grid)> GenerateToolTipData(IQueryable<DeliveryAncmt> deliveryAncmts) {
+            var grid = new List<(string?, string?, int, int?, int)>();
             var text = "-";
 
             var weight = await deliveryAncmts.SumAsync(p => p.Weight);
             text = $"{weight:N0} kg";
-            AddToolTipRow(grid, 0, "Menge", null, weight, null, weight);
+            grid.Add(("Menge", null, weight, null, weight));
 
             if (await deliveryAncmts.AnyAsync()) {
                 var attrGroups = await deliveryAncmts
@@ -370,13 +365,11 @@ namespace Elwig.Services {
                     .ThenBy(g => g.SortId)
                     .ToListAsync();
 
-                int rowNum = 1;
                 foreach (var attrG in attrGroups) {
-                    rowNum++;
                     var name = attrG.Attr == null && attrG.Cult == null ? null : attrG.Attr + (attrG.Attr != null && attrG.Cult != null ? " / " : "") + attrG.Cult;
-                    AddToolTipRow(grid, rowNum++, name, null, attrG.Weight, attrG.Weight, weight);
+                    grid.Add((name, null, attrG.Weight, attrG.Weight, weight));
                     foreach (var g in groups.Where(g => g.Attr == attrG.Attr && g.Cult == attrG.Cult).OrderByDescending(g => g.Weight).ThenBy(g => g.SortId)) {
-                        AddToolTipRow(grid, rowNum++, null, g.SortId, g.Weight, attrG.Weight, weight);
+                        grid.Add((null, g.SortId, g.Weight, attrG.Weight, weight));
                     }
                 }
 
@@ -395,7 +388,22 @@ namespace Elwig.Services {
                 }
             }
 
-            return (text, grid);
+            return (text, grid.ToArray());
+        }
+
+        public static Grid GenerateToolTip((string?, string?, int, int?, int)[] data) {
+            var grid = new Grid();
+            grid.ColumnDefinitions.Add(new() { Width = new(10) });
+            grid.ColumnDefinitions.Add(new() { Width = new(60) });
+            grid.ColumnDefinitions.Add(new() { Width = new(80) });
+            grid.ColumnDefinitions.Add(new() { Width = new(50) });
+            grid.ColumnDefinitions.Add(new() { Width = new(50) });
+            int rowNum = 0;
+            foreach (var row in data) {
+                if (rowNum != 0 && row.Item2 == null) rowNum++;
+                AddToolTipRow(grid, rowNum++, row.Item1, row.Item2, row.Item3, row.Item4, row.Item5);
+            }
+            return grid;
         }
     }
 }
diff --git a/Elwig/Windows/AreaComAdminWindow.xaml b/Elwig/Windows/AreaComAdminWindow.xaml
index 9970170..de9caa1 100644
--- a/Elwig/Windows/AreaComAdminWindow.xaml
+++ b/Elwig/Windows/AreaComAdminWindow.xaml
@@ -7,8 +7,7 @@
         xmlns:local="clr-namespace:Elwig.Windows"
         xmlns:ctrl="clr-namespace:Elwig.Controls"
         xmlns:vm="clr-namespace:Elwig.ViewModels"
-        Title="{Binding Title}" Height="600" MinHeight="450" Width="1000" MinWidth="860"
-        Loaded="Window_Loaded">
+        Title="{Binding Title}" Height="600" MinHeight="450" Width="1000" MinWidth="860">
     <Window.DataContext>
         <vm:AreaComAdminViewModel/>
     </Window.DataContext>
diff --git a/Elwig/Windows/AreaComAdminWindow.xaml.cs b/Elwig/Windows/AreaComAdminWindow.xaml.cs
index 8c2d16d..3ff0ddf 100644
--- a/Elwig/Windows/AreaComAdminWindow.xaml.cs
+++ b/Elwig/Windows/AreaComAdminWindow.xaml.cs
@@ -37,10 +37,10 @@ namespace Elwig.Windows {
             ControlUtils.InitializeDelayTimer(SearchInput, SearchInput_TextChanged);
             SearchInput.TextChanged -= SearchInput_TextChanged;
             ActiveAreaCommitmentInput.Content = ((string)ActiveAreaCommitmentInput.Content).Replace("2020", $"{Utils.CurrentLastSeason}");
+            ActiveAreaCommitmentInput.IsChecked = true;
         }
 
-        private void Window_Loaded(object sender, RoutedEventArgs e) {
-            ActiveAreaCommitmentInput.IsChecked = true;
+        protected override async Task OnInit(AppDbContext ctx) {
             LockInputs();
         }
 
@@ -52,35 +52,47 @@ namespace Elwig.Windows {
         }
 
         private async Task RefreshList(bool updateSort = false) {
-            using var ctx = new AppDbContext();
-            var (_, areaComQuery, filter) = await ViewModel.GetFilters(ctx);
-            var areaComs = await areaComQuery
-                .Include(a => a.Kg.AtKg)
-                .Include(a => a.Rd!.Kg.AtKg)
-                .Include(a => a.WineCult)
-                .Include(a => a.AreaComType.WineAttr)
-                .Include(a => a.AreaComType.WineVar)
-                .ToListAsync();
+            var vm = ViewModel;
+            var cursor = Mouse.OverrideCursor != null;
+            if (!cursor) Mouse.OverrideCursor = Cursors.Wait;
+            var query = (vm.SearchQuery, vm.ShowOnlyActiveAreaComs);
+            var (filter, areaComs, areaComCount, stat) = await Task.Run(async () => {
+                using var ctx = new AppDbContext();
+                var (_, areaComQuery, filter) = await vm.GetFilters(ctx);
+                var areaComs = await areaComQuery
+                    .Include(a => a.Kg.AtKg)
+                    .Include(a => a.Rd!.Kg.AtKg)
+                    .Include(a => a.WineCult)
+                    .Include(a => a.AreaComType.WineAttr)
+                    .Include(a => a.AreaComType.WineVar)
+                    .ToListAsync();
 
-            if (filter.Count > 0 && areaComs.Count > 0) {
-                var dict = areaComs.AsParallel()
-                    .ToDictionary(d => d, d => d.SearchScore(ViewModel.TextFilter))
-                    .OrderByDescending(c => c.Value);
-                var threshold = dict.Select(a => a.Value).Max() * 3 / 4;
-                areaComs = dict
-                    .Where(a => a.Value > threshold)
-                    .Select(a => a.Key)
-                    .ToList();
-            }
+                if (filter.Count > 0 && areaComs.Count > 0) {
+                    var dict = areaComs.AsParallel()
+                        .ToDictionary(d => d, d => d.SearchScore(vm.TextFilter))
+                        .OrderByDescending(c => c.Value);
+                    var threshold = dict.Max(a => a.Value) * 3 / 4;
+                    areaComs = [.. dict
+                        .Where(a => a.Value > threshold)
+                        .Select(a => a.Key)];
+                }
+
+                var areaComCount = await areaComQuery.CountAsync();
+                var season = await ctx.Seasons.FindAsync(await ctx.Seasons.MaxAsync(s => s.Year));
+                var stat = await AreaComService.GenerateToolTipData(areaComQuery, season?.MaxKgPerHa ?? 10_000);
+
+                return (filter, areaComs, areaComCount, stat);
+            });
+            if (!cursor) Mouse.OverrideCursor = null;
+            if (query != (ViewModel.SearchQuery, ViewModel.ShowOnlyActiveAreaComs)) return;
 
             ControlUtils.RenewItemsSource(AreaCommitmentList, areaComs,
-                AreaCommitmentList_SelectionChanged, filter.Count > 0 ? ControlUtils.RenewSourceDefault.IfOnly : ControlUtils.RenewSourceDefault.None, !updateSort);
+                AreaCommitmentList_SelectionChanged, ViewModel.TextFilter.Count > 0 ? ControlUtils.RenewSourceDefault.IfOnly : ControlUtils.RenewSourceDefault.None, !updateSort);
             RefreshInputs();
 
             if (filter.Count == 0) {
-                ViewModel.StatusAreaCommitments = $"{await areaComQuery.CountAsync():N0}";
-                var s = await ctx.Seasons.FindAsync(await ctx.Seasons.MaxAsync(s => s.Year));
-                var (text, gridData) = await AreaComService.GenerateToolTipData(areaComQuery, s?.MaxKgPerHa ?? 10_000);
+                ViewModel.StatusAreaCommitments = $"{areaComCount:N0}";
+                var (text, gridData) = stat;
                 ViewModel.StatusArea = text;
                 ViewModel.StatusAreaToolTip = AreaComService.GenerateToolTip(gridData);
             } else {
diff --git a/Elwig/Windows/BaseDataWindow.xaml b/Elwig/Windows/BaseDataWindow.xaml
index 069beab..0da1831 100644
--- a/Elwig/Windows/BaseDataWindow.xaml
+++ b/Elwig/Windows/BaseDataWindow.xaml
@@ -8,8 +8,7 @@
         xmlns:local="clr-namespace:Elwig.Windows"
         xmlns:ctrl="clr-namespace:Elwig.Controls"
         mc:Ignorable="d"
-        Title="Stammdaten - Elwig" Height="520" MinHeight="400" Width="860" MinWidth="810"
-        Loaded="Window_Loaded">
+        Title="Stammdaten - Elwig" Height="520" MinHeight="400" Width="860" MinWidth="810">
     <Window.Resources>
         <Style TargetType="Label">
             <Setter Property="HorizontalAlignment" Value="Left"/>
diff --git a/Elwig/Windows/BaseDataWindow.xaml.cs b/Elwig/Windows/BaseDataWindow.xaml.cs
index 184fd7e..a96e448 100644
--- a/Elwig/Windows/BaseDataWindow.xaml.cs
+++ b/Elwig/Windows/BaseDataWindow.xaml.cs
@@ -153,7 +153,7 @@ namespace Elwig.Windows {
             ParameterExportEbicsAddress.IsEnabled = true;
         }
 
-        private void Window_Loaded(object sender, RoutedEventArgs evt) {
+        protected override async Task OnInit(AppDbContext ctx) {
             LockInputs();
         }
 
diff --git a/Elwig/Windows/ChartWindow.xaml b/Elwig/Windows/ChartWindow.xaml
index 03e4bb6..8acff56 100644
--- a/Elwig/Windows/ChartWindow.xaml
+++ b/Elwig/Windows/ChartWindow.xaml
@@ -9,7 +9,6 @@
         xmlns:ScottPlot="clr-namespace:ScottPlot.WPF;assembly=ScottPlot.WPF"
         mc:Ignorable="d"
         Title="Auszahlung - Elwig" Height="700" Width="1500" MinWidth="1000" MinHeight="500"
-        Loaded="Window_Loaded"
         Closing="Window_Closing">
 
     <Window.Resources>
diff --git a/Elwig/Windows/ChartWindow.xaml.cs b/Elwig/Windows/ChartWindow.xaml.cs
index 3b32154..2c3619d 100644
--- a/Elwig/Windows/ChartWindow.xaml.cs
+++ b/Elwig/Windows/ChartWindow.xaml.cs
@@ -80,9 +80,6 @@ namespace Elwig.Windows {
             LockContext = true;
         }
 
-        private void Window_Loaded(object sender, RoutedEventArgs evt) {
-        }
-
         private void Window_Closing(object sender, System.ComponentModel.CancelEventArgs e) {
             if (HasChanged) {
                 var r = MessageBox.Show("Soll das Fenster wirklich geschlossen werden? Nicht gespeicherte Änderungen werden NICHT übernommen!", "Schließen bestätigen",
diff --git a/Elwig/Windows/ContextWindow.cs b/Elwig/Windows/ContextWindow.cs
index 4715698..08e905d 100644
--- a/Elwig/Windows/ContextWindow.cs
+++ b/Elwig/Windows/ContextWindow.cs
@@ -40,8 +40,11 @@ namespace Elwig.Windows {
         }
 
         protected async void OnLoaded(object? sender, RoutedEventArgs? evt) {
+            Mouse.OverrideCursor = Cursors.AppStarting;
             using var ctx = new AppDbContext();
             await OnRenewContext(ctx);
+            await OnInit(ctx);
+            Mouse.OverrideCursor = null;
         }
 
         protected async Task EnsureContextRenewed() {
@@ -51,6 +54,8 @@ namespace Elwig.Windows {
             _renewPending = false;
         }
 
+        virtual protected async Task OnInit(AppDbContext ctx) { }
+
         abstract protected Task OnRenewContext(AppDbContext ctx);
     }
 }
diff --git a/Elwig/Windows/DeliveryAdminWindow.xaml b/Elwig/Windows/DeliveryAdminWindow.xaml
index c3ba734..04c6542 100644
--- a/Elwig/Windows/DeliveryAdminWindow.xaml
+++ b/Elwig/Windows/DeliveryAdminWindow.xaml
@@ -6,8 +6,7 @@
         xmlns:local="clr-namespace:Elwig.Windows"
         xmlns:vm="clr-namespace:Elwig.ViewModels"
         xmlns:ctrl="clr-namespace:Elwig.Controls"
-        Title="{Binding Title}" Height="720" Width="1150" MinHeight="720" MinWidth="1000"
-        Loaded="Window_Loaded">
+        Title="{Binding Title}" Height="720" Width="1150" MinHeight="720" MinWidth="1000">
     <Window.DataContext>
         <vm:DeliveryAdminViewModel/>
     </Window.DataContext>
diff --git a/Elwig/Windows/DeliveryAdminWindow.xaml.cs b/Elwig/Windows/DeliveryAdminWindow.xaml.cs
index 9f56b7f..7c3f481 100644
--- a/Elwig/Windows/DeliveryAdminWindow.xaml.cs
+++ b/Elwig/Windows/DeliveryAdminWindow.xaml.cs
@@ -128,14 +128,14 @@ namespace Elwig.Windows {
             ViewModel.EnableAllSeasons = true;
         }
 
-        private void Window_Loaded(object sender, RoutedEventArgs evt) {
+        protected override async Task OnInit(AppDbContext ctx) {
+            await base.OnInit(ctx);
             OnSecondPassed(null, null);
             SecondsTimer.Start();
             LockInputs();
             if (ViewModel.IsReceipt) {
                 NewDeliveryButton_Click(null, null);
-                using var ctx = new AppDbContext();
-                if (ctx.Seasons.Find(Utils.CurrentYear) == null) {
+                if (await ctx.Seasons.FindAsync(Utils.CurrentYear) == null) {
                     MessageBox.Show("Die Saison für das aktuelle Jahr wurde noch nicht erstellt. Neue Lieferungen können nicht abgespeichert werden.\n\n(Stammdaten -> Saisons -> Neu anlegen...)",
                         "Saison noch nicht erstellt", MessageBoxButton.OK, MessageBoxImage.Warning);
                 }
@@ -420,33 +420,47 @@ namespace Elwig.Windows {
         }
 
         private async Task RefreshList(bool updateSort = false) {
-            using var ctx = new AppDbContext();
-            var (_, deliveryQuery, deliveryPartsQuery, predicate, filter) = await ViewModel.GetFilters(ctx);
-            var deliveries = await deliveryQuery
-                .Include(d => d.Parts).ThenInclude(p => p.PartModifiers).ThenInclude(m => m.Modifier)
-                .Include(d => d.Parts).ThenInclude(p => p.Attribute)
-                .Include(d => d.Parts).ThenInclude(p => p.Cultivation)
-                .Include(d => d.Parts).ThenInclude(p => p.Variety)
-                .Include(d => d.Member.EmailAddresses)
-                .AsSplitQuery()
-                .ToListAsync();
-            deliveries.Reverse();
+            var vm = ViewModel;
+            var cursor = Mouse.OverrideCursor != null;
+            if (!cursor) Mouse.OverrideCursor = Cursors.Wait;
+            var query = (vm.SearchQuery, vm.FilterSeason, vm.FilterAllSeasons, vm.FilterTodayOnly);
+            var (filter, deliveries, deliveryPartsNum, varieties, stat) = await Task.Run(async () => {
+                using var ctx = new AppDbContext();
+                var (_, deliveryQuery, deliveryPartsQuery, predicate, filter) = await vm.GetFilters(ctx);
+                var deliveries = await deliveryQuery
+                    .Include(d => d.Parts).ThenInclude(p => p.PartModifiers).ThenInclude(m => m.Modifier)
+                    .Include(d => d.Parts).ThenInclude(p => p.Attribute)
+                    .Include(d => d.Parts).ThenInclude(p => p.Cultivation)
+                    .Include(d => d.Parts).ThenInclude(p => p.Variety)
+                    .Include(d => d.Member.EmailAddresses)
+                    .AsSplitQuery()
+                    .ToListAsync();
+                deliveries.Reverse();
 
-            if (filter.Count > 0 && deliveries.Count > 0) {
-                var dict = deliveries.AsParallel()
-                    .ToDictionary(d => d, d => d.SearchScore(ViewModel.TextFilter))
-                    .OrderByDescending(a => a.Value)
-                    .ThenBy(a => a.Key.DateTime);
-                var threshold = dict.Select(a => a.Value).Max() * 3 / 4;
-                deliveries = dict
-                    .Where(a => a.Value > threshold)
-                    .Select(a => a.Key)
-                    .ToList();
-            }
+                if (filter.Count > 0 && deliveries.Count > 0) {
+                    var dict = deliveries.AsParallel()
+                        .ToDictionary(d => d, d => d.SearchScore(vm.TextFilter))
+                        .OrderByDescending(a => a.Value)
+                        .ThenBy(a => a.Key.DateTime);
+                    var threshold = dict.Select(a => a.Value).Max() * 3 / 4;
+                    deliveries = [.. dict
+                        .Where(a => a.Value > threshold)
+                        .Select(a => a.Key)];
+                }
+
+                deliveries.ForEach(d => { d.PartFilter = predicate; });
+
+                var deliveryPartsNum = await deliveryPartsQuery.CountAsync();
+                var varieties = await deliveryPartsQuery.Select(d => d.SortId).Distinct().ToListAsync();
+                var stat = await DeliveryService.GenerateToolTipData(deliveryPartsQuery);
+
+                return (filter, deliveries, deliveryPartsNum, varieties, stat);
+            });
+            if (!cursor) Mouse.OverrideCursor = null;
+            if (query != (ViewModel.SearchQuery, ViewModel.FilterSeason, ViewModel.FilterAllSeasons, ViewModel.FilterTodayOnly)) return;
 
-            deliveries.ForEach(d => { d.PartFilter = predicate; });
             ControlUtils.RenewItemsSource(DeliveryList, deliveries,
-                DeliveryList_SelectionChanged, filter.Count > 0 ? ControlUtils.RenewSourceDefault.IfOnly : ControlUtils.RenewSourceDefault.None, !updateSort);
+                DeliveryList_SelectionChanged, ViewModel.TextFilter.Count > 0 ? ControlUtils.RenewSourceDefault.IfOnly : ControlUtils.RenewSourceDefault.None, !updateSort);
             await RefreshDeliveryParts();
 
             var members = deliveries.Select(d => d.Member).DistinctBy(m => m.MgNr).ToList();
@@ -454,11 +468,9 @@ namespace Elwig.Windows {
             ViewModel.StatusDeliveries = $"{deliveries.Count:N0}";
 
             if (filter.Count == 0) {
-                var deliveryParts = deliveryPartsQuery;
-                ViewModel.StatusDeliveries = $"{deliveries.Count:N0} ({await deliveryParts.CountAsync():N0})";
-                var varieties = await deliveryParts.Select(d => d.SortId).Distinct().ToListAsync();
+                ViewModel.StatusDeliveries = $"{deliveries.Count:N0} ({deliveryPartsNum:N0})";
                 ViewModel.StatusVarieties = $"{varieties.Count:N0}" + (varieties.Count > 0 && varieties.Count <= 10 ? $" ({string.Join(", ", varieties)})" : "");
-                var (wText, wData, gText, gData) = await DeliveryService.GenerateToolTipData(deliveryParts);
+                var (wText, wData, gText, gData) = stat;
                 ViewModel.StatusWeight = wText;
                 ViewModel.StatusGradation = gText;
                 (ViewModel.StatusWeightToolTip, ViewModel.StatusGradationToolTip) = DeliveryService.GenerateToolTip(wData, gData);
diff --git a/Elwig/Windows/DeliveryAncmtAdminWindow.xaml b/Elwig/Windows/DeliveryAncmtAdminWindow.xaml
index 9dcdc71..ac5574b 100644
--- a/Elwig/Windows/DeliveryAncmtAdminWindow.xaml
+++ b/Elwig/Windows/DeliveryAncmtAdminWindow.xaml
@@ -8,8 +8,7 @@
         xmlns:local="clr-namespace:Elwig.Windows"
         xmlns:vm="clr-namespace:Elwig.ViewModels"
         xmlns:ctrl="clr-namespace:Elwig.Controls"
-        Title="Anmeldungen - Elwig" Height="700" Width="980" MinWidth="600" MinHeight="400"
-        Loaded="Window_Loaded">
+        Title="Anmeldungen - Elwig" Height="700" Width="980" MinWidth="600" MinHeight="400">
     <Window.DataContext>
         <vm:DeliveryAncmtAdminViewModel/>
     </Window.DataContext>
diff --git a/Elwig/Windows/DeliveryAncmtAdminWindow.xaml.cs b/Elwig/Windows/DeliveryAncmtAdminWindow.xaml.cs
index af4f835..3b242a3 100644
--- a/Elwig/Windows/DeliveryAncmtAdminWindow.xaml.cs
+++ b/Elwig/Windows/DeliveryAncmtAdminWindow.xaml.cs
@@ -36,10 +36,10 @@ namespace Elwig.Windows {
             ControlUtils.InitializeDelayTimer(SearchInput, SearchInput_TextChanged);
             SearchInput.TextChanged -= SearchInput_TextChanged;
             ViewModel.FilterSeason = Utils.CurrentLastSeason;
+            ViewModel.FilterOnlyUpcoming = true;
         }
 
-        private void Window_Loaded(object sender, RoutedEventArgs evt) {
-            ViewModel.FilterOnlyUpcoming = true;
+        protected override async Task OnInit(AppDbContext ctx) {
             LockInputs();
         }
 
@@ -103,36 +103,46 @@ namespace Elwig.Windows {
         }
 
         private async Task RefreshList(bool updateSort = false) {
-            using var ctx = new AppDbContext();
-            var (_, deliveryAncmtQuery, filter) = await ViewModel.GetFilters(ctx);
-            var deliveryAncmts = await deliveryAncmtQuery
-                .Include(a => a.Member.BillingAddress)
-                .Include(a => a.Schedule)
-                .Include(a => a.Variety)
-                .AsSplitQuery()
-                .ToListAsync();
+            var vm = ViewModel;
+            var cursor = Mouse.OverrideCursor != null;
+            if (!cursor) Mouse.OverrideCursor = Cursors.Wait;
+            var query = (vm.SearchQuery, vm.FilterSeason, vm.FilterOnlyUpcoming, vm.FilterOnlyUpcoming);
+            var (filter, deliveryAncmts, stat) = await Task.Run(async () => {
+                using var ctx = new AppDbContext();
+                var (_, deliveryAncmtQuery, filter) = await vm.GetFilters(ctx);
+                var deliveryAncmts = await deliveryAncmtQuery
+                    .Include(a => a.Member.BillingAddress)
+                    .Include(a => a.Schedule)
+                    .Include(a => a.Variety)
+                    .AsSplitQuery()
+                    .ToListAsync();
 
-            if (filter.Count > 0 && deliveryAncmts.Count > 0) {
-                var dict = deliveryAncmts.AsParallel()
-                    .ToDictionary(a => a, a => a.SearchScore(filter))
-                    .OrderByDescending(a => a.Value)
-                    .ThenBy(a => a.Key.Schedule.DateString)
-                    .ThenBy(a => a.Key.Member.Name)
-                    .ThenBy(a => a.Key.Member.GivenName)
-                    .ThenBy(a => a.Key.Member.MgNr);
-                var threshold = dict.Select(a => a.Value).Max() * 3 / 4;
-                deliveryAncmts = dict
-                    .Where(a => a.Value > threshold)
-                    .Select(a => a.Key)
-                    .ToList();
-            } else {
-                deliveryAncmts = deliveryAncmts
-                    .OrderBy(a => a.Schedule.DateString)
-                    .ThenBy(a => a.Member.Name)
-                    .ThenBy(a => a.Member.GivenName)
-                    .ThenBy(a => a.Member.MgNr)
-                    .ToList();
-            }
+                if (filter.Count > 0 && deliveryAncmts.Count > 0) {
+                    var dict = deliveryAncmts.AsParallel()
+                        .ToDictionary(a => a, a => a.SearchScore(filter))
+                        .OrderByDescending(a => a.Value)
+                        .ThenBy(a => a.Key.Schedule.DateString)
+                        .ThenBy(a => a.Key.Member.Name)
+                        .ThenBy(a => a.Key.Member.GivenName)
+                        .ThenBy(a => a.Key.Member.MgNr);
+                    var threshold = dict.Max(a => a.Value) * 3 / 4;
+                    deliveryAncmts = [.. dict
+                        .Where(a => a.Value > threshold)
+                        .Select(a => a.Key)];
+                } else {
+                    deliveryAncmts = [.. deliveryAncmts
+                        .OrderBy(a => a.Schedule.DateString)
+                        .ThenBy(a => a.Member.Name)
+                        .ThenBy(a => a.Member.GivenName)
+                        .ThenBy(a => a.Member.MgNr)];
+                }
+
+                var stat = await DeliveryAncmtService.GenerateToolTipData(deliveryAncmtQuery);
+
+                return (filter, deliveryAncmts, stat);
+            });
+            if (!cursor) Mouse.OverrideCursor = null;
+            if (query != (ViewModel.SearchQuery, ViewModel.FilterSeason, ViewModel.FilterOnlyUpcoming, ViewModel.FilterOnlyUpcoming)) return;
 
             ControlUtils.RenewItemsSource(DeliveryAncmtList, deliveryAncmts,
                 DeliveryAncmtList_SelectionChanged, ViewModel.TextFilter.Count > 0 ? ControlUtils.RenewSourceDefault.IfOnly : ControlUtils.RenewSourceDefault.None, !updateSort);
@@ -141,9 +151,9 @@ namespace Elwig.Windows {
 
             ViewModel.StatusAncmts = $"{deliveryAncmts.Count:N0}";
             if (filter.Count == 0) {
-                var (text, grid) = await DeliveryAncmtService.GenerateToolTip(deliveryAncmtQuery);
+                var (text, data) = stat;
                 ViewModel.StatusWeight = text;
-                ViewModel.StatusWeightToolTip = grid;
+                ViewModel.StatusWeightToolTip = DeliveryAncmtService.GenerateToolTip(data);
             } else {
                 ViewModel.StatusWeight = $"{deliveryAncmts.Sum(a => a.Weight):N0} kg";
                 ViewModel.StatusWeightToolTip = null;
diff --git a/Elwig/Windows/DeliveryScheduleAdminWindow.xaml b/Elwig/Windows/DeliveryScheduleAdminWindow.xaml
index 4f8a00c..2f1afa7 100644
--- a/Elwig/Windows/DeliveryScheduleAdminWindow.xaml
+++ b/Elwig/Windows/DeliveryScheduleAdminWindow.xaml
@@ -7,8 +7,7 @@
         xmlns:local="clr-namespace:Elwig.Windows"
         xmlns:vm="clr-namespace:Elwig.ViewModels"
         xmlns:ctrl="clr-namespace:Elwig.Controls"
-        Title="Leseplanung - Elwig" Height="600" Width="850" MinHeight="450" MinWidth="800"
-        Loaded="Window_Loaded">
+        Title="Leseplanung - Elwig" Height="600" Width="850" MinHeight="450" MinWidth="800">
     <Window.DataContext>
         <vm:DeliveryScheduleAdminViewModel/>
     </Window.DataContext>
diff --git a/Elwig/Windows/DeliveryScheduleAdminWindow.xaml.cs b/Elwig/Windows/DeliveryScheduleAdminWindow.xaml.cs
index 73eca89..cd491d5 100644
--- a/Elwig/Windows/DeliveryScheduleAdminWindow.xaml.cs
+++ b/Elwig/Windows/DeliveryScheduleAdminWindow.xaml.cs
@@ -30,41 +30,49 @@ namespace Elwig.Windows {
             ControlUtils.InitializeDelayTimer(SearchInput, SearchInput_TextChanged);
             SearchInput.TextChanged -= SearchInput_TextChanged;
             ViewModel.FilterSeason = Utils.CurrentLastSeason;
+            ViewModel.FilterOnlyUpcoming = true;
         }
 
-        private void Window_Loaded(object sender, RoutedEventArgs evt) {
-            ViewModel.FilterOnlyUpcoming = true;
+        protected override async Task OnInit(AppDbContext ctx) {
             LockInputs();
         }
 
         private async Task RefreshList(bool updateSort = false) {
-            using var ctx = new AppDbContext();
-            var (_, deliveryScheduleQuery, filter) = await ViewModel.GetFilters(ctx);
-            var deliverySchedules = await deliveryScheduleQuery
-                .Include(s => s.Varieties)
-                .Include(s => s.Branch)
-                .AsSplitQuery()
-                .ToListAsync();
+            var vm = ViewModel;
+            var cursor = Mouse.OverrideCursor != null;
+            if (!cursor) Mouse.OverrideCursor = Cursors.Wait;
+            var query = (vm.SearchQuery, vm.FilterSeason, vm.FilterOnlyUpcoming);
+            var deliverySchedules = await Task.Run(async () => {
+                using var ctx = new AppDbContext();
+                var (_, deliveryScheduleQuery, filter) = await vm.GetFilters(ctx);
+                var deliverySchedules = await deliveryScheduleQuery
+                    .Include(s => s.Varieties)
+                    .Include(s => s.Branch)
+                    .AsSplitQuery()
+                    .ToListAsync();
 
-            if (filter.Count > 0 && deliverySchedules.Count > 0) {
-                var dict = deliverySchedules.AsParallel()
-                    .ToDictionary(s => s, s => s.SearchScore(filter))
-                    .OrderByDescending(a => a.Value)
-                    .ThenBy(a => a.Key.DateString)
-                    .ThenBy(a => a.Key.Branch.Name)
-                    .ThenBy(a => a.Key.Description);
-                var threshold = dict.Select(a => a.Value).Max() * 3 / 4;
-                deliverySchedules = dict
-                    .Where(a => a.Value > threshold)
-                    .Select(a => a.Key)
-                    .ToList();
-            } else {
-                deliverySchedules = deliverySchedules
-                    .OrderBy(s => s.DateString)
-                    .ThenBy(s => s.Branch.Name)
-                    .ThenBy(s => s.Description)
-                    .ToList();
-            }
+                if (filter.Count > 0 && deliverySchedules.Count > 0) {
+                    var dict = deliverySchedules.AsParallel()
+                        .ToDictionary(s => s, s => s.SearchScore(filter))
+                        .OrderByDescending(a => a.Value)
+                        .ThenBy(a => a.Key.DateString)
+                        .ThenBy(a => a.Key.Branch.Name)
+                        .ThenBy(a => a.Key.Description);
+                    var threshold = dict.Max(a => a.Value) * 3 / 4;
+                    deliverySchedules = [.. dict
+                        .Where(a => a.Value > threshold)
+                        .Select(a => a.Key)];
+                } else {
+                    deliverySchedules = [.. deliverySchedules
+                        .OrderBy(s => s.DateString)
+                        .ThenBy(s => s.Branch.Name)
+                        .ThenBy(s => s.Description)];
+                }
+
+                return deliverySchedules;
+            });
+            if (!cursor) Mouse.OverrideCursor = null;
+            if (query != ((ViewModel.SearchQuery, ViewModel.FilterSeason, ViewModel.FilterOnlyUpcoming))) return;
 
             ControlUtils.RenewItemsSource(DeliveryScheduleList, deliverySchedules,
                 DeliveryScheduleList_SelectionChanged, ViewModel.TextFilter.Count > 0 ? ControlUtils.RenewSourceDefault.IfOnly : ControlUtils.RenewSourceDefault.None, !updateSort);
diff --git a/Elwig/Windows/MainWindow.xaml b/Elwig/Windows/MainWindow.xaml
index 2a4ee15..efbca47 100644
--- a/Elwig/Windows/MainWindow.xaml
+++ b/Elwig/Windows/MainWindow.xaml
@@ -5,7 +5,7 @@
         xmlns:local="clr-namespace:Elwig.Windows"
         xmlns:ctrl="clr-namespace:Elwig.Controls"
         Title="Elwig" Height="390" Width="520" ResizeMode="CanMinimize"
-        Loaded="Window_Loaded" Closing="Window_Closing">
+        Closing="Window_Closing">
     <Window.Resources>
         <Style TargetType="Button">
             <Setter Property="VerticalAlignment" Value="Top"/>
diff --git a/Elwig/Windows/MainWindow.xaml.cs b/Elwig/Windows/MainWindow.xaml.cs
index dda6083..6d6cd3e 100644
--- a/Elwig/Windows/MainWindow.xaml.cs
+++ b/Elwig/Windows/MainWindow.xaml.cs
@@ -37,11 +37,10 @@ namespace Elwig.Windows {
             SyncButton.Visibility = App.Config.SyncUrl != null ? Visibility.Visible : Visibility.Hidden;
             Menu_Database_Upload.IsEnabled = App.Config.SyncUrl != null;
             Menu_Database_Download.IsEnabled = App.Config.SyncUrl != null;
+            SeasonInput.Value = Utils.CurrentLastSeason;
         }
 
-        private void Window_Loaded(object sender, RoutedEventArgs evt) {
-            SeasonInput.Value = Utils.CurrentLastSeason;
-
+        protected override async Task OnInit(AppDbContext ctx) {
             if (Utils.HasInternetConnectivity()) {
                 CheckSync(200);
             }
diff --git a/Elwig/Windows/MemberAdminWindow.xaml b/Elwig/Windows/MemberAdminWindow.xaml
index 7e8f1d1..cc9148e 100644
--- a/Elwig/Windows/MemberAdminWindow.xaml
+++ b/Elwig/Windows/MemberAdminWindow.xaml
@@ -5,8 +5,7 @@
         xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
         xmlns:local="clr-namespace:Elwig.Windows"
         xmlns:vm="clr-namespace:Elwig.ViewModels"
-        Title="Mitglieder - Elwig" Height="700" Width="1250" MinHeight="650" MinWidth="1150"
-        Loaded="Window_Loaded">
+        Title="Mitglieder - Elwig" Height="700" Width="1250" MinHeight="650" MinWidth="1150">
     <Window.DataContext>
         <vm:MemberAdminViewModel/>
     </Window.DataContext>
diff --git a/Elwig/Windows/MemberAdminWindow.xaml.cs b/Elwig/Windows/MemberAdminWindow.xaml.cs
index fa6d4a1..cd69d6b 100644
--- a/Elwig/Windows/MemberAdminWindow.xaml.cs
+++ b/Elwig/Windows/MemberAdminWindow.xaml.cs
@@ -82,10 +82,10 @@ namespace Elwig.Windows {
 
             Menu_Export_UploadFilters.IsEnabled = App.Config.SyncUrl != null;
             Menu_Export_UploadAll.IsEnabled = App.Config.SyncUrl != null;
+            ViewModel.ShowOnlyActiveMembers = true;
         }
 
-        private void Window_Loaded(object sender, RoutedEventArgs evt) {
-            ViewModel.ShowOnlyActiveMembers = true;
+        protected override async Task OnInit(AppDbContext ctx) {
             UpdateContactInfoVisibility();
             LockInputs();
         }
@@ -113,46 +113,57 @@ namespace Elwig.Windows {
         }
 
         private async Task RefreshList(bool updateSort = false) {
-            using var ctx = new AppDbContext();
-            var (_, memberQuery, filter) = await ViewModel.GetFilters(ctx);
-            var members = await memberQuery
-                .Include(m => m.Branch)
-                .Include(m => m.DefaultWbKg!.AtKg)
-                .Include(m => m.EmailAddresses)
-                .Include(m => m.TelephoneNumbers)
-                .Include(m => m.PostalDest.AtPlz!.Ort)
-                .Include(m => m.PostalDest.AtPlz!.Country)
-                .Include(m => m.BillingAddress!.PostalDest.AtPlz!.Ort)
-                .Include(m => m.BillingAddress!.PostalDest.AtPlz!.Country)
-                .ToListAsync();
+            var vm = ViewModel;
+            var cursor = Mouse.OverrideCursor != null;
+            if (!cursor) Mouse.OverrideCursor = Cursors.Wait;
+            var query = (vm.SearchQuery, vm.ShowOnlyActiveMembers);
+            var (members, totalMemberCount, totalBusinessShares) = await Task.Run(async () => {
+                using var ctx = new AppDbContext();
+                var (_, memberQuery, filter) = await vm.GetFilters(ctx);
+                var members = await memberQuery
+                    .Include(m => m.Branch)
+                    .Include(m => m.DefaultWbKg!.AtKg)
+                    .Include(m => m.EmailAddresses)
+                    .Include(m => m.TelephoneNumbers)
+                    .Include(m => m.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.PostalDest.AtPlz!.Country)
+                    .Include(m => m.BillingAddress!.PostalDest.AtPlz!.Ort)
+                    .Include(m => m.BillingAddress!.PostalDest.AtPlz!.Country)
+                    .ToListAsync();
 
-            if (filter.Count > 0 && members.Count > 0) {
-                var dict = members.AsParallel()
-                    .ToDictionary(m => m, m => m.SearchScore(filter))
-                    .OrderByDescending(a => a.Value)
-                    .ThenBy(a => a.Key.Name)
-                    .ThenBy(a => a.Key.GivenName)
-                    .ThenBy(a => a.Key.MgNr);
-                var threshold = dict.Select(a => a.Value).Max() * 3 / 4;
-                members = dict
-                    .Where(a => a.Value > threshold)
-                    .Select(a => a.Key)
-                    .ToList();
-            } else {
-                members = members
-                    .OrderBy(m => m.Name)
-                    .ThenBy(m => m.GivenName)
-                    .ThenBy(m => m.MgNr)
-                    .ToList();
-            }
+                if (filter.Count > 0 && members.Count > 0) {
+                    var dict = members.AsParallel()
+                        .ToDictionary(m => m, m => m.SearchScore(filter))
+                        .OrderByDescending(a => a.Value)
+                        .ThenBy(a => a.Key.Name)
+                        .ThenBy(a => a.Key.GivenName)
+                        .ThenBy(a => a.Key.MgNr);
+                    var threshold = dict.Select(a => a.Value).Max() * 3 / 4;
+                    members = [.. dict
+                        .Where(a => a.Value > threshold)
+                        .Select(a => a.Key)];
+                } else {
+                    members = [.. members
+                        .OrderBy(m => m.Name)
+                        .ThenBy(m => m.GivenName)
+                        .ThenBy(m => m.MgNr)];
+                }
+
+                var totalMemberCount = await ctx.Members.CountAsync();
+                var totalBusinessShares = await ctx.Members.SumAsync(m => m.BusinessShares);
+
+                return (members, totalMemberCount, totalBusinessShares);
+            });
+            if (!cursor) Mouse.OverrideCursor = null;
+            if (query != (ViewModel.SearchQuery, ViewModel.ShowOnlyActiveMembers)) return;
 
             ControlUtils.RenewItemsSource(MemberList, members,
                 MemberList_SelectionChanged, ViewModel.TextFilter.Count > 0 ? ControlUtils.RenewSourceDefault.IfOnly : ControlUtils.RenewSourceDefault.None, !updateSort);
             if (updateSort && MemberList.SelectedItem != null)
                 MemberList.ScrollIntoView(MemberList.SelectedItem);
 
-            ViewModel.StatusMembers = $"{members.Count:N0} ({await ctx.Members.CountAsync():N0})";
-            ViewModel.StatusBusinessShares = $"{members.Sum(m => m.BusinessShares):N0} ({await ctx.Members.SumAsync(m => m.BusinessShares):N0})";
+            ViewModel.StatusMembers = $"{members.Count:N0} ({totalMemberCount:N0})";
+            ViewModel.StatusBusinessShares = $"{members.Sum(m => m.BusinessShares):N0} ({totalBusinessShares:N0})";
         }
 
         private void RefreshInputs(bool validate = false) {