Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Marko- einfügen von Paste spezial

Marko- einfügen von Paste spezial
07.06.2004 05:42:27
Paste
Hallo VBAler,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Marko- einfügen von Paste spezial
07.06.2004 15:45:18
Paste
anbei meine Lösung zu geschidertem Problem:
allerdings glaube ich, daß man die Schritte 3.1 bis 3.4 und 5.1 bis 5.4 noch vereinfachen kann. oder ?
1. Dim iRow%
2. If Cells(iRow, 13) .......... Then

3. Range("K12:X12").Copy Cells(iRow, "K")
3.1 Range("K12:X12").Copy
3.2 Cells(iRow, "K").Activate
3.4 Selection.Copy
3.5 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
4. ElseIf Cells(iRow, 14) .......... Then

5. Range("K16:X16").Copy Cells(iRow, "K")
5.1 Range("K16:X16").Copy
5.2 Cells(iRow, "K").Activate
5.3 Selection.Copy
5.4 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
6. End IF
7. Next iRow
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige