8.0k Aufrufe
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
von hajo_zi Experte (9.1k Punkte)
Hallo Wolfgang,

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


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

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

mfg

Wolfgang

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...