Hallo Ihr Lieben,
ich will alle Sheets von einer Excel überprüfen ob eine Bestimmte Bedingung erfüllt und und dann die gesamten Zeilen in eine andere Excel Kopieren.
Dazu hier mein Code:
Sub ZeilenAusblenden()
Dim ws As Worksheet, i As Integer, n As Integer
Application.ScreenUpdating = False
Workbooks.Open "C:\Users\Sors\Desktop\Sors Projekt\Testbericht.xlsm"
For Each ws In Workbooks("Testfallkatalog.xlsm").Worksheets
ws.Activate
For i = 1 To 100
If ws.Cells(i, "H") = "x" Then
ws.Range("i:i").Copy _
Destination:=Workbooks("Testbericht.xlsm").Sheets("Tests bestanden").Range("n:n")
End If
Next i
Next ws
Application.ScreenUpdating = True
End Sub
Das funktioniert aus irrgendeinen Grund nicht. Kann mir da jemand meinen Fehler aufzeigen?
Danke!
|