Kopie von Zeilen wenn....

Bild

Betrifft: Kopie von Zeilen wenn....
von: A.
Geschrieben am: 19.09.2003 14:25:22

Hallo zusammen!

Ich habe folgendes Problem:

Ich habe eine Excel-Datei, die aus mehreren Blättern besteht. Alle diese Blätter haben das selbe Format. Ich möchte nun alle Zeilen (von allen Blättern) kopieren, die in der Spalte D einen bestimmten Wert eingetragen haben.

Wer kann mir bei diesem Problem mit einem Makro aushelfen?

Danke!!!

A.

Bild


Betrifft: und wohin kopieren? oT
von: B.
Geschrieben am: 19.09.2003 14:31:31

B.


Bild


Betrifft: AW: Kopie von Zeilen wenn....
von: A.
Geschrieben am: 19.09.2003 14:41:23

Sorry...hatte ich vergessen... auf ein das Tabellenblatt "Zusammenfassung"!

A.


Bild


Betrifft: AW: Kopie von Zeilen wenn....
von: B.
Geschrieben am: 19.09.2003 14:48:40

Noch zu ungenau, so ein Tabellenblatt ist groß.
Immer untereinander?

B.


Bild


Betrifft: AW: Kopie von Zeilen wenn....
von: A.
Geschrieben am: 19.09.2003 14:53:15

Genau....das Tabellenballt auf das die kopierten Zeilen sollen hat genau das gleiche Format wie alle anderen Blätter! Die entsprechenden Zeilen einfach untereinander kopieren. Schick wäre dann natürlich noch eine Sortierung nach Spalte A... aber das ist nicht unbedingt notwendig...

Danke!

A.


Bild


Betrifft: AW: Kopie von Zeilen wenn....
von: A.
Geschrieben am: 19.09.2003 15:02:10

ja....wenn möglich start ab Zeile 2! Dann kann ich den Start über einen Button (in Zeile 1) anstossen...


Bild


Betrifft: AW: Kopie von Zeilen wenn....
von: B.
Geschrieben am: 19.09.2003 16:20:06


Sub sammeln()
Dim Wks1 As Worksheet, Wks As Worksheet
Dim z As Long, lzWks1 As Long, lzWks As Long
Set Wks1 = Sheets("Zusammenfassung")
For Each Wks In Worksheets
  lzWks1 = Wks1.[a65536].End(xlUp).Row + 1
  If Not Wks.Name = Wks1.Name Then
    lzWks = Wks.[d65536].End(xlUp).Row
      For z = 2 To lzWks
        If Wks.Cells(z, 4) = "Test" Then
          Wks.Rows(z).Copy Wks1.Rows(lzWks1)
          lzWks1 = lzWks1 + 1
        End If
      Next
  End If
Next
Wks1.[A2:IV65536].Sort Key1:=Wks1.[a2], Order1:=xlAscending, Header:=xlGuess
End Sub


B.


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Kopie von Zeilen wenn...."