Sigi VBA Funktion Filldownproblem

Werte Forumschaft und an dieser Stelle lieber Sigi,
vor einiger Zeit hat VBA-Könner Sigi eine potente Funktion zur Berechnung eines Verhaltensmaßes (Veränderung von Computerspielzeiten zur Vorwoche/1. Woche) (m)einer Therapiegruppe konstruiert, die inhaltlich wunderbar funktioniert. Allerdings zeigt sich nun im täglichen Gebrauch eine merkwürdige Anomalie: Sobald man neue Zeilen (Messzeitpunkte) der intelligenten Tabelle hinzufügt, weist der Autofill der Funktion einen Sprung in der Funktionsreihenfolge in den Spalten X und Y auf. Der Zähler in den Funktionen mit Bezug auf Spalte E zählt die Reihe der dynamischen Tabelle vor der Datenzugabe doppelt (1x am Ende der Tabelle, 1x am alten Ende der Tabelle). Hier die arg reduzierte Projektdatei:
https://drive.google.com/file/d/127LJCYbarrPUZz0nQt0b7J2TRKvyVm93/view?usp=sharing
DIeses Verhalten zeigt sich ausschließlich bei der Funktion; andere Formeln haben das Problem nicht. Ich habe mich mit einer Filldown Automatik beim Dateiöffnen beholfen, was ganz gut geht aber eben nicht optimal ist.
Sigi und/oder das Forum: Woran kann das liegen? Aus der Funktion erschließt sich mir dieses Verhalten nicht, weil sie nicht rechnet sondern nur platziert wird ...
Viele Grüße
Kalle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Sigi,
ich wollte Deine Leistung in keiner Weise schmälern. Die tolle Funktion wird auf jeden Fall weiter genutzt. Nunmehr habe ich einen Kniff angewandt, der bei neu eingefügten DS/Zeilen prüft, ob in Spalte A, B und C Veränderungen ablaufen (dort müssen verpflichtend immer Daten angelegt werden). Anschließend werden automatisch die Bezüge der Funktion aktualisert. Mehr als 300 Zeilen entstehen nicht - selbst bei zwei parallel laufenden Gruppen. Danach wandern die Daten in die Datenbank (dahingehend plane ich einen One-Button-Kopiervorgang; aber alles zu seiner Zeit).


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A5:C300"), Target) Is Nothing Then
If Target.Count = 1 Then
Application.EnableEvents = False
With ThisWorkbook.Worksheets("ZOE_Aktuell")
Range("X5").FormulaArray = "=AendVorWo($A$5:A5,$E$5:E5,$V$5:V5,0,100)"
Range("X5:X" & Cells(Rows.Count, "A").End(xlUp).Row).FillDown
Range("Y5").FormulaArray = "=Aend1Wo($A$5:A5,$E$5:E5,$V$5:V5,0,100)"
Range("Y5:Y" & Cells(Rows.Count, "A").End(xlUp).Row).FillDown
End With
End If
End If
Application.EnableEvents = True
End Sub

Herzlichen Dank, dass Du Dich meinem Anliegen nochmal gewidmet hast. Eine Neuprogrammierung ist natürlich nicht nötig (es sei denn, es weckt Deinen Ehrgeiz *g*).
Viele Grüße
Kalle

Beliebteste Forumthreads (12 Monate)

Sigi VBA Funktion Filldownproblem

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread