![]() |
Betrifft: Klick in definierten Rangebereich startet Dialog
von: Karsten Böhme
Hallo,
ich möchte, das wenn der User in einen Bestimmten Rangebereich des Arbeitsblattes klickt (ist geschützt), das dann geprüft wird was dort in der Zelle steht und dann ein Dialog geöffnet wird.
Soweit klappt das. Nur wir das auch außerhalb des definierten Ranges gemacht und produziert einen Fehler.
Wer kann helfen?
Hier das Script:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("$L$17:$BY$57")) <> "" Then
Call Auswertung
End If
End Sub
Schon einmal vielen Dank im vorraus.
Gruß Karsten
![]() |
Betrifft: AW: Klick in definierten Rangebereich startet Dialog
von: Rudi Maintaire
Geschrieben am: 16.06.2008 15:42:04
Hallo,
falsche Abfrage!
If Not Application.Intersect(Target, Range("$L$17:$BY$57")) Is Nothing Then
Gruß
Rudi
![]() |
Betrifft: AW: Klick in definierten Rangebereich startet Dialog
von: UweD
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$L$17:$BY$57")) Is Nothing Then
MsgBox "Liegt im Bereich"
Call Auswertung
Else
MsgBox "Liegt außerhalb"
End If
End Sub
Gruß UweD
![]() |
Betrifft: AW: Klick in definierten Rangebereich startet Dialog
von: Karsten Böhme
Geschrieben am: 16.06.2008 16:00:21
@Rudi Maintaire und @UweD
vielen Dank, das Problem ist somit gelöst!
gruß Karsten
![]() |