rechte Maustaste versenden an Emailempfänger

Lass mal das Makro laufen:

Sub Test()

  Dim B, Bars()

  Bars = Array("Cell", "Row", "Column", "Ply")

  For Each B In Bars

    CommandBars(B).Reset

  Next

End Sub
Andreas.

War so alles richtig gemacht ?

Nö, so wird das nichts.

Bis inkl. Alt-F11 ist alles ok, dann

Menü \ Einfügen \ Modul

Da kopierst Du das Makro rein

Editor zu

Alt-F8 und Test ausführen

Andreas.

Hallo Andreas,

danke für die schnelle Antwort.

Leider keinen Erfolg.

Folgenden Vorgehensweise von mir angewandt

Excel leere Datei geöffnet

Alt + F11

Ctrl G

deinen Text einkopiert

Sub Test()

Dim B, Bars()

Bars = Array("Cell", "Row", "Column", "Ply")

For Each B In Bars

CommandBars(B).Reset

Next

End Sub

mit Enter bestätigt.

Alt Q ausgeloggt.

War so alles richtig gemacht ?

Moin Claus,

auch dies funktioniert aller best. Danke...

So nun Hoffe ich, dass jetzt alles so bleibt.

Frohes Schaffe und Gruß aus Hamburg.

Heiner

Hallo Heiner,

teste mal, ob folgendes Makro dein Kontextmenü wieder aktiviert:

Sub Kontext()

Application.CommandBars("Cell").Enabled = True

End Sub

Deinen Code zum Schreiben eines X kannst du verkürzen, wenn du das unnötige Select weg lässt:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

If Intersect(Target, Range("B3:BE59")) Is Nothing Or _

Target.Count > 1 Then Exit Sub



Target = IIf(Target = "", "X", "")

Cancel = True

End Sub

Durch das Cancel = True musst du auch nicht den Bearbeitungsmodus durch Select verlassen.

Claus