Tabelettenblatt Suchfunktion
23.10.2005 20:57:50
Tom
ich hab zwei Probleme.
1. Wenn ich alles so wie unten eingebe funktioniert der Code mit der Suche nicht. ==> Warum?
2. Geb ich den Code für die Suche alleine ein funktioniert er nur für die aktive Excel Datei. ==>Wie kann ich Ihn auf alle geöffneten Excel Dateien anwenden?
Vielen Dank für eure Hilfe
Sub Workbook_Open()
Workbooks.Open Filename:="D:\.....xls"
Workbooks.Open Filename:="D:\......xls"
End Sub
Sub suche() (Danke an Ramses)
Do
On Error Resume Next
Worksheets(InputBox("Bitte Tabellenname eingeben")).Select
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Loop
End Sub
Anzeige