Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen Kopieren Wenn Bedingung erfüllt und in andere Excel Speichern
 04.02.2020 18:02:53 Sors
Solved
05.02.2020 14:49:49 Werner
NotSolved
06.02.2020 10:16:50 Sors
NotSolved

Ansicht des Beitrags:
Von:
Sors		 Datum:
04.02.2020 18:02:53		 Views:
1174		 Rating:
     
Antwort:
 Nein
Thema:
Zeilen Kopieren Wenn Bedingung erfüllt und in andere Excel Speichern

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!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen Kopieren Wenn Bedingung erfüllt und in andere Excel Speichern
 04.02.2020 18:02:53 Sors
Solved
05.02.2020 14:49:49 Werner
NotSolved
06.02.2020 10:16:50 Sors
NotSolved