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
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
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

