Supportnet / Forum / Tabellenkalkulation

Ich bräuchte eine Makro die mir immer die Spalte L nach Einträgen durchsucht (ausgefüllten Zellen) wenn eine ausgefüllte Zelle in Spalte L gefunden worden ist soll dann die Ganze Zeile Kopiert werdenund in eine neu Excel Datei (z.B. Rechnungsnummer.xls) kopiert werden. Aber die alten Einträge in der Rechnungsnummer.xls Datei dürfen nicht überschrieben werden. Wer von euch kann mir helfen? Gruß Chris

na denn, sucht text in Zelle L

Sub test()
Dim merk As Integer ´Anzahl der leeren Zellen = 10
Range("L1").Select
Do
If ActiveCell = "" Then
ActiveCell.Offset(1, 0).Select
End If
If ActiveCell <> "" Then
ActiveCell.Offset(0, -11).Range("A1:L1").Select ´Kopieren
´ActiveCell.Activate
Selection.Copy
Workbooks.Open Filename:= _
"E:\Rechnungsnummer.xls" ´Ziel der ReNr.xls
Range("A1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste ´Einfügen
ActiveWorkbook.Save ´ReNr schließen und speichern
ActiveWindow.Close
Windows("Eingabe.xls").Activate
ActiveCell.Offset(1, 11).Select
End If
merk = merk + 1
Loop Until merk = 10 ´stoppt nach 10 leerzellen
Range("A1").Select
MsgBox "Daten übertragen"
End Sub

mfg
roland

• Zeilen, die in Spalte 9 ein X enthalten in anderes Blatt kopieren
• Tabelle vergleichen und aktualisiren
• Makro -Zeilen aufgrund von Kriterien abwechselnd mit 2 Farben einfärben?
• jede 5 Zeile aus .txt Datei in Excel kopieren
• Tabelle ohne ausgeblendeten Text kopieren in andere Tabelle