Gruppe
Funktion
Problem
Die Darlehensverzinsung bei variablen Rückzahlungsterminen und -raten soll ermittelt werden.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Set rng = ActiveCell
iColorA = 49
iColorB = 6
End Sub
ClassModule: Tabelle2
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect userinterfaceonly:=True
If Not rng Is Nothing Then
rng.Interior.ColorIndex = iColorA
rng.Font.ColorIndex = iColorB
End If
Set rng = Target
iColorA = Target.Interior.ColorIndex
iColorB = Target.Font.ColorIndex
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 49
End Sub
StandardModule: Modul1
Public rng As Range
Public iColorA As Integer, iColorB As Integer