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

- - Letzte Antwort:  karinsamira - 24. April 2012 um 18:24
Hallo,

Eine Frage, für manche von euch wird es sehr einfach sein...auf jeden Fall war es nicht für mich als Neuling ;-)
Ich möchte Werte per Makro von einer Tabelle1 zu einer 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
1
Danke
Hallo,

Oder vielleicht indem du dich von diesem Code inspirieren lässt :-)


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

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

CCM hat diesen Monat 408 Benutzern geholfen

0
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