Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert eintragen, wenn Bedingte-Formatierung-Bedingung zutrifft

Gruppe

Format

Problem

Wenn die Bedingung der bedingten Formatierung in A1 zutrifft, soll in Tabelle2, Zelle B1 der Wert von Zelle A1 eingetragen werden.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: Modul1

Function FormCond(rng As Range) As Variant
   Dim sFormula As String
   With rng.FormatConditions(1)
      sFormula = .Formula1
      If Evaluate(sFormula) = True Then
         FormCond = rng.Value
      Else
         FormCond = ""
      End If
   End With
End Function