|
&= as long
%= as integer
$= as string
#= as double
=Variant (keine weiteren Angaben=Variant)
Ist zwar erst etwas verwirrend aber irgendwann übersichtlicher und weniger Schreibarbeit... sind nur Abkürzungen, keine speziellen Datentypen.
Warum sich das bei dir nicht in Schritten ausführen kann ich dir auch nicht sagen. Es geht bei mir auf jedenfall mit F8 und sollte bei dir ebenfalls funktionieren. Wenn du mit F9 einen Haltepunkt hinzufügst sollte es ebenfalls funktionieren, du darfst den Haltepunkt nur nicht in der ersten Zeile der For-Schleife setzen, ansonsten wird nur beim ersten Durchlauf gehalten. Du kannst den Haltepunkt aber bei beginn der If-Funktion oder auf die letzte Zeile "Next" setzen...
Um die letzten 3 Zeilen nicht zu bearbeiten, kannst du einfach die jetztige Zuweisung durch:
Set rng = .Range(.Cells(Zeile, 1), .Cells(.Rows.Count, 2).End(xlUp)).offset(-3,0)
ersetzen.
Gruß
Till
|