Wie bringe ich einem Makro bei...

Question

Hallo,
kurze Frage :

wie sage ich Excel in der Makroprogrammierung, das
wenn in Zelle $S$16 eine 1 ist füre Makro LK1 aus,
wenn eine 2 dann LK2 wenn eine 3 dann LK3 usw.

Das ich das entsprechende Makro beim verlassen der Zelle mit folgender Zeile ausführen kann weiß ich ja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("S16")) Is Nothing Then Exit Sub
Application.Run "LK1"
End Sub

Allerdings fehlt mir die Möglichkeit eben LK1,LK2, LK3....
variable nach Zelleninhalt zu gestalten.

Gruß Volker

Answer 1

Hallo Volker

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.address= "$S1$6" Then
Select case Target
case "LK1"
Lk1
Case "LK2"
Lk2
End select
End Sub

Gruß Hajo