Worksheet_SelectionChange: verschiedene Makros in
16.07.2018 15:35:32
Sascha
ich würde gerne in einem Dokument in mehreren definierten Zellen zwei unterschiedliche Makros aufrufen.
Bei Klick auf B13 soll das Makro add_line aufgerufen werden,
bei Klick auf die Zellen H17 bis H23 das Makro del_line.
Ich habe schon verschiedene Lösungsansätze getestet, aber nichts davin will funktionieren. Wie in etwa dieser hier:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ber As Range
Dim ber2 As Range
Dim ber3 As Range
Dim ber4 As Range
Dim ber5 As Range
Dim ber6 As Range
Dim ber7 As Range
Dim ber8 As Range
Set ber = Range("B13")
Set ber2 = Range("H17")
Set ber3 = Range("H18")
Set ber4 = Range("H19")
Set ber5 = Range("H20")
Set ber6 = Range("H21")
Set ber7 = Range("H22")
Set ber8 = Range("H23")
If Target.Address = ber.Address Then add_line
If Target.Address = ber2.Address Then del_line
If Target.Address = ber3.Address Then del_line
If Target.Address = ber4.Address Then del_line
If Target.Address = ber5.Address Then del_line
If Target.Address = ber6.Address Then del_line
If Target.Address = ber7.Address Then del_line
If Target.Address = ber8.Address Then del_line
End Sub
Das kann man doch bestimmt eleganter lösen - ich hab nur keinen blassen Schimmer, wie...
Kann mir von Euch jemand helfen bitte?
Danke im Voraus :)