4.6k Aufrufe
Gefragt in Tabellenkalkulation von
Hallo VBA Freunde!

Wer kann mir beim folgenden Problem helfen?
Ich stelle der Einfachheit halber den Code unten an.
Paste Spezial funktioniert nicht.
Vielen Dank Walter.

Option Explicit
Sub Makro5()

Windows("Test28.xls").Activate
Sheets("Pflege").Select
Range("Z11:CZ16").Select
Selection.Copy
Windows("Speicher.xls").Activate
Range("Z65536").End(xlUp)(2).Activate
ActiveSheet.PasteSpezial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

[*]
[sup]*Threadedit* 22.04.2010, 13:39:59
Admininfo: Thread verschoben. Führe bitte Threads nicht fort indem du Weitere eröffnest, und vermeide Mehrfachanfragen. Die Datenbank und User werden es dir danken.
Siehe FAQ 2, #3.
[/sup]

11 Antworten

0 Punkte
Beantwortet von walter10 Einsteiger_in (17 Punkte)
Danke Helmut, es funktioniert!!!

Jetzt kann ich an den Auswertungen weiterstricken und alle Daten nach Wunsch sichern.

mfg Walter
...