VBA Code Bearbeitungsleiste und Überschriften
#1
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
Antworten Top
#2
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
Antworten Top
#3
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.
Gruß,
Helmut

Win10 - Office365 / MacOS - Office365
Antworten Top
#4
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


Angehängte Dateien
.xlsm   Mappe1.xlsm (Größe: 17,18 KB / Downloads: 7)
Antworten Top
#5
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
Antworten Top
#6
Lightbulb 
ÜBERFORDERT 
Könntest du es mir in der Datei mal einbauen ?
DANKE!
Antworten Top
#7
ok, erledigt Fehler gefunden.
Danke
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste