Das Archiv des Excel-Forums

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

Excel-Beispiele zum Thema " Kopie von Zeilen wenn...."

Zeilenhöhe in cm festlegen download Summe gefilterter Zeilen download
Zeilenumbruch download Leere Zeilen löschen download
Spalten/Zeilen aus- und einblenden download Zeilenumbruch in Formel erzwingen download
Zeilen und Spalten über ein Drehfeld ein- und ausblenden download Alle Kopf-/Fußzeilen-Festlegungen löschen download
Fußzeilen beim Öffnen eintragen download Zellinhalte zeilenweise sortieren download
Zeilen markieren download Über VBA Schriftgröße von Fußzeilen bestimmen download
Einige Zeilen in einer sequentiellen Datei ersetzen download Zeilen oberhalb der markierten Zellen einfügen download
Anzahl der einzufügenden Zeilen abfragen download Leere Zeilen beim Drucken unterdrücken download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen download
Alle nichtleeren Zeilen markieren download Zeilen mit leeren Formeln beim Druck unterdrücken download
Zeilen bedingt durch SpinButton verschieben download Auf Doppelklick Zeilenumbruch und "X" download
Leere Zeilen beim Druck ausblenden download Menüpunkte zum Einfügen und Löschen von Zeilen hinzufügen download
Zeilenweise sortieren download Leere Zeilen und Spalten in ausgewähltem Bereich löschen download
Alle leeren Zeilen und Spalten entfernen download Kopf-/Fußzeilen-Festlegungen übernehmen download
Zeilen mit Zellen mit rotem Hintergrund ausblenden download Nur Zeilen mit einer "2" drucken download
Nur Zeilen mit bestimmtem Inhalt in HTML-Datei konvertieren download Schriftart in Zeilen wechselweise fett/nicht-fett formatieren download
Zeilenweise von Blatt zu Blatt kopieren download Doppelte Datensätze und Leerzeilen löschen download
Alle Zeilen außer der mit dem höchsten Wert löschen download In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften download
Mit InputBoxes Zeilennummern abfragen und Summe bilden download Kofpzeilenwerte angekreuzter Zellen multiplizieren download
Zeilen eines zweiten Blattes im ersten über Drehfeld anzeigen download Zeilenumbrüche im aktiven Blatt entfernen download
Werte von jeweils zwei Zeilen verbinden download Bei Zeileneintrag Anzeige von "erledigt" download
Werte aus Tabelle1 mit zusätzlichen Leerzeilen in Tabelle2 download Zeilenumbrüche in eine *.CSV-Datei übernehmen download
Druckstart- und endzeilen über InputBox abfragen download Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download
Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download Zeilen einfügen, Werte und Bezüge zu den Werten eintragen download
Tabellenzeilen in Abhängigkeit einer zweiten Tabelle einblenden download Tabellen vergleichen und Zeilen ersetzen download