Gruppe
Matrix
Problem
Die Werte im Bereich A3:AW15 sollen bei Übereinstimmung mit den Werten in E19:J19 gelb hinterlegt werden. In Zeile 16 soll die Anzahl der Übereinstimmungen je Spalte ermittelt werden.
StandardModule: basMain
Sub FormatEin()
Worksheets("Data").OnEntry = "Formatting"
End Sub
Sub FormatAus()
Worksheets("Data").OnEntry = ""
End Sub
Sub Formatting()
Application.Caller.NumberFormat = "0\." & _
String(Len(CStr(Application.Caller)) - 1, "0")
End Sub