Funktionen der rechte Maustaste,

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

Hallo Axel,

wenn der Fehler auch nach der Neuinstallation von Visio auftritt, es aber mit dem anderen Benutzer noch immer funktioniert, dann ist dein Benutzer-Konto kaputt. Du musst das andere Konto verwenden.

Gruß,

Pauline

Hallo,

führe bitte wie folgt eine Office-Reparatur durch:

1. Drücke auf deiner Tastatur die Tastenkombination Windows-Taste + R. Es öffnet sich das Dialogfenster Ausführen.

2. Gib den Befehl appwiz.cpl ein und klicke auf OK. Es öffnet sich die Systemkonfiguration.

3. Suche in der Liste nach deinem Microsoft Visio Professional 2013.

4. Klicke dieses mit der rechten Maustaste an und wähle
Ändern.

5. Wähle Reparieren und klicke auf Weiter.

6. Warte bis die Reparatur abgeschlossen ist und starte deinen Rechner neu.

7. Teste das Verhalten von Office.

Gruß,

Pauline

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

Moin Claus,

nocheinmal mein Dank für die schnelle Hilfe. Hat wunderbar geklapt.

Nur mein Code für das "X" schreiben, funktioniert zwar auch, aber es ist ein kleines x, linksbündig. Ich brauche es aber groß- mittig und Fett.

Wünsche dir weiterhin frohes Schaffen und nochmals meinen Dank.

Gruß - Heiner