Probleme mit "Such"-Makro
27.08.2004 08:54:27
Andi
hae ein Problem mit folgendem MAkro:
Sub BlattAuswählen()
Dim q
Application.ScreenUpdating = False
On Error Resume Next
Dim wks As Worksheet
Dim strWKS As String
neuerversuch:
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.Select
Exit Sub
End If
Next wks
q = MsgBox("Blattname existiert nicht. Neues Prüfblattlatt anlegen?", vbYesNo)
If q = vbNo Then Exit Sub
If q = vbYes Then
Call Makro_neues_Blatt_anlegen
End If
Application.ScreenUpdating = True
End Sub
Die Meldung in der MsgBox kommt immer, auch wenn das Blatt existiert...
Kann jemand helfen?
Gruß Andi