Hallo Hans,
man könnte den Datentabellen-Zellbereich auf Veränderung überwachen und den Fortschritt über die Statusleiste ausgeben.
Ob diese allerdings während der Berechung reagieren kann bzw die Ausgabe sichtbar machen wird bleibt fraglich bzw auszutesten.
Mach mal ne Kopie Deiner Mappe und pack folgenden Code in den entsprechenden Codebereich.
1 2 3 4 5 6 7 | Private Sub Worksheet_SelectionChange( ByVal Target As Range)
If Not Intersect(Target, Range( "B2:AC100" )) Is Nothing Then
Application.StatusBar = Target.Address
End If
End Sub
|
Hinweis: B2:AC100 war mein Testbereich. Folglich muss da Dein Datetabellenbereich rein.
Dann mal laufen lassen bzw einfach einen Parameter ändern. (Solltest Du die automatische Berechnung ausgeschalten haben, dann wie gewohnt F9 drücken oder die Berechnung über die Menüleiste anstoßen)
Jetzt müsstest Du links unten die aktuelle "berechnete" Zelle als Zelladresse eingeblendet bekommen.
Wenn dem so ist, können wir die Ausgabe entsprechend (1:Anzahl_Felder) aufhübschen.
Wenn nicht, haben wir wohl pech gehabt ;)
Da Du nicht stundenlang warten musst würde Ich die Datentabelle auf ein Drittel/Viertel reduzieren, um schneller an ein Ergebnis zu kommen.
Dann schrittweise rantasten.
Viel Erfolg!
gruß
Marco
|