Tabellenblatt aufrufen
20.10.2005 20:02:08
Tom
(Es soll ein Tabellenblatt aus einer geöffneten Excel Datei aufgerufen werden)
wenn ich hier den Namen eines Tabellenblatts eingebe, bekomme ich immer eine Fehlermeldung: Index auserhalb des gültigen Bereichs.
Kann mir da jemand weiterhelfen ?
Danke
Sub suche()
Zeile1:
Dim C
C = Worksheets(InputBox("Bitte Tabellenname eingeben")).Select
Set C = Nothing
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbYes Then GoTo Zeile1
If MsgBox("WeiterSuchen", vbYesNo + vbQuestion) = vbNo Then Exit Sub
End Sub
Anzeige