Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema MsgBox | |
|---|---|
 Screenshot zu MsgBox |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
Klick in definierten Rangebereich startet Dialog
- Klick in definierten Rangebereich startet Dialog von Karsten Böhme vom 16.06.2008 15:34:39
- AW: Klick in definierten Rangebereich startet Dialog - von Rudi Maintaire am 16.06.2008 15:42:04
- AW: Klick in definierten Rangebereich startet Dialog - von UweD am 16.06.2008 15:47:49
- AW: Klick in definierten Rangebereich startet Dialog - von Karsten Böhme am 16.06.2008 16:00:21
 |
Betrifft: Klick in definierten Rangebereich startet Dialog
von: Karsten Böhme
Geschrieben am: 16.06.2008 15:34:39
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
Geschrieben am: 16.06.2008 15:47:49
Hallo
so herum klappt es.
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
| |