Abfrage in Makro einbauen
23.08.2004 14:54:43
Andi
würde gerne in folgendes Makro eine Abfrage(msgbox reicht), wenn das Blatt nicht in der Mappe existiert, einbauen:
'Tabellenblatt suchen
Sub BlattAuswählen()
Application.ScreenUpdating = False
On Error Resume Next
Dim wks As Worksheet
Dim strWKS As String
strWKS = InputBox("Bitte Prüfblattnummer eingeben:")
For Each wks In Worksheets
If strWKS = "" Then Exit Sub
If InStr(UCase(wks.Name), UCase(strWKS)) > 0 Then
'wks.Visible = True
wks.Select
Exit Sub
End If
Next wks
Application.ScreenUpdating = True
End Sub
Habe schon alles mögliche probiert, komme aber nicht weiter.
Kann mir jemand helfen?
Gruß Andi