Blatt einblenden mit Input box
01.11.2005 22:24:14
Swiss
ich möchte mittels Inputbox Blätter einblenden. Wenn das Blatt existiert wird es geöffnet, wenn es aber nicht exisitert kommt logischerweise ein Laufzeitfehler.
Nun möchte ich hier aber eine Messagebox mit dem Text "Blatt nicht vorhanden"
Untenstehend das bestehende Script
Die Antwort ist sicher einfach, aber ohne grosse Erfahrung doch einwenig zu schwierig.
Danke für eure Tipps!
Gruss Bluesman
---------------------------------------------------
Private Sub Button_Blatt_Suchen_Click()
Suchbegriff = InputBox("Bitte Blattbezeichnung eingeben:", "Bezeichnung eingeben")
Worksheets(Suchbegriff).Visible = True
Sheets(Suchbegriff).Select
End Sub
Anzeige