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

PastEx - 24. April 2012 um 12:58 - 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

karinsamira - 24. April 2012 um 18:24
+1
Bewertung
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ß
Hat Ihnen diese Antwort weitergeholfen?  
0
Bewertung
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