Suchen/Ersetzen-Fenster öffnen

Forumthread: Suchen/Ersetzen-Fenster öffnen

01.03.2006 13:15:36

Fabio

Hallo zusammen,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchen/Ersetzen-Fenster öffnen

01.03.2006 16:46:03

Ulf
Danke !

02.03.2006 11:01:11

Fabio

AW: Suchen/Ersetzen-Fenster öffnen

01.03.2006 16:46:03

Ulf

Hallo Fabio


Sub Drucken()
SendKeys ("^p") 'STRG+P
End Sub


Sub Suchen()
SendKeys ("^f") 'STRG+F
End Sub


Sub Ersetzen()
SendKeys ("^h") 'STRG+H
End Sub


Sub GeheZu()
SendKeys ("^g") 'STRG+G
End Sub

viel Spaß
mfg Ulf

Danke !

02.03.2006 11:01:11

Fabio

Das war es was ich suchte !

Forumthread: Suchen/Ersetzen-Fenster öffnen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread