brauche drindend Hilfe !!
12.05.2004 15:31:12
Thomas
Ich habe folgendes Problem
Dim s As Single
Dim i As Long
With ActiveSheet
i = 3
Do
i = i + 1
s = Cells(i, "A").Activate
If ActiveCell.Value = "" Then
Cells(i, "A").Activate
Exit Do
End If
Loop While i < 1000
End With
Diesen Code habe ich in einem Makro. (übrigens auch in diesem Forum erfragt). Das fiktioniert aber nicht.
Bei der Zeile s=Cells(i...
bekomme ich immer die Fehlermeldung
"Die Aktivate Eigenschaften des Range-ObjektesKann nicht zugeordnet werden."
Was ist falsch daran?