Ich bin soeben von Office 2003 auf Office 2010 umgestiegen und habe folgendes Problem.
Bisher habe ich für das Ausfüllen nach Unten (von aktiver Zelle bis zur letzten gefüllten Zeile des Blattes (nicht der aktuellen Spalte) folgendes Makro verwendet:
<pre>Sub Nach_unten_Ausfüllen()
Dim LetzteZeile As Double, LetzteZeileA As Double
Dim i As Double
LetzteZeileA = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To Rows.Count
If Cells(i, 1).End(xlToRight).Column = 256 Then
LetzteZeile = i - 1
Exit For
End If
Next
If LetzteZeileA > LetzteZeile Then LetzteZeile = LetzteZeileA
Range(ActiveCell, Cells(LetzteZeile, ActiveCell.Column)).FillDown
End Sub</pre>
Da Office 2010 wesentlich mehr Zeilen und Spalten hat, dauert dieses Makro nun "unendlich" lang (und ich habe noch nicht einmal die Spaltenanzahl im Makro von 256 erhöht).
Gibt es eine besserer Lösung die höchte verwendete Zeilenummer (im gesamten Blatt) zu eruieren?