Läuft bei mir, ich benutze allerdings auch Excel 2003. Würde mich aber wundern wenn in Excel 2007 einer der Befehle in der Zeile nicht mehr funktionierte.
Mit NameSuchen "textbox1.text" wird übrigens nach "textbox1.text" in der Tabelle gesucht, nicht nach dem Inhalt einer Textbox.
Pack den Code mal in ein Standardmodul und ruf dann von dem Code deiner Userform aus (z.B. durch einen Button)
"NameSuchen textbox1.text" auf.
Und änder mal zum testen
"LR = Sheets( "Combined Edit" ).Cells(Rows.Count, 1). End (xlUp).Row"
in eine absolute Angabe wie z.B.
" LR = 100"
um.
Und versuchs mal ohne "Option Compare Database".
|