lngZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1 ' Ermittlung der letzten Zeile in Spalte A (+ eine Zeile)
.Cells(lngZeile, 1).Value = "NEU" ' Einfügen einer Neuen Zeile in Spalte A wird der Wert "NEU" reingeschriben
Im With Block musst du vor Cells noch einen Punkt machen, sonst bringt dir das with ja gar nichts ;) |