Typen komen niet met elkaar overeen!

[Jack Nouws]

Hallo

Ik heb een stukje code en daar krijg ik een foutmelding op deze regels "typen komen niet met elkaar overeen".(ligt er maar net aan welke ChkBox ik selecteer) Kan iemand me vertellen wat ik over het hoofd zie of verkeerd doe?

Met vr gr
Jack

Private Sub CommandButton1_Click()
Dim maand       As Range
Dim c               As Range
    Set c = Sheets("Automatisch").[J43:J54].Find(CboAutoPosten.Value, LookIn:=xlValues)
    Set maand = Sheets("Automatisch").[K42:V42].Find(CboMaand.Value, LookIn:=xlValues)
     [COLOR="Red"]If ChkBox1 = True Then
        Sheets("Automatisch").Cells(c.Value, maand.Value) = Txt1.Value
        Else
     If ChkBox2 = True Then
        Sheets("Automatisch").Cells(c.Value, maand.Value) = Txt2.Value
        Else
     If ChkBox3 = True Then
        Sheets("Automatisch").Cells(c.Value, maand.Value) = Txt3.Value
        Else
     If ChkBox4 = True Then
        Sheets("Automatisch").Cells(c.Value, maand.Value) = Txt4.Value
        Else
     If ChkBox5 = True Then
        Sheets("Automatisch").Cells(c.Value, maand.Value) = Txt5.Value[/COLOR]End If
End If
End If
End If
End If

End Sub

 

[Roncancio]

Je moet niet de waarde nemen van C en Maand maar de Row van C en de Column van Maand.

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Je moet niet de waarde nemen van C en Maand maar de Row van C en de Column van Maand.

Met vriendelijke groet,


Roncancio

Dank U wel Roncancio het is wederom opgelost!:thumb:

Met vr gr
Jack