Bei Zellbetritt Code ausführen

06/02/2008 - 13:23 von Boas Steiner | Report spam
Hallo zusammen

Vor einiger Zeit habt ihr mir mit nachfolgendem Code geholfen:

Private Sub Worksheet_SelectionChange _
(ByVal Target As Range)
If Target.Address(0, 0) <> "C9" Then Exit Sub
call Makro1
End Sub

Wie muss der Code glauten, damit es mir von mehreren Zellen verschiedene
Makros aufruft?

Nachfolgendes geht ja leider nicht:
Private Sub Worksheet_SelectionChange _
(ByVal Target As Range)
If Target.Address(0, 0) <> "C9" Then Exit Sub
call Makro1
If Target.Address(0, 0) <> "D5" Then Exit Sub
call Makro2
End Sub

Ich bitte um eure Hilfe. Vielen Dank.

Gruss Boas
 

Lesen sie die antworten

#1 Peter Schleif
06/02/2008 - 13:47 | Warnen spam
Boas Steiner schrieb:

Ich bitte um eure Hilfe. Vielen Dank.




ungetestet:

Select Case target.Address(False, False)
Case "C9": Call Makro1
Case "D5": Call Makro2
Case Else: Exit Sub
End Select

Peter

Ähnliche fragen