Hallo,
ich arbeite an einem Excel 2010 Makro, welches nachschaut ob z.B. Spalte O leer ist und wenn ja dann die Formel A in z.B. Spalte Y einfügt bzw. wenn Spalte O nicht leer ist die Formel B in Spalte Y einfügt. Das ganze soll ab der zweiten Zeile über alle Zeilen laufen. So weit war ich bisher:
Sub Makro()
Dim Zelle As Range
For Each Zelle In Range("O2:O" & Cells(Rows.Count, "O").End(xlUp).Row)
If Zelle.Value = "" Then
Range("Y2:Y").FormulaLocal = "FormelA"
Else
Range("Y2:Y").FormulaLocal = "FormelB"
End If
Next
End Sub
Hoffe ihr könnt mir weiterhelfen.
Grüße,
Andi
|