Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Klick in definierten Rangebereich startet Dialog

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


 

Beiträge aus den Excel-Beispielen zum Thema "Klick in definierten Rangebereich startet Dialog"