koster1984
Gebruiker
- Lid geworden
- 4 jul 2012
- Berichten
- 337
Ik heb het 'Application.DisplayFormulaBar' stukje van snb in de vba van Warme Bakkertje verwerkt, heeft ook wel wat:
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [b:b]) Is Nothing Then
Target.NumberFormat = IIf(Target.NumberFormat = "General", ";;;****", "General")
Application.DisplayFormulaBar = IIf(Target.NumberFormat = ";;;****", False, True)
Cancel = True
End If
End Sub