Runtime error 13 type mismatch

[Martijn Kist]

Beste VBA liefhebbers,

Onderstaande code resulteert in de in de titel genoemde error. Wat doe ik verkeerd??? Als ik op debug klik wordt de rode text gearceerd.

Private Sub txtaanpasidnr_Change()

Workbooks("Inventaris administratie UC.xlsm").Sheets("hulpsheet").Range("D18").Value = txtaanpasidnr.Value

[COLOR="#FFFF00"][COLOR="#FF0000"]If Error Then[/COLOR][/COLOR]

txtaanpasomschrijving.Value = "Bestaat nog niet"

End If

txtaanpasomschrijving.Value = Workbooks("Inventaris administratie UC.xlsm").Sheets("hulpsheet").Range("C19").Value
txtaanpasmerk.Value = Workbooks("Inventaris administratie UC.xlsm").Sheets("hulpsheet").Range("C20").Value
txtaanpastype.Value = Workbooks("Inventaris administratie UC.xlsm").Sheets("hulpsheet").Range("C21").Value
txtaanpaseigenaar.Value = Workbooks("Inventaris administratie UC.xlsm").Sheets("hulpsheet").Range("C25").Value
txtaanpasafdeling.Value = Workbooks("Inventaris administratie UC.xlsm").Sheets("hulpsheet").Range("C27").Value
txtaanpaslokatie.Value = Workbooks("Inventaris administratie UC.xlsm").Sheets("hulpsheet").Range("C29").Value
txtaanpasingebruik.Value = Workbooks("Inventaris administratie UC.xlsm").Sheets("hulpsheet").Range("C31").Value
txtaanpasextrainfo.Value = Workbooks("Inventaris administratie UC.xlsm").Sheets("hulpsheet").Range("C32").Value
txtaanpashoogte.Value = Workbooks("Inventaris administratie UC.xlsm").Sheets("hulpsheet").Range("C22").Value
txtaanpasbreedte.Value = Workbooks("Inventaris administratie UC.xlsm").Sheets("hulpsheet").Range("C23").Value
txtaanpasdiepte.Value = Workbooks("Inventaris administratie UC.xlsm").Sheets("hulpsheet").Range("C24").Value
txtaanpasslot.Value = Workbooks("Inventaris administratie UC.xlsm").Sheets("hulpsheet").Range("C30").Value


End Sub

Alvast bedankt voor de genomen moeite.

Mvrgr,
Martijn

 

[snb]

Maak wat meer gebruik van de hulpbestanden van de VBEditor....