Typen unverträglich?
Jonas
ich habe folgenden Code geschrieben:
Sub vgl()
Dim x As intger, y As Integer
Dim i As Double, g as Double
g = application.inputbox("Bitte Wert eingeben, "Eingabe", , , , , , 1)
x = 1
For y = 1 To 200 Step 1
i = Cells(x, y).Value
If i = g Then Cells(x + 1, y).Value = "YES"
Next y
End Sub
Ich bekomme wenn ich den Code ausführen will folgende Fehlermeldung (Laufzeitfehler 13 "Typen unverträglich) für die Zeile "i = cells...." .
Habe jetzt schon einiges versucht um dies zu beheben aber ich komme irgendwie nich weiter.
Vielen Dank für eure Hilfe schon mal im Voraus
Gruß Jonas
Anzeige