|
Hi Till,
danke für die schnelle Antwort!
Ich muss gestehen, dass ich etwas gebraucht habe, bis ich mich durch deinen Lösungsansatz durchgekämpft hatte.
Dein Ansatz funktioniert auch einwandfrei und ist eine saubere Lösung.
Allerdings sind in meiner Tabelle weiter unten nach der Auflistung noch (drei) Zellen der Spalte B gefüllt. Da greift dann der Code ebenfalls und füllt mir somit die Spalte A, was er nicht sollte.
Sozusagen muss beim Set rng das .End(xlUp) drei mal hoch bzw. der Bereich anders eingeschränkt werden. Kann man das irgendwie realisieren?
Was mir noch aufgefallen ist, dass sich der Code nicht als Einzelschritt ausführen lässt, was für mich als Laien sehr hilfreich ist. Das verstehe ich nicht ganz, wieso das nicht geht!
Was ich auch nicht ganz verstehe: Dim rng As Range, Arr, lastInd&
Als was ist Arr und lastInd& deklariert und wieso "&"? Sind das ebenfalls RangeObjekte?
Eine Aufklärung würde mir sehr weiterhelfen!
Gruß
neo
|