Microsoft Excel

Herbers Excel/VBA-Archiv

Bei ColorIndex = 34 - Formel einfügen | Herbers Excel-Forum


Betrifft: Bei ColorIndex = 34 - Formel einfügen von: Heinz H
Geschrieben am: 29.12.2009 18:53:05

Hallo im Forum

Ich habe ein Makro,das mir nach jeden Freitag im Monat eine Zeile mit ColorIndex = 34 einfügt.
Nun möchte ich, das mir nur auf den Zeilen die mit ColorIndex = 34 eingefügt wurden, eine Formel miteinfügt.

Habe zum besseren Verständnis eine Beispieldatei anghhängt.

Könnte mir dazu bitte jemand weiterhelfen ?

Gruß
Heinz

https://www.herber.de/bbs/user/66874.xls

  

Betrifft: AW: Bei ColorIndex = 34 - Formel einfügen von: Josef Ehrensberger
Geschrieben am: 29.12.2009 21:08:46

Hallo Heinz,

dein Code ist etwas "wirr", aber probier mal.


https://www.herber.de/bbs/user/66876.xls

Gruß Sepp



  

Betrifft: AW: Bei ColorIndex = 34 - Formel einfügen von: Heinz H
Geschrieben am: 29.12.2009 23:53:03

Hallo Josef

Erstmals Danke für deine Hilfe !

Leider funktioniert es nicht.
Den die Zeilen werden nach jeden Freitag im Monat eingefügt. Also sind diese Variabel.

Es müsste die Formel immer in der neu eingefügten Zeile stehen.

Gruß
Heinz


  

Betrifft: AW: Bei ColorIndex = 34 - Formel einfügen von: Heinz H
Geschrieben am: 30.12.2009 00:23:22

Hallo Josef

Habe eine Kleinigkeit abgeändert,jetzt wird die Formel in die richtige Zeile eingefügt.
Nur der einzige Fehler ist, die Zeilen sollten zwischen 6 bis 35 eingefügt werden.

Gruß
Heinz

https://www.herber.de/bbs/user/66879.xls


  

Betrifft: AW: Bei ColorIndex = 34 - Formel einfügen von: Josef Ehrensberger
Geschrieben am: 30.12.2009 00:36:23

Hallo Heinz,

meinst du so?

https://www.herber.de/bbs/user/66880.xls


Gruß Sepp



  

Betrifft: AW: Bei ColorIndex = 34 - Formel einfügen von: Heinz H
Geschrieben am: 30.12.2009 00:43:28

Hallo Josef

Zu 99% läuft es perfekt.

Aber siehe bitte ab A33 hier ist noch ein Fehler drinnen.

Danke Heinz


  

Betrifft: AW: Bei ColorIndex = 34 - Formel einfügen von: Josef Ehrensberger
Geschrieben am: 30.12.2009 00:53:23

Hallo Heinz,

die formel dort trägst du mit deinem eigenen Code ein!

Do
  M1 = M1 + 1
Loop Until Range("A35").End(xlUp).Offset(-M1, 0) = ""


Cells(Range("A35").End(xlUp).Offset(1, 0).Row, sp + 1).FormulaR1C1 = _
  "=Sum(R[-" & M1 & "]C:R[-1]C)"
Range(Range("A35").End(xlUp).Offset(1, 0), Range("A35").End(xlUp).Offset(1, _
  14)).Interior.ColorIndex = 34


lösche diese Zeilen einfach


Gruß Sepp



  

Betrifft: AW: Bei ColorIndex = 34 - Formel einfügen von: Heinz H
Geschrieben am: 30.12.2009 00:59:37

Hallo Josef

DANKE !!

Jetzt läuft es wie gewollt. Nun kann ich ruhig schlafen gehen.

Recht herzlichen Dank !
Wünsche auch dir eine gute Nacht

Gruß
Heinz


Beiträge aus den Excel-Beispielen zum Thema "Bei ColorIndex = 34 - Formel einfügen"