Bedingte Formatierung dynamisch & automatisch VBA

Liebe Forengemeinde,
in einer dynamischen Tabelle habe ich bedingte Formatierungen mit Formeln eingebaut. Es greifen mehrere Leute auf diese Datei zu. Es wird nicht konsequent mit Werte einfügen gearbeitet, weshalb bei fortlaufender Dateneingabe durch Copy & Paste irgendwann die Bezüge der bedingten Formatierungen zerhackt und zerschossen sind und ich wieder aufräumen muss. Dies würde ich gern vermeiden.
Ich habe keinerlei VBA-Kenntnisse, deshalb sei mir folgende Frage erlaubt. Ist es über VBA realisierbar, meine bedingten Formatierungen automatisch ausführen zu lassen, d. h. bei jeder Dateneingabe innerhalb der dynamischen Tabelle? Wäre dies auch dynamisch möglich, sodass sich die Formatierungen immer auf den gesamten Tabellenbereich beziehen (falls neue Zeilen eingefügt werden)?
Nachfolgende Formatierungen habe ich angelegt, eine Beispieldatei habe ich vorbereitet. Ich würde mich über Rückmeldungen sehr freuen.
Beste Grüße, Mathilda
https://www.herber.de/bbs/user/129084.xlsx
Userbild

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
das Auslesen der bF ergab mehrere Formeln. Die jeweilige Zuordnung zu Ranges zu bestimmen ist mir zu mühsam.
Anbei meine Hilfsmakros:
Mit dem Pseudocode "Setzen" sollte man bF in einen Range schreiben können.


aus Stackoverflow
Sub test()
Sheets("B").[B1].Copy: Sheets("A").[A1:A10].PasteSpecial xlPasteFormats
End Sub
-> Format-Painter
Sub Auslesen()
For i = 5 To 12
For j = 3 To 14
Cells(i, j).SpecialCells(xlCellTypeSameFormatConditions).Select
Debug.Print Cells(i, j).Address, Cells(i, j).FormatConditions.Count, Cells(i, j). _
FormatConditions.Item(1).Formula1
Next j
Next i
End Sub
sub Neu_setzen() 'Formeln aus der Datei, Farben nicht
With Range("C5:N12")
.FormatConditions.Add Type:=2, Formula1:="=REST(SUMMENPRODUKT(N($C$4:$C4$C$5:$C5));2)"
.FormatConditions(1).Font.ColorIndex = 3
.FormatConditions.Add Type:=2, Formula1:="=G5>=0"
.FormatConditions(1).Font.ColorIndex = 4
.FormatConditions.Add Type:=2, Formula1:="=WENN($H5="";;$J5>$H5)"
.FormatConditions(1).Font.ColorIndex = 5
.FormatConditions.Add Type:=2, Formula1:="=WENN($H5="";;$J5>$H5)"
.FormatConditions(1).Font.ColorIndex = 6
end with
end sub

mfg

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung dynamisch & automatisch VBA

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung dynamisch & automatisch VBA

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

311 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