Makro Programmierung Excel - VB

[atgis]

Genau...aber bis die 5 Werte in meiner Tabelle stehen vergehen 2 sek^^... Das macht im Prinzip zwar nichts, aber man merkt, damit erst alle 65536 Zeilen durchgezählt werden. Also hab ich das mal so versucht zu optimieren:

Ich zähle in einer anderen Zelle wie Viele Zeilen bereits einen Inhalt haben:
=ZÄHLENWENN(A1:A65536;"<>") 'Das macht eine Excel Funktion

Delphi-Quellcode:

Function letzteZeile() As Long
   Dim i As Integer, letzteMin As Long, letzteMax As Long
   For i = 1 To 256
      letzteMin = Cells(Sheets("Tabelle1").Cells(1, 6) + 1, i).End(xlUp).Row
      If letzteMax < letzteMin Then
         letzteMax = letzteMin
      End If
   Next i
   letzteZeile = letzteMax
End Function

Dann zähle ich den Wert aus dieser Zelle + 1...


Jetzt funktioniert es wie ich es wollte! Vielen Dank Chemiker