Hallo Poempel,
der Ansatz mit den 2 Schleifen ist erst mal nicht schlecht.
Prinzipell würde ich nicht mit ActiveCell und .Activate arbeiten, weil das recht Zeitintensiv ist, sonder dies umgehen.
Bei deinem Code, ohne es selbst getestet zu haben, vermute ich mal liegt das Problem bei den If-Abfragen.
Denn in der 1. Schleife zählst du so lange hoch wie die Stadt nicht übereinstimmt.
Wenn die Stadt dann stimmt zählst du nicht mehr.
Zudem wird die Schleife ja schon vorher abgebrochen, wenn die Stadt übereinstimmt.
Bis zu der If-Abfrage kommt man dann gar nicht mehr.
Man müßte dann nach der Schleife die IngLast noch hochzählen.
Bei der 2. Schleife dann eigentlich das gleiche, aber das ganze hochzählen der Variable kannst du dir bei deinem Code sparen,
denn nach den 2 Schleifen sollte deine ActiveCell ja auf der 1. leeren Zeile stehen.
Nun kannst du die ActiveCell gleich benutzen, mit
ActiveCell.EntireRow.Insert
sollte genau dort wo du es möchtest die Zeile eingefügt werden.
|