Som jeg ser det, aktiverer den også den macro A1 refererer til, når du skriver noget i A10.

Jeg lavde en simpel formel i A1 "=A10*1" også her kaldte den, den pågældende macro.

 

Hvis jeg forstår dig ret, så har du en formel i A1, hvor værdien fra A10 bruges ?

Ret mig, hvis der er noget jeg har misforstået.

 

 

 

Nu kan jeg se hvad du mener :-)

 

Du skal bare ændre 1 til 10 (markeret med rødt)

 

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim y As Variant
  Dim x As Integer
  Dim macro As String
 
  If Target.Address = "$A$10" Then       ' Kigger kun på ændringer i celle A10
    y = ActiveSheet.Range("A1").Value   'Henter værdi fra A1 som Variant
   
    If Not IsNumeric(y) Then                  'Checker om værdien er et tal
        Exit Sub                                      'Hvis værdien ikke er et tal, gå til slut sub
    End If
   
    x = ActiveSheet.Range("A1").Value   'Henter værdi fra A1 som Integer

    If x < 1 Or x > 3 Then                    'Checker om værdien ligger mellem 1 og 21
        Exit Sub                                       'Hvis værdien ikke ligger mellem 1 og 21, gå til slut sub
    End If
 
    macro = "macro" & x                      'Navngiver macro med det nummer der er valgt F.eks. macro15
    Application.Run (macro)                  'Kører macro15 som ligger i Modul1
End If
End Sub

 

Godt det virkede :-)

 

Det andet ved jeg ikke lige, men ser lige på det når jeg får tid en dag :-)

Hvis jeg må være så fræk at spørge, hvad gjorde du med det sidste ? :-)

 

Prøv at se på nettet, hvor der findes mange gode hints.

 

eks. denne:

 

 

Vil bare lige fortælle at jeg har fået timer til at funger..... igen tusind tak for jeres hjælp.

/Per