Herbers Excel-Forum - das Archiv
Kopie von Zeilen wenn....
- Kopie von Zeilen wenn.... von A. vom 19.09.2003 14:25:22
- und wohin kopieren? oT - von B. am 19.09.2003 14:31:31
- AW: Kopie von Zeilen wenn.... - von A. am 19.09.2003 14:41:23
- AW: Kopie von Zeilen wenn.... - von B. am 19.09.2003 14:48:40
- AW: Kopie von Zeilen wenn.... - von A. am 19.09.2003 14:53:15
- AW: Kopie von Zeilen wenn.... - von A. am 19.09.2003 15:02:10
- AW: Kopie von Zeilen wenn.... - von B. am 19.09.2003 16:20:06
- AW: Kopie von Zeilen wenn.... - von B. am 19.09.2003 16:20:06
- AW: Kopie von Zeilen wenn.... - von A. am 19.09.2003 15:02:10
- AW: Kopie von Zeilen wenn.... - von A. am 19.09.2003 14:53:15
- AW: Kopie von Zeilen wenn.... - von B. am 19.09.2003 14:48:40
- und wohin kopieren? oT - von B. am 19.09.2003 14:31:31
 |
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.
 |
Betrifft: und wohin kopieren? oT
von: B.
Geschrieben am: 19.09.2003 14:31:31
B.
|
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.
|
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.
|
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.
|
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...
|
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.
| |