Guten Morgen,
mit folgenden Code übertrage ich Werte von einem Blatt in ein anderes Blatt:
Tabelle4.Range("L28:N36000").Copy
Tabelle1.Range("L17").PasteSpecial xlPasteValues
Nun muss ich aber dafür sorgen, dass in Abhängigkeit eines Zellwertes (1 oder 0) die Werte in jeder Zelle der Spalte N vor dem Einfügen durch 4 dividiert werden. (bei 0 dividieren, bei 1 im Original einfügen) Es kann auch vorkommen, dass in den letzten 1000 oder 2000 Zellen keine Zahlen mehr vorhanden sind.
Ich kriege dass mit meinen Kenntnissen einfach nicht hin!
Vielen Dank und Gruß
Michael