ich weiß, dass diese Thema schon häufiger angegangen wurde, finde aber nicht den für mich zutreffenden Ansatz.
Ich möchte Daten kopieren und in einen anderen Bereich kopieren; wobei der Code in dem Bereich die erste (komplett)freie Zeile finden soll, in den dann die Werte eingetragen werden sollen.
Was soll geschehen?
Kopiere Sheets("Tabelle1").Range("B6:E6")
Gehe zu Sheets("Tabelle2") und prüfe dort zunächst im Datenbereich Range("B2:E100")
in welcher Zeile (im Bereich B5:E200) noch kein Wert steht. Wenn in irgendeiner Zelle dieses Bereichs ein Wert steht, soll die nächste komplett frei Zeile angesteuert werden und der Übertrag in diese Zeile erfolgen.
Habe mal eine Datei als Erklärung begefügt:
Die Datei https://www.herber.de/bbs/user/87493.xls wurde aus Datenschutzgründen gelöscht
Vielen Dank für einen Tipp/Code.
LG
Dietmar aus Aachen