|
ändere den bereich und probiere es aus
hier wäre noch ein mögliches Problem. Die spaltenr wird jeweils in der akuellen Zeile ermittelt. d.h. wenn da zufällig nicht so viele Spalten wie im Rest der Tabelle beschrieben sind, dann wird nicht alles kopiert. ambesten man nimmst die Zeile der Tabellenüberschrift. also Target.row ersetzen durch die passende Zeilennr.
spaltenr = Cells(Target.Row, Columns.Count).End(xlToLeft).Column
|