Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Zeilen Kopieren mit Bedingung





Frage

Und da bin ich schon wieder und brauche hilfe Schönen guten Tag erst mal an alle die mir helfen wollen :-) Es geht mal wieder um eine Makro Ich bräuchte eine Makro die mir immer die Spalte L durchsucht nach leeren Einträgen (Freie Zellen) wenn diese eine leere Zelle in Spalte L gefunden worden ist soll dann die Ganze Zeil wo die leere Zelle liegt Kopiert werden in eine neu Excel Datei (z.B. leer.xls) aber die alten Eintrege in der leer.xls Datei dürfen nicht überschrieben werden. Wer von euch kann mir helfen? Gruß Hell

Antwort 1 von Hellchampion

Ich habe das Problem anderst gelöst.


CODE

Sub leer_kopieren()

Columns("L:L").Select
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="="
Rows("2:2000").Select
Selection.Copy
Windows("leer.xls").Activate
Cells(Rows.Count, 2).End(xlUp).Offset(1, -1).Select
ActiveSheet.Paste
Windows("Zusammenfassung.xls").Activate
Selection.AutoFilter

End Sub


Antwort 2 von spaceman166

Hallo zusammen

ich hätte ein ähliches problem
nur das bei mir in Spalte L ein Eintrag ist
die zeilen sollen dann in ein neues formular kopiert werden

vielen dank schonmal