Tabellenblatt suchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: Tabellenblatt suchen
von: Michael
Geschrieben am: 20.04.2015 23:43:05

Hallo Leute
habe eine Mappe mit 50 Tabellen Tabelle 1-50
Nun möchte ich gerne hinter einen Button eine MsgBox legen wo ich dann
Die Nummer eingeben kann und dann die gesuchte Tabelle geöffnet wird .
Alle 50 Tabellen sind in einer Mappe.
Vielen Dank schonmal
Gruß Michael

Bild

Betrifft: AW: Tabellenblatt suchen
von: fcs
Geschrieben am: 21.04.2015 07:25:41
Hallo Michael,
hier ein entsprechendes Makro.
Diese fügst du in ein allgemeines Modul der Datei ein und weist es dann einer Schaltfläche zu.
Gruß
Franz

Sub AktivierenBlatt()
    Dim varBlatt
    On Error Resume Next
    varBlatt = InputBox("Blattname/Nummer", "Eingegebenes Blatt aktivieren", 1)
    
    If varBlatt = "" Then Exit Sub
    
    ActiveWorkbook.Sheets(varBlatt).Activate
    If Err.Number <> 0 Then
        MsgBox "Blatt """ & varBlatt & """ existiert nicht!", vbOKOnly, _
             "Fehler - Makro AktivierenBlatt"
    End If
    Err.Clear
End Sub


Bild

Betrifft: AW: Tabellenblatt suchen
von: Bernd
Geschrieben am: 21.04.2015 07:29:03
Hi Michael!
teste mal das hier:
https://www.herber.de/bbs/user/97189.xlsm

Rückmeldung wäre nett !!! 


>>> mfg Bernd <<<

Sicher ist, dass nichts sicher ist. Selbst das nicht.


Bild

Betrifft: AW: Tabellenblatt suchen
von: Michael
Geschrieben am: 21.04.2015 11:51:37
Hallo Bernd
Makro läuft super aber ist es auch möglich das man nur die Nummer eingibt statt Tabelle 2 .
Meine Tabellen heißen Spieltag 1 - Spieltag 34.
Gruß Michael

Bild

Betrifft: AW: Tabellenblatt suchen
von: Michael
Geschrieben am: 21.04.2015 09:30:38
Danke euch beiden
funktionieren beide sehr gut nur noch eine Frage.
Kann ich auch nur nach der Nummer suchen und nicht nach Tabelle 5 zb.
Meine Tabellen heißen Spieltag 1-Spieltag 34 wäre leichter nur die Nummer einzugeben als jedesmal "Spieltag 2"
Gruß und nochmals danke für die schnelle Hilfe ihr seid die besten.
Michael

Bild

Betrifft: AW: Tabellenblatt suchen
von: fcs
Geschrieben am: 21.04.2015 09:54:50
Hallo Michael
passe die folgende Zeile an

    ActiveWorkbook.Sheets("Spieltag " & varBlatt).Activate
Gruß
Franz

Bild

Betrifft: AW: Tabellenblatt suchen
von: Michael
Geschrieben am: 21.04.2015 10:15:26
Okay super hat geklappt.
Danke

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt suchen"