Markierte Zellen & Ergebnisse anzeigen

[PetrolMaxxe]

Hallo,

bei mir funktioniert bedingte Formatierung von mehreren Werten so:

Code:

=ODER($E23="15+50"; $E23="55+100")

also wie bei normalen Formeln mit Semikolon. In doppelte Hochkommata ist richtig um zu verhindern dass eine Rechenoperation behandelt wird.
Du brauchst an dieser Stelle die Prozedur nicht rausnehmen. Du trägst die Formel für die bedingte Formatierung in Zelle E30 ein (Bezug auf $E30 beachten) und erweiterst den bed. Formatierungsbereich bis E23. Das hatte ich schon geahnt, das sowas noch erforderlich sein könnte.

Was die Mitnahme der Formatierung aus Strg./T Tabelle anlangt, muss das dann ohne Array ausgeführt werden (Zelle zu Zelle).
das wäre dann so zu ändern:

Code:

'*****************************************************************************
   
    If Not Intersect(Target, Range("rng_3")) Is Nothing Then
        Dim k&
        Set rngAdr = Tabelle2.Columns(1).Find(Target.Cells.Address)
        If Not rngAdr Is Nothing Then
            With Tabelle2.ListObjects(1).DataBodyRange
                j = rngAdr.Row + 1 - .Row
                Application.EnableEvents = False
                For i = 2 To 13
                    If i < 8 Then
                        Tabelle1.Cells(21 + i, 12) = .Cells(j, i)
                        If .Cells(j, i).Font.Bold = True Then
                            Tabelle1.Cells(21 + i, 12).Font.Bold = True
                        Else
                            Tabelle1.Cells(21 + i, 12).Font.Bold = False
                        End If
                    Else
                        Tabelle1.Cells(15 + i, 15) = .Cells(j, i)
                        If .Cells(j, i).Font.Bold = True Then
                            Tabelle1.Cells(15 + i, 15).Font.Bold = True
                        Else
                            Tabelle1.Cells(15 + i, 15).Font.Bold = False
                        End If
                    End If
                Next i
                Application.EnableEvents = True
            End With
        End If
    End If
'*****************************************************************************

Gruß Uwe