Makro, um nur Werte zu kopieren/einfügen

Question

Hallo, 

Ich möchte Werte per Makro von Tabelle 1 zu Tabelle 2 kopieren/einfügen: 

Hier mein Versuch :Worksheets("Data").Range("J9:J400").Copy Worksheets("DB List").Range("J7") 
Leider bekomme ich bei einigen Zellen statt Werte Formeln.

Habe versucht dies zu verbessern, leider wurde es nicht von Excel angenommen.

Worksheets("Data"). Range("J9:J400").Copy Worksheets("DB List").Range("J7").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues 

Kann jemand mir meinen Fehler zeigen und evtl. den richtigen Code geben? 

Danke

karinsamira · Accepted Answer

Hallo,

Hilft dir das hier weiter:


Sub xxx()
With Sheets(1)
     Set Source = .Range("A1:A9")
     ligs = Source.Rows.Count
     Sheets(2).Range("A1").Resize(ligs, 1) = Source.Value
 End With
End Sub


Gruß

dinos · Answer

Hallo,

Diese Syntax ist fehl am Platz :

Worksheets("Tabelle2").Range("J7").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

Ich glaube du sollst besser wie folgt schreiben :

Worksheets("Tabelle2").Range("J7").PasteSpecial Paste:=xlPasteValues

Um angefangen Von J7 einzufügen oder

Worksheets("Tabelle2").Range("J7").End(xlUp).PasteSpecial Paste:=xlPasteValues

Um aufwärts einzufügen

Makro, um nur Werte zu kopieren/einfügen

2 Antworten

Ähnliche Threads