habe ein Problem bei dem ich professionelle Hilfe benötige.
Was ich habe:
Ein automatisches ausfüllen bis Tabellenende der Spalte K mit dem Eintrag ":::8.90"
So sieht das aus.
With Worksheets("Tabelle1")
Zei = .Cells(.Rows.Count, 1).End(xlUp).Row
.Columns(11).NumberFormat = "@"
.Cells(1, 11).Value = "Versand"
.Range(.Cells(2, 11), .Cells(Zei, 11)).Value = ":::8.90"
End With
Was ich brauche:
Ein automatisches ausfüllen bis Tabellenende der Spalte K mit den Einträgen ":::8.90" oder ":::0.00". Der einzutragende Wert jeder Zelle in Spalte K ist nun abhängig von dem vorstehenden Wert jeder Zelle in Spalte J. Ist der Wert in vorstehender Zelle größer oder gleich wie 149.00 dann ":::0.00" sonst ":::8.90".
Mit einer Formel ist das einfach und sieht so aus.
=WENN(J11>="149.00";":::0.00";":::8.90") Formel in Zelle K11
Könne man diese Formel einfach in jede Zelle der Spalte K (über das Makro) einfügen, währe mein Problem gelöst.
Leider bekomme ich das nicht hin.
Grüße
Jan