Thema Datum  Von Nutzer Rating
Antwort
Rot Über Textbox in Listbox nach Tabellennamen suchen
12.11.2022 13:06:05 Marcus
NotSolved
12.11.2022 13:47:42 Gast87505
NotSolved
12.11.2022 14:51:28 Marcus
NotSolved
12.11.2022 15:07:40 ralf_b
NotSolved
12.11.2022 18:20:04 Gast79511
***
Solved
13.11.2022 09:41:12 Marcus
NotSolved
12.11.2022 18:56:52 Gast56184
NotSolved
13.11.2022 13:02:41 Gast72634
NotSolved

Ansicht des Beitrags:
Von:
Marcus
Datum:
12.11.2022 13:06:05
Views:
193
Rating: Antwort:
  Ja
Thema:
Über Textbox in Listbox nach Tabellennamen suchen

Hallo,
ich habe eine Exeldatei mit vielen Tabellen. Ich würde gern über eine ListBox mit allen Tabellennamen befüllen.

Über die Textbox ein können dann Zahlen und Buchstaben eigegeben werden, woraus sich die Listbox nur die Tabellenblätter Filtert welche diese Zahlen + Buchstaben enthalten.
Leider komme ich bei der Textbox mit der Suche nicht weiter.Die Listbox zu befüllen habe ich geschafft.

Hätte jemand eine Idee? 

 

 

Option Explicit

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

'Ausgewähltes Tabellenblatt aktivieren
worksheets(ListBox1.List(ListBox1.ListIndex)).Activate

'Userform schließen
Unload Me


End Sub

Private Sub TextBox1_Change()

Dim ws As Worksheet

'Listbox leeren
Me.ListBox1.Clear

'Schleife über alle Tabellenblätter
For Each ws In worksheets

     
    If InStr(ws, LCase(ListBox1.ListCount), LCase(Me.TextBox1.Value)) <> 0 Then
    End If
    Next
    '
    'Tabellenblatt ListBox hinzufügen
    ListBox1.AddItem ws.Name
    
    'Prüfen, ob Tabellenblatt das aktive Tabellenblatt ist
    If ws.Name = ActiveSheet.Name Then ListBox1.ListIndex = ListBox1.ListCount - 1
    
Next ws
End Sub

Private Sub UserForm_Initialize()

'Variable dimensionieren
Dim ws As Worksheet

'Schleife über alle Tabellenblätter
For Each ws In worksheets

'Tabellenblatt ListBox hinzufügen
ListBox1.AddItem ws.Name
    
'Prüfen, ob Tabellenblatt das aktive Tabellenblatt ist
If ws.Name = ActiveSheet.Name Then ListBox1.ListIndex = ListBox1.ListCount - 1
    
Next ws
End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Über Textbox in Listbox nach Tabellennamen suchen
12.11.2022 13:06:05 Marcus
NotSolved
12.11.2022 13:47:42 Gast87505
NotSolved
12.11.2022 14:51:28 Marcus
NotSolved
12.11.2022 15:07:40 ralf_b
NotSolved
12.11.2022 18:20:04 Gast79511
***
Solved
13.11.2022 09:41:12 Marcus
NotSolved
12.11.2022 18:56:52 Gast56184
NotSolved
13.11.2022 13:02:41 Gast72634
NotSolved