ich habe (versucht!) nachfolgenden makro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Worksheets("tabelle1").Range("a1")
Case 1
If Target.Address <> "$a$1" Then Exit Sub: Test Else
Case 2
If Target.Address <> "$a$2" Then Exit Sub: Test Else
Case 3
If Target.Address <> "$a$3" Then Exit Sub: Test Else
Case Else
If Target.Address <> "$a$4" Then Exit Sub: Test Else
End Select
End Sub
Sub Test()
MsgBox "Hallo Makro!"
End Sub
lauf fähig zu machen
leider klappt es nicht ganz so..!
könntet ihr kurz weiter helfen
dank und gruss
mehmet