Objekt erforderlich bei "Intersect"
06.02.2021 16:59:09
Armin
bin nicht völlig unbeholfen im Umgang mit EXCEL-VBA, trotzdem komme ich bei dieser recht einfachen Anforderung offenbar nicht ohne Unterstützung aus...
Ich möchte prüfen, ob die Eingabe im Wertebereich vorgenommen wurde. Falls außerhalb, dann InfoBox...:
Sub Finden()
Dim WS1 As Worksheet
Set WS1 = Worksheets("Tabelle1")
Dim WERTEBEREICH As Range
Set WERTEBEREICH = WS1.Range(WS1.Cells(12, 9), WS1.Cells(12, 11).End(xlDown))
Zelle = ActiveCell.Value
If Intersect(Zelle, WERTEBEREICH) Is Nothing Then HINWEIS = MsgBox("Ihre Auswahl befindet sich _
nicht im Wertebereich", vbExclamation, "Info")
End Sub
Viel probiert und recherchiert, jedoch bisher nicht zielführend.
Kann mir jemand sagen, welches Objekt hier erforderlich ist...?
Besten Dank im Voraus.
Armin
Anzeige