Office: Wieder mal "Paste nur Werte"

Hallo,

ich habe folgenden Code, der nicht funktioniert wie ich denke. Er stammt soweit ich weiß auf der einen Seite vom Makro-Recorder, und dann habe ich mit Infos aus dem Internet versucht, nicht nur eingegebene Werte sondern auch berechnete Mittelwerte zu pasten:

' Zeit und Texte auf das Blatt "Mittelwerte Größe" kopieren
Sheets("Messungen").Select
Range("A4:E4").Select
Selection.Copy
Sheets("Mittelwerte Größe").Select
Range("A3").Select
ActiveSheet.Paste

' Jetzt die Mittelwerte auf "Mittelwerte Größe" kopieren
Sheets("Messungen").Select
Range("F14:J14").Select
Selection.Copy
Sheets("Mittelwerte Größe").Select
Range("F3").Select
ActiveSheet.Paste
Selection.Cells.PasteSpecial Paste:=xlPasteValues

Er tut aber gar nichts. Bzw. wenn die vorletzte Zeile "ActiveSheet.Paste" auskommentiert ist tut er nichts. Mit der Zeile kopiert er Farb-Formate.

Wie muss ich es machen, damit er die Werte aus "Messungen/F14:J14" in "Mittelwerte Größe" kopiert?

Vielen Dank, Frank

:)

 

Nachtrag: Der erste Absatz tut natürlich was, in A4:E4 stehen aber auch eingegebene Werte und nicht Formeln. Der zweite Absatz mit dem PasteSpecial tut nichts.

 

Hallo Frank,

Code:

Wenn Du im ersten Teil auch nur die Werte kopieren willst, ändere den Code analog zum zweiten Teil ab.

Grüße
EarlFred

 

Hallo EarlFred,

das hilft leider auch nicht. Ich wollte eine Beispieldatei machen, aber die ist immer noch 3.9 KB groß - obwohl nur ein Modul mit einem Makro drin ist und zwei Reiter mit kaum DAten oder Formeln. Das kann ich nicht ins Forum hochladen.

Das ganze Makro sieht so aus:

Sub Archivieren()
'
' Archivieren Makro
'

'
' Zeit und Texte auf das Blatt "Mittelwerte" kopieren
Worksheets("Messungen").Range("A4:E4").Copy Destination:=Worksheets("Mittelwerte").Range("A3")
'Range(Cells(4,1),Cells(4,5))
' Jetzt die Mittelwerte auf "Mittelwerte" kopieren
Worksheets("Messungen").Range("F14:J14").Copy
Worksheets("Mittelwerte").Range("F3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Sheets("Mittelwerte").Select
Range("A3").Select
Selection.EntireRow.Insert

End Sub

Gibt es irgendwelche Einstellungen, die in der Datei sein könnten und die Funktion verhageln? Das war ursprünglich eine *.xls, also Excel 97.

Vielen Dank im Voraus, Frank

Ich habe die Datei auf das nötigste eingedampft, das Makro heißt "Archivieren" und ist verknpüft mit dem Knopf "Archivieren Löschen und Speichern" im Reiter "Messungen". Löschen tut er auch - beim nächsten Versuch einfach 10 Zeilen aus dem Reiter "Daten" rüberkopieren.

 

Hallo Frank,

Deine Beschreibung leider auch nicht.

Bei mir tut der Code das, was man den Zeilen entnehmen kann: Er kopiert / überträgt Werte. Insofern kann ich Deine Probleme damit nicht nachstellen.

Grüße
EarlFred

 

Hallo,

danke für die Hilfe - dein Code hat geholfen. Das Problem war am Ende peinliches PEBKAC - in den Zellen, wo die Formel stand und die ich kopieren wollte, ist irgendwann der Inhalt verloren gegangen. Und diesen Nicht-Inhalt hat er brav kopiert und ich habe mich geärgert, dass er "nichts kopiert"...

Gruß, Frank