7.7k Aufrufe
Gefragt in Tabellenkalkulation von Mitglied (926 Punkte)
Hallo Helfer,

das folgende Makkro soll bestimmte Zeilen aus dem Tabellenblatt "Formeln" in das gerade aktive Tabellenblatt einfügen. (komplett Text + Formeln) Ich finde gerade nicht den Befehl fürs einfügen.
Womit muss ich "Paste" bzw "PasteSpecial....." ersetzen?

Sub Zeilen_kopieren2()
'
' Zeilen_kopieren Makro
' Makro am 30.03.2011 von woher aufgezeichnet
'
' Tastenkombination: Strg+Umschalt+Q
'
Sheets("13 Formeln").Rows("23:23").Copy
ActiveSheet.Cells("A23").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Sheets("13 Formeln").Rows("28:28").Copy
ActiveSheet.Cells("A28").Paste

Sheets("13 Formeln").Rows("42:42").Copy
ActiveSheet.Cells("A42").Paste

Sheets("13 Formeln").Rows("55:55").Copy
ActiveSheet.Cells("A55").Paste

Sheets("13 Formeln").Rows("57:62").Copy
ActiveSheet.Cells("A57").Paste
End Sub

Vielen Dank im Voraus

mfg

Wolfgang

2 Antworten

0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Hallo Wolfgang,

.PasteSpecial Paste:=xlValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate


Gruß Hajo
0 Punkte
Beantwortet von Mitglied (926 Punkte)
Hallo Hajo,

vielen Dank, ich hatte gestern ein ganz dickes Brett vorm Kopf.

mfg

Wolfgang
...