VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wert eintragen, wenn Bedingte-Formatierung-Bedingung zutrifft

Gruppe

UDF

Bereich

Format

Thema

Wert eintragen, wenn Bedingte-Formatierung-Bedingung zutrifft

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Format