Suchen nach Tabellenblatt über Textbox
Betrifft: Suchen nach Tabellenblatt über Textbox
von: Sandra
Geschrieben am: 17.08.2004 10:18:51
Morgen,
warum funktioniert folgender Code nicht??
Private Sub CommandButton1_Click()
'suchen nach Tab.blatt
Application.ScreenUpdating = False
On Error Resume Next
Dim wks As Worksheet
Dim strWKS As String
strWKS = TextBox1.Value
For Each wks In Worksheets
If strWKS = "" Then Exit Sub
If InStr(UCase(wks.Name), UCase(strWKS)) > 0 Then
'wks.Visible = True
wks.Select
Exit Sub
End If
Next wks
Application.ScreenUpdating = True
End Sub
Ich möchte ein Tabellenblatt über eine Textbox suchen.
Wer kann helfen.
Gruß Sandra
Betrifft: AW: Suchen nach Tabellenblatt über Textbox
von: Nike
Geschrieben am: 17.08.2004 10:24:44
Hi,
so?
Private Sub CommandButton1_Click()
'suchen nach Tab.blatt
Application.ScreenUpdating = False
On Error Resume Next
Dim wks As Worksheet
Dim strWKS As String
strWKS = TextBox1.Value
For Each wks In Worksheets
If strWKS = "" Then Exit Sub
If InStr(UCase(wks.Name), UCase(strWKS)) > 0 Then
'wks.Visible = True
wks.Activate
Exit For
End If
Next wks
Application.ScreenUpdating = True
End Sub
Bye
Nike
Betrifft: Ja, so!
von: sandra
Geschrieben am: 17.08.2004 10:26:49
Danke.
Betrifft: AW: Suchen nach Tabellenblatt über Textbox
von: Rudi
Geschrieben am: 17.08.2004 10:26:36
Hallo Sandra
Du musst den Code über eine Ereignisprozedur der TextBox (z.B. TextBox_Change) aufrufen, d.h. das Aktualisieren der TextBox ist das auslösende Ereignis.
Gruss Rudi
Beiträge aus den Excel-Beispielen zum Thema "Suchen nach Tabellenblatt über Textbox"