Leider ist meine Kollegin momentan im Urlaub und ich sitze hier mit seinem VBA-Code, wobei ich immer die Laufzeit 13 Fehler triggere. Irgendeine Hilfe? Der Fehlercode ist mit **Excel VBA Laufzeitfehler Typ stimmt nicht überein 13
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), 1) = Round(1, 10) Then**
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
checkForMapping = (Len(values) > 0)
If checkForMapping Then
result = MsgBox(text & " " & values, (vbOKOnly + vbInformation), "Info")
End If
Dank für jede Hilfe!
Woher bekommst du den Fehler? Gehen Sie mit F8 durch und sagen Sie uns, welche Zeile hervorgehoben ist, wenn der Fehler auftritt. – Dave
@Dave Er hat ein ** auf die Zeile gesetzt –
Diese Fehlermeldung bedeutet normalerweise einen Datentyp nicht übereinstimmen, einen Haltepunkt platzieren, oder wenn die Anwendung bricht, Schritt durch , Sie werden sehen, wo der Fehler liegt ... –