Hallo Experten !
Ich habe das u.a. Makro aus Funden zusammengestopelt die ich im Netz gefunden habe.
Man kann mit diesem Makro Formel weiterkopieren - das desswegen, da, wenn ich die Formel in alle Zellen selbst weiterkopiere Excel sooo langsam wird, das es mind. 35 Sekunden dauert, bis alles verarbeitet ist. Da ich jedoch nicht genau weiß, ob ich die Formel bereits weitergezogen habe, versuche ich nun in den Spalten die Zellen K1 und K2 grün zu färben, wenn bereits Formeln in dieser Spalte vorhanden sind. Also jetzt K1/K2 grün..........wenn dann die Formel weitergezogen werden dann L1/L2 ........M1/M2 .... IV1/IV2 grün. Immer wenn in J was drinnensteht, sollen die Zellen grün werden.
Ich habe das mit Bedingter Formatierung versucht - doch da muß ich mir jede Zelle einzeln vornehmen. Ich habe da keine Formel gefunden, damit ich das in einem Aufwasch machen könnte (falls es eine gibt - ich mach das).
Kann mir, falls es keine Formel für die Bedingte Fomatierung gibt um das in einem Aufwasch machen zu können, sagen, was ich in dem Makro einfügen muß, um dies zu erhalten, was ich haben will ?
Danke chris58

Sub Formelweiterziehen()
Dim lngLetzteSpalte As Long
lngLetzteSpalte = Cells(11, Columns.Count).End(xlToLeft).Column
Range("J3:J11").Copy Destination:=Cells(3, lngLetzteSpalte + 1)
lngLetzteSpalte = Cells(13, Columns.Count).End(xlToLeft).Column
Range("J13:J16").Copy Destination:=Cells(13, lngLetzteSpalte + 1)
End Sub