Formeln in Zellen links und rechts kopieren

Liebe Excel-Zauberer und VBA-Künstler,
wiedermal habe ich ein "Problemchen", bei dem ihr mir vielleicht helfen könnt; theoretisch müsste ich in der Lage sein -nach dem Studium dieser Site- nachfolgende Anforderungen in VBA zu übersetzen, bin einfach zu blöd oder zu müde...
Wie sag' ich in VBA:
- klappere die Spalte C ab:
- immer, wenn du auf grüngefärbte Zelle (ColorIndex=35), [welche eine Summen-Formel beinhaltet] stösst,
- kopiere diese Summenformel (relative Bezüge!) in die erste Zelle links neben deiner jetzigen Position (also in Spalte B)
- kopiere diese Summenformel (relative Bezüge!) in die erste Zelle rechts neben der 'Fundstelle' (also in Spalte D)
- kopiere diese Summenformel (relative Bezüge!) in die zweite Zelle rechts neben der 'Fundstelle' (also in Spalte E)
- gehe zur nächsten grüngefärbten Zelle innerhalb der Spalte C [welche eine Summenformel beinhaltete]
- kopiere diese Summenformel (relative Bezüge!) in die erste Zelle links neben deiner jetzigen Position (also in Spalte B)
- kopiere diese Summenformel (relative Bezüge!) in die erste Zelle rechts neben der 'Fundstelle' (also in Spalte D)
- kopiere diese Summenformel (relative Bezüge!) in die zweite Zelle rechts neben der 'Fundstelle' (also in Spalte E)
- gehe zur nächsten grüngefärbten Zelle innerhalb der Spalte C [welche eine Summenformel beinhaltete]
- mache dies solange, bis du ans Ende der Spalte C gelangt bis
- kehre dann zu Zelle A1 zurück
Zur Verdeutlichung hänge ich eine kleine Musterdatei, welche obige Struktur hat, mit an.
Vielen Dank vorab an alle, die sich erbarmen...
LG, Isolde
https://www.herber.de/bbs/user/38068.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...statt aufwendigen Ausbaus der xlOberfläche mal den Grundstock jedes guten CalcPgmmes, das Funktionsgerüst, mal etwas besser (und logischer) auszustatten und außerdem vielleicht noch etwas für die Fehlerfreiheit zu tun - andere (z.B. 1-2-3 Lotus) können das ja auch. Wahrscheinlich sieht da in Redmond keiner mehr so recht durch (sicher von "Künstlern" unstrukturiert pgmiert) - deshalb lassen sie die Finger davon. Ansonsten kann man ja auch 'ne udFkt schreiben, die nach der Zellfarbe fragt (nicht aus bedingter Formatierung - da müsste es dann die Bedingung sein, was auch mit sog. Bordmitteln ginge, wenn man das nicht automatisieren muss). Die wäre dann ohne weiteres in den Zellen einsetzbar. Im Herber-Archiv dürften etliche solche Fktt zu finden sein, auch eine von mir (icxPick). Ansonsten Anerkennung für die Fragestellerin: Endlich mal jemand. der es versteht, seinen Wunsch klar und verständlich zu formulieren. Man könnte das Pkt für Pkt abhandeln, aber nicht an dieser Stelle - sehe das jetzt nicht...
Gruß Luc :-?
PS: Allerdings findet man das Alles auch in der Hilfe... Wer so präzise formulieren kann, sollte das auch finden... (wenn er/sie ausgeschlafen ist!) Nachts arbeiten nur die Heinzelmännchen... Eines heißt manchmal Luc... ;-) (...bloß, dass der jetzt eigentlich was Anderes machen wollte...)

Sub FormelKopieren() Dim zelle As Range For Each zelle In Range(Cells(5, "C"), Cells(Cells(Rows.Count, "C").End(xlUp).Row, "C")) With zelle If .Interior.ColorIndex = 35 And Len(.Formula) > 0 Then .Copy .Offset(0, -1) .Copy .Offset(0, 1) .Copy .Offset(0, 2) End If End With Next zelle End Sub

Sub FormelKopieren() Dim zelle As Range For Each zelle In Range(Cells(5, "C"), Cells(Cells(Rows.Count, "C").End(xlUp).Row, "C")) With zelle If .HasFormula = True Then 'alle Zellen mit Formel kopieren ' If Left(.FormulaLocal, 6) = "=SUMME" Then 'alle Zeilen mit Funktion SUMME .Copy .Offset(0, -1) .Copy .Offset(0, 1) .Copy .Offset(0, 2) End If End With Next zelle End Sub

Beliebteste Forumthreads (12 Monate)

Formeln in Zellen links und rechts kopieren

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formeln in Zellen links und rechts kopieren

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread