HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Zum Forum Zum Forum Zum Forumthread Zum Forumthread Zum Archivthread Zum Archivthread Registrierung Registrierung Beispieldatei hochladen Beispieldatei hochladen
Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
Gerlinde
06.08.2024 14:39:54
bedingte Formatierung als VBA möglich?
Hallo,

mittlerweile sind ein paar Zeilen hinzugekommen und auch die Abfrage zur Kollision konnte ich integrieren. Datei anbei
https://www.herber.de/bbs/user/171473.xlsm

Allerdings habe ich eine weitere Frage, welche sich um Zeile ab H7 dreht.
Wie ihr im hinterlegten Beispiel erkennen könnt, beginnt mit Zelle BJ7 die Wiederholung vom vorangegangenen Abschnitt N7-BC7.
Wenn man den Wert von C11 auf 7 erhöht (damit sich die Ansicht aktuallisert, muss zB in C6 die vorhandene Zahl erneut eingegeben werden. Die Automatik läuft noch nicht ganz rund) erhält man die Kollisionswarnung. Gibt es eine Möglichkeit, dass in so einem Fall der Abschnitt ab BJ7 in die Zeile ab H8 verschoben wird?

GLG
Gerlinde
Beim Antworter bedanken Als gefällt mir melden Als hervorragend melden
Als Antwort auf diesen Beitrag
UweD
02.08.2024 10:08:03
AW: bedingte Formatierung als VBA möglich?
Hallo Gerlinde

So...
Der Code löst nun aus, wenn entweder in Bereich 1 oder in C6:C8 was geändert wird.
Es werden aber nur die Farben in Bereich 1 aktualisiert. 

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim RNG1 As Range, RNG2 As Range, Z As Variant, Filling As String

    Set RNG1 = Range("C6:C8")

    Set RNG2 = Range("H6:AMA6")

    

    If Not Intersect(Target, Union(RNG1, RNG2)) Is Nothing Then

        For Each Z In RNG2

           If Z <= [C6] * 6 _

                Then Filling = "Gr1"



            If Z > [C6] * 6 _

                Then Filling = "Gr2"



            If Z > [C6] * 6 + [C7] * 6 _

                Then Filling = "Gr3"

                

            If Z > [C6] * 6 + [C7] * 6 + [C8] * 6 _

                Then Filling = "Gr4"

            '......usw



                    

            Select Case Filling

                Case "Gr1"

                    Z.Interior.Color = 5296100

                

                Case "Gr2"

                    Z.Interior.Color = 5296274

             

                Case "Gr3"

                    Z.Interior.Color = 39423

            

                Case "Gr4"

                    Z.Interior.Color = 16711935

            

                Case "Or2"

                    With Z

                        .Interior.Color = 39423

                        .Borders(xlEdgeLeft).Weight = xlThin

                        .Borders(xlEdgeTop).Weight = xlThin

                        .Borders(xlEdgeBottom).Weight = xlThin

                        .Borders(xlEdgeRight).Weight = xlThin

                    End With

                Case Else

                    'Nix

            End Select

        Next

    End If

End Sub


LG UweD
Folgenachrichten
Zum Forumthread
Antwort auf Beitrag erstellen
Beispieldatei hochladen