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

Melden
-
 karinsamira -
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

2 Antworten

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ß
3
Danke

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

CCM 1628 Nutzer haben uns diesen Monat Danke gesagt

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