Schrift durch doppelklick durchstreichen
02.07.2004 10:39:18
Alex
möchte gerne durch doppelklick die dahinter stehende zellenrheine durchstreichen. Habe dies gerade mit dem Makrorecorder aufgezeichnet. aber eben nur für eine zeile wie kann ich diese Formel ändern damit er nicht immer die eine Zeile durchstreicht sondern immer die hinter der Zelle. Es sollen aber auch nicht alle durchgestrichen werden.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 1 Then
Range("A13:K13").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = True
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A11").Select
ActiveCell.FormulaR1C1 = ""
Range("H22").Select
End
'Cancel = True
End If
End With
End Sub
Hoffe ihr habt eine lösung
Gruß Alex