cyberstefke
Gebruiker
- Lid geworden
- 8 okt 2008
- Berichten
- 90
Ik heb volgende macro kunnen vinden voor het zoeken naar een tabblad.
Dit werkt echter alleen met de volledige naam. Ik zit met nogal complexe namen die ik niet van buiten ken.
Is deze macro aanpasbaar zodat ik ook zou kunnen zoeken op een deel van de naam?
Alvast dank!
Sub SearchSheetName()
Dim xName As String
Dim xFound As Boolean
xName = InputBox("Enter sheet name to find in workbook:", "Sheet search")
If xName = "" Then Exit Sub
On Error Resume Next
ActiveWorkbook.Sheets(xName).Select
xFound = (Err = 0)
On Error GoTo 0
If xFound Then
MsgBox "Sheet '" & xName & "' has been found and selected!"
Else
MsgBox "The sheet '" & xName & "' could not be found in this workbook!"
End If
End Sub
Dit werkt echter alleen met de volledige naam. Ik zit met nogal complexe namen die ik niet van buiten ken.
Is deze macro aanpasbaar zodat ik ook zou kunnen zoeken op een deel van de naam?
Alvast dank!
Sub SearchSheetName()
Dim xName As String
Dim xFound As Boolean
xName = InputBox("Enter sheet name to find in workbook:", "Sheet search")
If xName = "" Then Exit Sub
On Error Resume Next
ActiveWorkbook.Sheets(xName).Select
xFound = (Err = 0)
On Error GoTo 0
If xFound Then
MsgBox "Sheet '" & xName & "' has been found and selected!"
Else
MsgBox "The sheet '" & xName & "' could not be found in this workbook!"
End If
End Sub