Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schaltflächen-Makro erweitern

Schaltflächen-Makro erweitern
15.05.2018 00:58:38
mike49
Hallo Leute,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schaltflächen-Makro erweitern
15.05.2018 08:10:30
Hajo_Zi
.Offset(0,-4).value="Krank"
Warum nicht Change?

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige