Doubleclick und Intersect auf mehrere benannte Bereiche

06/03/2009 - 08:43 von Richard | Report spam
Hallo an alle!

Folgende Ausgangsposition (Excel 2003):

Ich habe eine Tabelle die verschiedene benannte Bereiche enthàlt.

Mittels dem beforedoubleclick Verhalten kann ich über die Intersect
Abfrage bei Doppelklick einen neuen Makro starten.

Gibt es auch eine Möglichkeit, je nachdem in welchem benannten Bereich
der Doppelklick erfolgte verschiedene Makros zu starten?

Private Sub worksheet_beforedoubleclick(ByVal target As Range, cansel
As Boolean)

If Intersect(target, Range("Garantie1")) Is Nothing Then
Exit Sub
Else
Call ISIN_Click
End If

End Sub

Schöne Größe aus der Steiermark - Richard
 

Lesen sie die antworten

#1 Andreas Killer
06/03/2009 - 09:10 | Warnen spam
On 6 Mrz., 08:43, Richard wrote:

Ich habe eine Tabelle die verschiedene benannte Bereiche enthàlt.


...
Mittels dem beforedoubleclick Verhalten kann ich über die Intersect
Abfrage bei Doppelklick einen neuen Makro starten.

Gibt es auch eine Möglichkeit, je nachdem in welchem benannten Bereich
der Doppelklick erfolgte verschiedene Makros zu starten?


Hmmm???? Die Frage hast Du Dir selber beantwortet, ich schreibs mal
ein wenig um, dann wird's lesbarer:

Private Sub worksheet_beforedoubleclick(ByVal target As Range, cansel
As Boolean)



If not Intersect(target, Range("Garantie1")) Is Nothing Then
   Call ISIN_Click
elseif not Intersect(target, Range("Garantie2")) Is Nothing Then
Call SonsteWas
End If

End Sub



Andreas.

Ähnliche fragen