Message Box i Excel

Jeg går ud fra, at der er en formel i den skjulte celle, ellers kan der jo ikke umiddelbart komme en værdi i cellen.

Men prøv med den VBA-kode, der skal sættes ind i arkets kodemodul:

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("B4") <> "" Then
' Vis meddelelsen
MsgBox "Celle " & Range("B4").Address & " har fået en værdi.", _
vbInformation, "Servicemeddelelse"
End If

End Sub

Fejlagtig -  fungerer ikke!!

Hejsa
Fungerer fin her hos mig, men hvis den skal se i et område får jeg fejl.
eks.
If Range("B4:B12") <> "" Then
osv.

/Hans

øv virker ikke ordentlig, den undersøger B4 ved hver indtastning - skulle blot komme med en advarsel en gang
/Hans

Lukker