Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

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"