Messagebox

Prøv med

Sub CurrChk()
Dim vCurr As String

vCurr = Worksheets(\"Sheet1\").Range(\"C3\")

If vCurr <> \"DKK\" Then MsgBox \"Husk at indtaste kursen\", vbOKOnly

End Sub

, hvor dit arknavn skal erstatte \"Sheet1\"

Der skulle selvfølgelig stå B3 ikke C3 :-)

Løsningen er fin nok, men den mangler lige, at den automatisk ved indtastning i B3 skal komme med messageboksen. Det vil sige, at jeg ikke manuelt skal sætte macroen i gang

I din Visual Basic editor vælger du siden \'ThisWorkbook\' under \'Microsoft Excel Objects\' og laver følgende makro:

Private Sub Workbook_Open()
    ActiveWorkbook.Worksheets(\"Sheet1\").OnEntry = \"CurrChk\"
End Sub

Så tester den på B3 hver gang der tastes en ny værdi i arket. (Ikke hvis der pastes en værdi ind).

Det er enklere (og rigtigere) at bruge sheet change eventet for det aktuelle sheet:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = \"$B$3\" Then
If UCase(Target) <> \"DKK\" Then MsgBox (\"Husk kurs\")
End If

End Sub


Det kan også klares uden VBA, hvis man bruger datavalidering:
Her kan man f.eks. begrænse tilladte indtastningsværdier.
Vælg celle B3
Vælg \"datavalidering\"  i Data menuen
Under \"Tillad\" vælg \"brugerdefineret\"
Indtast b3<>\"DKK\" i formelfeltet
PÅ fanen fejlmeddelelse kan du definere medelelsen der skal vises når ovennævnte formel bliver sand.

Alle foreslåede løsninger virker kun hvis celle B3 ændres ved indtastning og ikke hvis det er en beregnet værdi der skifter.

VH Søren

Jeg atkker for hjælpen, jeg fandt selv ud af det via ploughgaard\'s første løsningsforslag, derfor har jeg også tilegnet ham 20 point og nerø 10 for assistancen