#Værdi fejl ved overførsel af data. Noget for Bak?

Og det var www.barnumit.dk/Coach_tom.xls

udskift koden i Sub btnSaveOK_Click() med dette, så kan den tage mere end 256 karakterer.

Private Sub btnSaveOK_Click()
'get values
'get save destination
Dim wsdata                As Worksheet
Dim rgStart                As Range
Dim rgEmptyColumn          As Range
Dim rgFoundname            As Range
Dim vaMyText As Variant
  Set wsdata = Worksheets("data")
  Set rgStart = wsdata.Range("A2")
  'find empty column
  Set rgFoundname = rgStart.Offset(cmbWorker.ListIndex, 0)
  Set rgEmptyColumn = rgFoundname.Offset(0, 200).End(xlToLeft).Offset(0, 1)
  'insert values
  rgEmptyColumn = txtDate
  vaMyText = txtNote
  'if note is empty then insert a space, so we wont get in trouble finding the right column next time.
  If IsEmpty(txtNote) Then
      rgEmptyColumn.Offset(0, 1) = " "
  Else
      rgEmptyColumn.Offset(0, 1) = vaMyText
  End If
  'disable savebutton to prevent doubles
  btnSaveOK.Enabled = False
End Sub

Det virker! Tak for det. Smid et svar så kaster jeg nogle point :-))

ok :-)