Private Sub WorkSheet_SelectionChange(ByVal Target
15.06.2005 20:08:35
Peter
ich versuche schon den ganzen Abend ein Makro zu erweitern. Dabei geht es
um die Funktion - Beim verlassen einer Zelle Makro ausführen -.
Hatte mir vor einiger Zeit aus dem Archive eine Lösung herauskopiert
bei der ich beim verlassen von einer bestimmten Zelle ein Makro gestartet habe.
Jetzt möchte ich aber das ganze für mehrere Zellen in der Tabelle erweitern.
Dabei komme ich aber nicht richtig weiter.
Für jeweils eine Zelle funktioniert das Makro. Oder ich springe auf eine Zelle
und das MAkro startet sofort?
Wie kann man das nachfolgende Makro vereinfachen?
Wäre nett wenn jemand einen Tip hätte.
Gruß Peter
------------------------------------------------------------------------
Dim bln As Boolean
Private Sub WorkSheet_SelectionChange(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Range("E3")
If Target.Address = rng.Address Then bln = True
If bln = True And Target.Address <> rng.Address Then
Call btnHeader_Click
bln = False
End If
Set rng = Range("b2")
If Target.Address = rng.Address Then bln = True
If bln = True And Target.Address <> rng.Address Then
Call btnHeader_Click
bln = False
End If
Set rng = Range("b3")
If Target.Address = rng.Address Then bln = True
If bln = True And Target.Address <> rng.Address Then
Call btnHeader_Click
bln = False
End If
Set rng = Range("b4")
If Target.Address = rng.Address Then bln = True
If bln = True And Target.Address <> rng.Address Then
Call btnHeader_Click
bln = False
End If
Set rng = Range("b5")
If Target.Address = rng.Address Then bln = True
If bln = True And Target.Address <> rng.Address Then
Call btnHeader_Click
bln = False
End If
Set rng = Range("b6")
If Target.Address = rng.Address Then bln = True
If bln = True And Target.Address <> rng.Address Then
Call btnHeader_Click
bln = False
End If
End Sub
-------------------------------------------------------------------------