Visual Basic

Sæt en variabel lig teksboksens værdi.

Så kan du test med en if om der er svaret ja eller nej og så sætte værdien i forhold til det

Nogrt i stil med

If Ucase(Textbox.Value )= "JA" Then
  Returvaerdi = 1

ElseIf Ucase(Texbox.Value) = "NEJ"
  Returvaerdi = 0
Else
  Returvaerdi = ""
End If

Hvordan tænker du at jeg skulle implementere det?

Private Sub cmdSave_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a part number
If Trim(Me.txtDato.Value) = "" Then
  Me.txtDato.SetFocus
  MsgBox "Skriv venligst dato"
  Exit Sub
End If

'copy the data to the database
'use protect and unprotect lines,
'    with your password
'    if worksheet is protected
With ws
'  .Unprotect Password:="password"
  .Cells(iRow, 4).Value = Me.txtDato.Value
  .Cells(iRow, 6).Value = Me.txtFrakl.Value
  .Cells(iRow, 7).Value = Me.txtTilkl.Value
  .Cells(iRow, 8).Value = Me.txtMødt.Value
'  .Protect Password:="password"
End With

'clear the data
Me.txtDato.Value = ""
Me.txtFrakl.Value = ""
Me.txtTilkl.Value = ""
Me.txtMødt.Value = ""
Me.txtDato.SetFocus
End Sub

Som noget af det sidste. Hvilken af dine værdier er det, som der skal testes på?

Det er på den der hedder “mødt”

Noget i denne stil. Ikke testet, da jeg jo ikke har din formular

Private Sub cmdSave_Click()
Dim iRow As Long
Dim ws As Worksheet
Dim TEST As String
Set ws = Worksheets("Data")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a part number
If Trim(Me.txtDato.Value) = "" Then
  Me.txtDato.SetFocus
  MsgBox "Skriv venligst dato"
  Exit Sub
End If

'copy the data to the database
'use protect and unprotect lines,
'    with your password
'    if worksheet is protected

TEST = Me.txtMødt.Value
If UCase(TEST) = "JA" Then
  Worksheets("Data").Cells(iRow, 8).Value = 1
ElseIf UCase(TEST) = "NEJ" Then       
  Worksheets("Data").Cells(iRow, 8).Value = 0
Else
  Worksheets("Data").Cells(iRow, 8).Value = ""
End if
   
With ws
'  .Unprotect Password:="password"
  .Cells(iRow, 4).Value = Me.txtDato.Value
  .Cells(iRow, 6).Value = Me.txtFrakl.Value
  .Cells(iRow, 7).Value = Me.txtTilkl.Value
' .Cells(iRow, 8).Value = Me.txtMødt.Value
'  .Protect Password:="password"
End With

'Test om Mødt er udfyldt med Ja eller Nej

TEST = Me.txtMødt.Value

If UCase(TEST) = "JA" Then
  Worksheets("Data").Cells(iRow, 8).Value = 1
ElseIf UCase(TEST) = "NEJ" Then       
  Worksheets("Data").Cells(iRow, 8).Value = 0
Else
  Worksheets("Data").Cells(iRow, 8).Value = ""
End if


'clear the data
Me.txtDato.Value = ""
Me.txtFrakl.Value = ""
Me.txtTilkl.Value = ""
Me.txtMødt.Value = ""
Me.txtDato.SetFocus
End Sub

Du kunne indbygge fejlhåndtering, der testede om mødt udfyldes med andet end Ja eller Nej.  Her sættes cellen barte blank, hvis der er tastet noget andet.