Makro, um nur Werte zu kopieren/einfügen [Geschlossen]

-
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
Mehr anzeigen 

2 Antworten

Beste Antwort
Überprüft von Haykel Jouini am 15. März 2019
3
Danke
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ß

Sagen Sie "Danke" 3

Wir freuen uns über ein paar nette Worte als Dankeschön. Kommentar hinzufügen

CCM 1190 Nutzer haben uns diesen Monat Danke gesagt

1
Danke
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