VBA Codes auslösen beim anclicken mehrere Zellen

28/09/2007 - 10:43 von Tom | Report spam
Hallo,

es gibt doch den Befehl:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
der beim anclicken einer Zelle einen VBA auslösen kann.

Wenn ich aber jetzt mehrere verschiedene Befehle habe und diese an
mehreren
Zellen anbinden will und immer diesen Befehl eingebe, kommt die eine
Konfliktmeldung,
dass dieser Befehl schon existiert.

Bsp.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$B$1" Then


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$C$1" Then


Wie kriege ich das hin, dass verschiedene Zellen verschiedene VBA
Codes auslösen
können?

Danke im voraus

Mfg

Tom
 

Lesen sie die antworten

#1 Kerstin Schiebel
28/09/2007 - 10:51 | Warnen spam
Hallo Tom,

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Target.Address = "$A$1" Then
...
End If

If Target.Address = "$B$1" Then
...
End If

uw.

Ein Select Case wàre vielleicht auch nicht schlecht ;-)

Gruß
Kerstin

"Tom" schrieb im Newsbeitrag
news:
Hallo,

es gibt doch den Befehl:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
der beim anclicken einer Zelle einen VBA auslösen kann.

Wenn ich aber jetzt mehrere verschiedene Befehle habe und diese an
mehreren
Zellen anbinden will und immer diesen Befehl eingebe, kommt die eine
Konfliktmeldung,
dass dieser Befehl schon existiert.

Bsp.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$B$1" Then


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$C$1" Then


Wie kriege ich das hin, dass verschiedene Zellen verschiedene VBA
Codes auslösen
können?

Danke im voraus

Mfg

Tom

Ähnliche fragen