Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
If Range("B1") "" Then Range("A1") = "I"
Gruss, Jogy
Sub test2()
Dim i As Long
With ActiveSheet
For i = 1 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(i, 2) "" Then
.Cells(i, 1) = "I"
End If
Next
End With
End Sub
Gruss, Jogy