mfg Redneck
Sub suchbegriff_sheetsmarkierung()
Dim such As Sheet
Set such = Sheets.Find(InputBox("Bitte den Suchbegriff eingeben"))
such.Sheet.Select
End Sub
Sub suchbegriff_sheetsmarkierung()
Dim such As string
on error resume next
such = InputBox("Bitte den Suchbegriff eingeben")
Sheets(such).Select
End Sub