Makro berechnet Formel an falschem Ort
12.06.2023 22:25:12
Christian
Hallo,
ich hoffe jemand von euch hat die rettende Idee.
Habe ein ansonsten funktionierendes Makro, dass folgendermaßen beginnt:
Private Sub alle()
Dim LetzteA As Long
Dim LetzteI As Long
Dim LetzteR As Long
Dim LetzteAA As Long
With Worksheets("Rechnung")
ActiveWorkbook.Connections("Abfrage - ohneDup").Refresh
LetzteA = .Cells(.Rows.Count, 1).End(xlUp).Row
With .Range("H2:H" & LetzteA)
.FormulaLocal = "=RANG.GLEICH(F2;F$2:F2;0)"
.Formula = .Value2
End WithDurch das Aktualisieren der Abfrage erhöht sich die Anzahl der Zeilen, daher bestimme ich die letzte Zeile danach erneut.
Jetzt das Phänomen für das ich keine Erklärung habe. Vorher ging die Abfrage bis Zeile 502, nach dem Aktualisieren 608.
Ein Formelergebnis steht jedoch nur in den Zellen H2:H501 sowie H608, der Bereich H502:H607 ist leer.
Führe ich das Makro danach sofort nochmal aus, in diesem Fall dann ändert sich die Zeilenanzahl nicht, steht dann auch im kompletten Bereich H2:H608 etwas.
Kann sich da jemand einen Reim darauf machen?
Danke
Christian
Anzeige
