18. februar 2007 - 18:11
Der er
1 kommentar og
1 løsning
Opslag i en form
Jeg har en formular, hvor jeg i den dropdown vælger en valuta. Oplysningerne står i Området "Valuta". Området er Beregniner(U18:W24) Altså 3 kolonner. i Kolonne U står Valutaen og i kolonne W er kursen. Den vil jeg gerne have hentet over i formularen.
Hvis det var i en celle og Valutaen står i står i A1 ville jeg skrive følgende i en funktion:
=LOPSLAG(A1;U19:W24;3;FALSK)
Men hvordan gør man det samme i en formular?
22. februar 2007 - 08:20
#1
Har selv løst det på følgende måde:
Private Sub tbValuta_change()
'Finder kursen ud fra valgt møntsort i tbValuta
If tbValuta = "DKK" Then
tbKurs.Value = Format(Sheets("Beregninger").Range("W19").Value, "#,#00.00")
End If
If tbValuta = "EUR" Then
tbKurs.Value = Format(Sheets("Beregninger").Range("W20").Value, "#,#00.00")
End If
If tbValuta = "NOK" Then
tbKurs.Value = Format(Sheets("Beregninger").Range("W21").Value, "#,#00.00")
End If
If tbValuta = "SEK" Then
tbKurs.Value = Format(Sheets("Beregninger").Range("W22").Value, "#,#00.00")
End If
If tbValuta = "CHF" Then
tbKurs.Value = Format(Sheets("Beregninger").Range("W23").Value, "#,#00.00")
End If
If tbValuta = "GBP" Then
tbKurs.Value = Format(Sheets("Beregninger").Range("W24").Value, "#,#00.00")
End If
If tbValuta = "Valuta" Then
tbKurs.Value = Sheets("Beregninger").Range("W18").Value
End If
End Sub
Men er der nogen der kender en måde at optimer det mere på, så skriv endelig og få pointene!
