Nur den Inhalt per Makro übertragen

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

wie muss ich folgenden Code ergänzen, um nur den Inhalt und nicht die Rahmenformatierung der Zelle zu übernehmen?

Sheets(„Liste1“).[a15].Copy
Sheets(„Liste2“).[d3].Select
ActiveSheet.Paste

THX

2

wie muss ich folgenden Code ergänzen, um nur den Inhalt und
nicht die Rahmenformatierung der Zelle zu übernehmen?
Sheets(„Liste1“).[a15].Copy
Sheets(„Liste2“).[d3].Select
ActiveSheet.Paste

Hi Alex,
probiers mal so, (Blattnamen anpassen):

Sub Makro1()
Worksheets("Tabelle1").Range("A15").Copy
Worksheets("Tabelle2").Range("d3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks \_
 :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Gruß
Reinhard

3

Grüezi Alex

wie muss ich folgenden Code ergänzen, um nur den Inhalt und
nicht die Rahmenformatierung der Zelle zu übernehmen?

Sheets(„Liste1“).[a15].Copy
Sheets(„Liste2“).[d3].Select
ActiveSheet.Paste

Eine weitere Alternative ist diese Zeile hier:

Sheets(„Liste2“).Range(„D3“).Value = Sheets(„Liste1“).Range(„A15“).Value

–
Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
4

elegant, vaut une etoile!

5

Super!
Danke für die eleganten Lösungen!