Makroproblem über Einfügen
11.08.2006 08:44:19
Stefi
ich habe eine Frage über meinen Makro. wie so erscheint die Fehlermeldung wenn die gekopierte Zellen in andere Sheet eingrfügt? könnten sie mir helfen?
-------------------------------------------------------------
Private Sub CommandButton1_Click()
Const Lw = "C:\"
Const Pfad = "C:\Daten"
Const Datei1 = "Filter.xls"
Dim FILTER As Worksheet
Dim VORBEREITUNG As Worksheet
ChDrive Lw
ChDir Pfad
Workbooks.Open Datei1
Set FILTER = ActiveWorkbook.Worksheets("Filter")
With FILTER
.Range("A:A,F:F,O:O,U:U,V:V").Select
Selection.Copy
End With
Windows("Makro PA Auswertung01.xls").Activate
Sheets("Vorbereitung").Select
Set VORBEREITUNG = Worksheets("Vorbereitung")
With VORBEREITUNG
.Cells.ClearContents
.Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
-------------------------------------------------------------------------
vielen Dank
Stefi