Bei folgenden Makro bekomme ich eine Fehlermeldung in Excel 8.0
Fehlerzeile
If Cells(i, 1).Value = a Then
Laufzeitfehler Typen unverträglich
Sub stammdatenpflege()
Sheets("Stammdaten").Select
Dim a As Integer
Dim i As Integer
a = InputBox("Zahl eingeben")
For i = 2 To 1000
If Cells(i, 1).Value = a Then
Cells(i, 1).Select
Exit For
End If
Next i
End Sub
Könnt ihr mir das helfen?
Vielen Dank!
Tschüß
Rolf