Mein Script!
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="D:\KalkulationE.xls", FileFormat:=xlNormal
Dim r%, z%
r = Cells(Rows.Count, 1).End(xlUp).Row
For z = 1 To r Step 1
Workbooks("Object").Activate
If Range("B" & z).Value = "A" Then
Workbooks("Object").Activate
Range("C" & z).Select
Selection.Copy
Workbooks("KalkulationE").Activate
Range("A9").Select
ActiveSheet.Paste
ElseIf Range("B" & z).Value = "M" Then
Workbooks("Object").Activate
Range("C" & z).Select
Selection.Copy
Workbooks("KalkulationE").Activate
Range("A9").Select
ActiveSheet.Paste
End If
Next z
Ich arbeite mit 2 Workbooks, möchte das aus dem vorhandenen "Object" nur die Zeilen mit den beiden Attributen "A" und "M" in das neu hinzugefügte "KalkulationE" übernommen werden!!
In meinem Script klappt es irgendwie gar nicht! Es sind auch keine Fehler!
Thanx!!