Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dialog unterdrücken - xlDialogInsert

Dialog unterdrücken - xlDialogInsert
18.08.2003 21:03:45
Gabor
Hallo liebe Helfer,
ich möchte gern den integrierten Dialog "Zellen einfügen" unterdrücken. Aus Programmgründen wird dies über ein selbstdefiniertes Menü erzeugt. Da sich die Tastenkombinationen nicht abfangenlassen (zumindest hab ich in der Recherche nix dazu gefunden), möchte ich nun das Auftreten des dieses Dialogs verhindern.
Ich hoffe das jemand von euch eine Idee hat.
Gruß
Gabor

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dialog unterdrücken - xlDialogInsert
18.08.2003 21:24:13
Franz Pölt
Hallo Gabor,
Menü "Zellen einfügen" ausschalten:
Application.CommandBars(21).Controls(5).Enabled = False
und wieder einschalten:
Application.CommandBars(21).Controls(5).Enabled = True
oder alternativ:
Application.CommandBars(21).Reset
Servus aus dem Salzkammergut
Franz

Leider nein...Dialog wird nicht unterdrückt
18.08.2003 21:30:09
Gabor
Hallo Franz,
leider ist dies nicht korrekt. Vielleicht habe ich mich undeutlich aus gedrückt.
Es geht um den Dialog, der Auftaucht, wenn Strg+"+" gedrückt wird (auf dem Ziffernblock)
bzw. Strg+"-".
Danke für deine Mühe.
Gruß Gabor

AW: Leider nein...Dialog wird nicht unterdrückt
18.08.2003 22:09:45
Franz Pölt
Hallo Gabor,
für die Tastenkombination Strg+"+" auf der Alphanumerischen Tastatur funktioniert folgendes:
... dein Code ...
Application.OnKey "^{+}", "NoStrgPlus"
dieser Befehlt weist der Tastenkombination Strg+ das Makro "NoStrgPlus" zu
Public 

Sub NoStrgPlus()
MsgBox "Nicht möglich"
End Sub

per BefehlApplication.OnKey "^{+}"
ist alles wieder normal
Aber leider ist auch nach der Zuweisung des Makros immer noch die Tastenkombination Strg+"+" auf der numerischen Tastatur möglich :-(
vielleicht weiß da noch jemand einen Rat?

Anzeige
Hoffenlich weiss noch jemand Rat...
18.08.2003 22:49:15
Gabor
Hallo Franz,
genau daran bin ich auch gescheitert. Ich wüsste auch nicht, wie man das Ereignis des Einfügens einer Zeile/Spalte abfangen kann...
Ich danke Dir für die weitere Hilfe.
Gruß Gabor

AW: Hoffenlich weiss noch jemand Rat...
18.08.2003 23:30:58
Franz Pölt
Hallo Gabor,
hab's doch noch geschafft :-)
Tastenkombination STRG+"+" deaktivieren:
StrgPlus False
Tastenkombination STRG+"+" wieder aktivieren:
StrgPlus
oder
StrgPlus True
Sub StrgPlus(Optional blnOn As Boolean = True)
If blnOn Then
Application.OnKey "^{107}"
Application.OnKey "^{+}"
Else
Application.OnKey "^{107}", "NoStrgPlus"
Application.OnKey "^{+}", "NoStrgPlus"
End If
End Sub


Private Sub NoStrgPlus()
MsgBox "Nicht möglich"
End Sub

Servus aus dem Salzkammergut
Franz

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige