kør makro når celle ændres excel

Står formlen i A9?

Så kan det ikke lade sig gøre.

Hvis du ændrer A9 ved at ændre en anden celle, så formlen genberegner, så ret Range i

If Intersect(Target, Range("a9")) Is Nothing Then

til den celle, du taster i.

Hej store-morten
Ja det gør den men den kan laves på en anden måde, tallet kommer fra et andet faneblad men samme celle

KW

Hej Jan K

det er celle A9 i fanebaldet "Prisliste"

KW

Så du ændre på fanebaldet "Prisliste" celle A9.

Så prøv at lægge koden der.

Nu ved vi ikke hvad: Call border1
Så det kan evt. blive nødvendig at skifte faneblad før den køres.

En lille, men vigtig detalje: det mangler et "Not" i

If Intersect(Target, Range("a9")) Is Nothing Then

Skal være

If Not Intersect(Target, Range("a9")) Is Nothing Then

Det tror jeg også, i fanebaldet "Prisliste" celle A9 står der ingen ting, og der er her jeg sætter tal ind manuelt. Når jeg gør dette vil jeg gerne køre macroen herunder. Som jeg har lagt i fanebladet "Bestilling".

Sub border1()

Range(Cells(Range(Range("i6").Text).Row, Range(Range("i6").Text).Column), _
Cells(Range(Range("i7").Text).Row, Range(Range("i7").Text).Column)).Borders.LineStyle = xlContinuous


End Sub

Prøv at lægge denne på fanebaldet "Prisliste":

Jeg har vba koden og cellen til
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$k$8" Then
        Call border1
    End If
End Sub

Og så har jeg ændret
Macroen der skal køre til

Sub border1()

Sheets("Bestilling").Select

Range(Cells(Range(Range("i6").Text).Row, Range(Range("i6").Text).Column), _
Cells(Range(Range("i7").Text).Row, Range(Range("i7").Text).Column)).Borders.LineStyle = xlContinuous
End Sub

Men det går stadig ikke

KW

Hej store-morten den fungere jeg takker goddag.

KW

Det var godt :-)
#10 forstod jeg ikke.

Velbekomme og goddag

Morten

Det var nok heller ikke så meget at forstå :-) lidt klundtet forklaret KW