Advarsel ved manglende værdi i celle.

Så skal den se således ud,


Function Tjek() As Boolean
Tjek = False

If InputBox("Indtastet kode for at gemme/printe ugyldigt ark") = "kode" Then
    Exit Function
Else
    For Each c In Range("A1:A46")
        If c = Empty Then
            MsgBox ("Felt er ej udfyldt: " & c.Address)
            Tjek = True
            Exit Function
        End If
    Next
End If
End Function

en anden version
bemærk tabelen, du skal bare skrive den færdig

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = Tjek
    If Cancel = True Then
        If InputBox("Indtastet kode for at printe ugyldigt fil") = "kode" Then
            Cancel = False
        End If
    End If

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
    Cancel = Tjek
    If Cancel = True Then
        If InputBox("Indtastet kode for at gemme ugyldigt fil") = "kode" Then
            Cancel = False
        End If
    End If
End Sub


Function Tjek() As Boolean
tabel = Array("A1:A7", "B1", "D1")
Tjek = False
    For t = 0 To UBound(tabel)
        For Each c In Range(tabel(t))
            If c = Empty Then
                MsgBox ("Felt er ej udfyldt: " & c.Address)
                Tjek = True
                Exit Function
            End If
        Next
    Next t
End Function

Igen mange tak for hjælpen...havde ikke lige tænkt over at det ville give mig problemer. Men du smider lige et svar igen, så du kan få de velfortjente point.

Nææ, det havde jeg hellere ikke. Er du med på det med tabellen ?

Ja, den har jeg fanget...så er der lidt at lege med til i aften. Endnu en gang 1000 tak.