[b]Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 15) = "o" And Target.Column = 15 Then
With Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Font
.Strikethrough = True
End With
Else
With Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Font
.Strikethrough = False
End With
End If
End Sub[/b]
Wie kann man ein Makro starten wenn ein bestimmter Wert in ein Zelle erreicht ist
RPB 03.02.2007 - 142 Hits - 18 Antworten
Makro automatisch ausführen
Heinz28 15.03.2007 - 449 Hits - 3 Antworten
Makro auf mehreren Rechnern verwenden
chriskuf 04.07.2007 - 47 Hits - 4 Antworten
Makro soll beliebig viele Datensätze mit ausführen
Beatlefield 26.11.2007 - 101 Hits - 5 Antworten
Autofilter mit Makro setzen
Susanne2 07.04.2008 - 102 Hits - 1 Antwort