Marko- einfügen von Paste spezial
07.06.2004 05:42:27
Paste
wer kann helfen ?
nachfolgendes Makro soll umgeschrieben werden.
in den Zellbereich (K12:X12) und (K16:X16) stehen Formeln.
Ziel:
der Zellbereich (K12:X12) oder (K16:X16) wird in die Zeilen die eine bestimmte
Bedingung erfüllen, eingefügt (siehe Programmschritt 1-7)
Aber !!!!
die eingefügten Zellbereiche sollen gleich (nach der Neuberechnung) in Werte umgewandelt werden (vor Programmschritt 7)und nicht wie hier erst am Ende in Schritt 8 und 9.
Danke floh
1. Dim iRow%
2. If Cells(iRow, 13)....... Then
3. Range("K12:X12").Copy Cells(iRow, "K")
4. ElseIf Cells(iRow, 14)....... Then
5. Range("K16:x16").Copy Cells(iRow, "K")
6. End If
7. Next iRow
8. Range("K20:X....").Copy
9. Range("K20").PasteSpecial Paste:=xlPasteValues