Office: VBA Zeile Kopien nur Werte einfügen

hallo miteinander,

ich mache gerade ein Makro mit dem ich mir eine Tabelle zerlegen kann nach einen bestimmten Kriterium, das klappt auch recht gut, bis auf eine Sache nämlich das Kopien von einer ganze ziele in ein andere Tabellenblatt.

ich kopiere zwar die Richtige ziele doch es werden immer die Formeln mit eingefügt :-(

wie kann ich Kopien und Werte einfügen im VBA machen?

Das ist meine Codezeile dazu:
Code:

wie bekomme ich es hin das nicht die Formeln sondern die Werte Kopiert und eingefügt werden?

Was auch schön wäre wenn beim Kopien und einfügen das Format mit übernommen wird.

Gruß Mücke

:)

 

Hallo

kannst du den Makrorekorder bedienen?
Zeile kopieren --> Zielzelle anwählen
Rechtsklick --> Inhalte einfügen und die Optionen auswählen die die Werte und Formatierungen einfügen

MfG Tom

 

:-) den kenne ich, ja, jedoch macht der immer einen sehr merkwürdigen Code, mit, mit dem ich wenig anfangen kann :-(

Ich habe was gefunden: so geht es.


Code:

Wobei die Formatierung nicht mit Kopiert wird.
Das ist jedoch nur zweitrangig, in dem Fall.


Gruß Mücke

 

Hallo

mein Rekorder gibt bei xl2010 bereinigt so etwas aus

Code:

MfG Tom

 

Hallo zusammen,

ich versuche auch grade eine Reiher von Werten aus Datenfeldern in eine andere Datei zu übertragen.

Der Compiler meldet hier jedoch, dass er ein Anweisungsende erwartet.

wsQuelle.Range("F32").Copy wsUebersicht.Range("C4").PasteSpecial Paste:=xlPasteValues

Was fehlt denn?

 

Hallo,

so kann das natürlich nicht funktionieren: die Methode PasteSpecial ist doch kein Range, sondern eben eine Methode, die in diesem Fall auf den Range C4 von wsUebersicht angewendet wird.

Folgendes sollte funktionieren, wenn man die erste Zeile (Dim ...) voraussetzt:

Code:

Sub ttt()
  Dim wsQuelle As Worksheet, wsUebersicht As Worksheet
 
  wsQuelle.Range("F32").Copy
  wsUebersicht.Range("C4").PasteSpecial Paste:=xlPasteValues
End Sub

Die Methode Copy kopiert den Range F32 aus wsQuelle in die Zwischenablage. Von dort fügt die Methode PasteSpecial den Wert in den Range C4 von wsUebersicht ein.

 

Okay, perfekt, allerdings kommt es bei mir ohne das Paste:= dazwischen aus.

wsQuelle.Range("F32").Copy
wsUebersicht.Range("C4").PasteSpecial xlPasteValues

Die Variablen waren natürlich schon definiert, so läuft es wie gewünscht.
Danke schön.