Laufzeitfehler Typ 13
21.07.2016 10:36:58
Sven
ich bekomme bei folgender Abfrage den "Laufzeitfehler 13 Typen unverträglich".
Function checkForMapping(sheetName As String, checkColumn As Integer, displayColumn As Integer, _
firstRow As Integer, text As String) As Boolean
Worksheets(sheetName).Activate
Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Dim values As String
Dim currentRow As Long
Dim currentValue As String
For currentRow = firstRow To lastRow Step 1
If Not Round(Cells(currentRow, checkColumn), 10) = Round(1, 10) Then 'hier _
taucht der Fehler auf!
currentValue = Cells(currentRow, displayColumn)
If Not InStr(values, currentValue) > 0 Then
If Len(values) > 0 Then
values = values & ", "
End If
values = values & currentValue
End If
End If
Next
Leider ist das der Code von meinem Kollegen, der sich gerade im Urlaub befindet.
Ich hoffe das jemand von Euch den Fehler schnell identifizieren kann.