Schaltflächen-Makro erweitern
15.05.2018 00:58:38
mike49
wie müsste man dieses Makro erweitern, dass nach Aktivieren einer Zelle in B12:B37 und dann Ausführen des Schaltflächen-Makros außer dem Eintrag "K" in F12:F37 auch noch "Krank" in B12:B37 eingetragen wird.
Durch erneutes Ausführen soll alles wieder gelöscht werden.
Gruß
mike49
Sub Schaltfläche4_Klicken()
ActiveSheet.Unprotect
With ActiveCell
If Not Intersect(ActiveCell, Range("B12:B42")) Is Nothing Then
With ActiveCell.Offset(0, 4)
If .Value = "" Then '--wenn Zelle in SpalteF leer
.Value = "K" '--dann K eintargen
ActiveCell.Font.Color = RGB(255, 0, 0) '-- und Schriftfarbe Rot
ElseIf .Value = "K" Then '--wenn Zelle in SpalteF ein K
.FormulaR1C1 = "=IF(RC[-4]"""",""A"","""")" '--Formel eintargen
.Font.ColorIndex = xlAutomatic '-- und Schriftfarbe automatisch
End If
End With
End If
End With
ActiveSheet.Protect
End Sub
Anzeige