Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub suchundeinfueg()
ActiveSheet.Range("A65536").End(xlUp).EntireRow.Select
End Sub
Vielleicht kann mir jemand den fehlenden Einzeiler sagen ? :-)
gruß Eddie