Suchen/Ersetzen-Fenster öffnen
01.03.2006 12:15:36
Fabio
wer kann mir das Makro aus dem Forum noch ergänzen um "
"Öffne das Suchen/Ersetzen Fenster"
Danke Fabio
Das Makro :
Sub letzte_zeile_kopieren()
Rows(Range("A65535").End(xlUp).Row).Copy
Rows(Range("A65535").End(xlUp).Row + 1).Insert
Rows(Range("A65535").End(xlUp).Row).Select
End Sub