@ Werner
... manchmal bin ich "Erbsenzähler", darum eine Anmerkung / Korrektur:
[Quote]Beispiel: Die letzte beschriebene Zelle in Spalte A ist die Zelle A20, dann hat i den Wert 20[/Quote]
Das stimmt SO nicht (immer). Die Code-Zeile
i = ActiveSheet.Range("A1").End(xlDown).Row
gibt die Zeilennummer der ersten Leerzeile -1 wieder, nicht unbedingt die letzte beschriebene Zeile der Spalte. Oder auf plain Excel bezogen: Aktib´ve Zelle ist A1, dann Strg+CursorDown. Dann wird die letzte Zeile mit Inhalt _vor einer Leerzeile_ markiert. Angebommen, in A1:A5 sind Daten, A6 ist leer und A7:A20 sind wiederum Daten. Dann wird der Code die Zahl 5 berechnen (erste Leerzeile -1 oder letzte gefüllte Zeile eines Blocks) und nicht die 20, welche ja eigentlich die letzte Zeile der Spalte ist.
Gerade wo es um eine Prüfung geht ist solche Unterscheidung wichtig (ich habe selbst schon Prüfungs-Aufgaben erarbeitet oder vorgegebene Aufgaben bewertet ...)
Gruß
Günther
|