Probleme mit ner If-Abfrage (VBA)!
24.05.2004 09:14:29
Logan
Sub Test_0()
Dim a As Integer
Dim b As Integer
Sheets("Tabelle1").Select
Range("A1").Select
a = ActiveSheet.UsedRange.Rows.Count
Range("B1").Select
For b = 1 To a
If ActiveCell.Offset(0, 0) Is Nothing Then
ActiveCell.Value = "0"
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub
Aus einem mir nicht ersichtlichen Grund schreibt das Makro nicht eine 0 in die Felder die Leer sind, so wie ich es möchte. Er springt einfach nur in die nächste Zeile und läuft bis zum Ende durch!
Kann mir jemand helfen und erklären, was ich falsch gemacht habe?
MfG
Logan