Hilfe bei "If Intersect(ActiveCell,...."
20.04.2006 15:45:07
Torsten
folgender Code verursacht eine Fehlermeldung "Objektvariable oder With-Blockvariable nicht festgelegt":
Private Sub cmb_DETAIL_Click()
If Intersect(ActiveCell, Range("A7:A31")) Or _
Intersect(ActiveCell, Range("A37:A46")) Is Nothing Then
MsgBox "Bitte setzen Sie den Cursor auf eine lfd. Nr. Ihrer Investitionen"
Exit Sub
Else
Sheets(CStr(Selection)).Visible = True
Sheets(CStr(Selection)).Select
End If
End Sub
Der Fehler tritt erst seit dem Einfügen der "Or-Zeile" auf. Vorher lief's.
Kann mir jemand weiterhelfen bei der richtigen Syntax?
Vielen Dank im voraus.
Gruß
Torsten