Dim IngLetzte As Long

 

    nZeile = "N3"                                          <-- (Spaltenzuweisung)

    Range(nZeile)  = "=D3/C3"                 <-- (Speichert die Formel "D3/C3" in die Zelle "N3")

 

    With ActiveSheet

     lngLetzte = .UsedRange.Rows.Count + .UsedRange.Row - 1                                    <-- (findet die letzte Zeile die benutzt wird und speichert sie in eine Variable)  

     .Range(.Cells(1, 14), Cells(lngLetzte, 14)).Formula = .Cells(1, 14).Formula           <-- (Kopiert die Formel und ändert sie entsprechend ab bevor der Wert in der                                                                                                                                                                        Spalte N in jeder Zelle die benutzt wird, eingefügt wird)

    End With

 

Ich habe nun folgendes Problem:

ich verwende dafür nur ca 70 Zeilen

Der schreibt mir die Formeln aber in 76 Zeilen runter, obwohl die letzten 6 garnicht mit Werten befüllt ist sind

 

Die Variable "IngLetzte"  sollte den Wert 70 haben, aber wenn ich debugge sehe ich das der Wert nicht 70 sonder 76 ist.

 

Woran kann das liegen?