Formler og felter

Lav en kolonne (Kolonne A) med kursværdien og en kolonne (Kolonne B) med valuta. I f.eks C1 indtaster du:

= A1*B1

Herefter kan du trække formlen ned i kolonne C

Det kan sikkert laves meget mere avanceret, men dette er det mestr simple.

Jeg forstår hvad du mener, men det jeg er ude efter er at få opklaret om man kan lave en formel i et felt og bagefter indtaste et beløb i samme felt og så skal formlen referere til det tal man har indtastet. Fx jeg vil gerne have at feltet gange det indtastet beløb med 2, så unaset hvilket beløb jeg indtaster ganger feltet sig selv med 2 når jeg trykker enter..

Så skal du vist ind i noget VBA-programmering, og det er ikke mig i Excel.

skal være i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Column = 1 Then  ' 1 = kolonne A, eks. på hel kolonne
If Target.Address = "$C$2" Then ' celle c1, eks. på en celle
Application.EnableEvents = False
Target.Value = (Target.Value * 2) ' ganger tallet med 2
End If
Application.EnableEvents = True
End Sub

kabbaks løsning løser det problem, du skitserede, men umiddelbart virker det ikke som en "smart" løsning, da du skal rette i selve koden hver gang kursen ændres, eller du skal beregne en anden valuta. mugs løsning forekommer betydeligt nemmere at vedligeholde.

man kan også henvise til en celle med kursen.

Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Column = 1 Then  ' 1 = kolonne A, eks. på hel kolonne
If Target.Address = "$C$2" Then ' celle c1, eks. på en celle
Application.EnableEvents = False
Target.Value = (Target.Value * range("B1").value) ' ganger tallet med bærdien i B1
End If
Application.EnableEvents = True
End Sub

Det ser godt ud det der.. Men hvor finder jeg arkets modul?

højreklik på arkfanen, vælg vis programkode.

kabbak->Hvis din kode skal gange indholdet af en celle med indholdet af en anden, må detda være lige så nemt bare at lave en formel i regnearket.

Hvis jeg nu gerne vil bruge koden til et antal felter kan jeg så skrive "if target.address = a2 to f2"

Kan det lade sig gøre?

> lasse37

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:AF2")) Is Nothing Then
Application.EnableEvents = False
Target.Value = (Target.Value * range("B1").value) ' ganger tallet med bærdien i B1
End If
Application.EnableEvents = True
End Sub

>> jkrons, lasse vil jo have værdien ændret i samme celle, det kan en formel ikke.

Jamen, det virker jo bare perfekt, så jeg takker mange gange for hjælpen og giver dig pointene...

tak for pointz. ;-))