VBA Code Bearbeitungsleiste und Überschriften

[Phoeni]

Hallo Leute,
ich bekomme ein VBA Code nicht wirklich hin.
Wie kann man es realisieren, das bei einem Doppelklick die "Bearbeitungsleiste und Überschriften"
ein und ausgeblendet werden.

Sub Bearbeitungsleiste()
'
' Bearbeitungsleiste Makro
'

'
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
End Sub

Sub Bearbeitungsleiste_aus()
'
' Bearbeitungsleiste_aus Makro
'

'
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHeadings = False
End Sub

Danke Gruß Phoeni

[Oberon]

Hi,

versuch es mal so:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Application.DisplayFormulaBar = Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHeadings = ActiveWindow.DisplayHeadings = False
End Sub

CU
Oberon

[HKindler]

Hi,

wenn du mit "bei einem Doppelklick" einen Doppelklick in einer Zelle meinst:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A:A,X10")) Is Nothing Then
    Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
    ActiveWindow.DisplayHeadings = Application.DisplayFormulaBar
    Cancel = True
End If
End Sub

Dieser Code gehört ins Code-Modul des entsprechenden Tabellenblatts und reagiert auf einen Doppelklick in Spalte A oder in X10. Wahlweise kann er auch als

Code:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, sh.Range("A:A,X10")) Is Nothing Then
    Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
    ActiveWindow.DisplayHeadings = Application.DisplayFormulaBar
    Cancel = True
End If
End Sub

ins Code-Modul des Arbeitsblatts und reagiert dann in jedem Blatt bei den entsprechenden Zellen.

[Phoeni]

He, nein beides leider nicht.
Ich habe mal eine Datei angehangen.
Im Moment muss ich zwei Button betätigen, was ich mir aber wünsche ist, dies nur auf einem Button zu realisieren.
Ist das möglich?
Gruß Phoeni

[Oberon]

Hi,

der Code muss nicht in ein Modul, sondern zum gewünschten Tabellenblatt.

Sonst kann der Code auch zu einem der beiden Buttons gepackt werden.

CU
Oberon

[Phoeni]

ÜBERFORDERT 
Könntest du es mir in der Datei mal einbauen ?
DANKE!

[Phoeni]

ok, erledigt Fehler gefunden.
Danke