ActiveCell.Value
17.02.2004 11:14:16
Frank
ich habe folgendes Makro:
Sub Test()
Range("G2").Select
Dim i As Long
For i = 1 To 100
If ActiveCell.Value <> "Eins" Then
ActiveCell.Value = ""
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub
Wenn der Text in der Zelle ungleich "Eins" ist,dann soll die Zelle leer sein. Es
passiert aber nichts. Mache ich aus <> =, dann macht er die Zelle leer. Ich
verstehe nicht, warum das mit <> nicht klappt.
Gruß
Frank
Anzeige