Office: (Office 2016) Strg+A

Moin zusammen,

ich glaub ich hier mal etwas was für nen dummen wie mich nicht klappen will.
Hab in einem Formular ein Textfeld.
Hier soll über Strg+A der ganze Feldinhalt in die markiert und in die Zwischenablage. Versucht habe ich es so: Code:

Das ballert mir aber den Quelltext vom ganzen Formular in die Zwischenablage.
Hab ich bestimmt wieder was falsch oder? *entsetzt

Vielen Dank schon mal vorab und nen sonnigen Nachmittag. *Smilie

:)

 

Im Klick-Ereignis eines Buttons:
Code:

 

Moin Maxel,

sorry für die späte Rückmeldung und danke für Deine Antwort.
Über Tastenkombi geht es nicht?

 

Moin nochmal,

so langsam hab ich es glaub ich.
Code:

Funktioniert soweit.
Aaaaber. *Smilie
Nur wenn ich nen Haltepunkt bei "Me.txt_Description.SelStart = 0" setze und Schritt für durch gehe.
Dann markiert er mir alles.
Ohne Haltepunkt passiert nix.

 

Versuch es im KeyUp Event.

 

Moin Markus,

das hat leider nicht geklappt.
Reagiert gar nicht.*Smilie

 

Habs mir mal angesehen.
Da muss man wohl etwas List anwenden.

Code:

 

*10points
*hands

Suuuuuuper!
Musste den hier nur etwas anpassen weil der etwas störrisch war.
Code:

Nu klappt es. Danke Dir.
Wäre ich in hundert Jahren nicht drauf gekommen.

 

Du solltest mal über die Zusammenhänge in meinem Beispiel nachdenken.

 

Hallo,

kleine Anmerkung am Rande:

acShiftMask, acCtrlMask und acAltMask sind Bitmasken und sollten auch so verwendet werden, damit die Funktion klarer wird und auch im Sourcecode sofort erkannt wird, was gemeint ist. Mit
Code:

wird dann abgefragt, ob das entsprechende Bit gesetzt ist.

Spielt in diesem Fall keine Rolle und ist vielleicht auch nur eine Stilfrage, aber prinzpiell sollte der Unterschied zwischen Vergleichen mit Integer Werten und der Verwendung von Bitmasken schon beachtet werden.

Ulrich

 

\@Ulrich
Stimmt grundsätzlich. Würde aber bei einer Tastenkombination mit Shift oder Alt ein falsches Ergebnis liefern.

 

\@markusxy:
Sag ich doch, aber so wird auch für Einsteiger gleich klar, was gemeint ist und das dabei nicht einfach nur eine Vergleich gemeint ist. Besser man gewöhnt sich das gleich richtig an.

@Nakoda:

Das kann ja wohl nicht die richtige Lösung sein und entspricht auch nicht dem Vorschlag vom Markus. Anscheindend doch nicht nachgedacht, denn die beiden Zeilen mit Dim und IF kannst du auch gleich weglassen!

Ulrich

 

Vielleicht reden wir aneinander vorbei.
Es geht nämlich um einen einfachen Vergleich. Den kann man auch nicht anders machen. Dein Vorschlag ist einfach falsch.

 

\@markusxy:

Jetzt bin ich etwas verblüfft. Was soll an meinem Vorschlag "falsch" sein? Wie arbeitest du denn mit Bitmasken und fragst ein einzelnes Bit innerhalb eines Interger-Wertes ab, ob es gesetzt ist oder nicht?
Mein Vorschlag basiert auf klassischen Bitoperation in VBx/VBA und die gibt es schon sehr lange.

Siehe:
https://de.wikibooks.org/wiki/Visual..._6:_Operatoren und dann runterscrollen bis zur Zeile "1.Testen ob ein Bit gesetzt (=1) ist "

Gruß Ulrich

 

Ich will in dem Beispiel ja nicht wissen, ob ein einzelnes Bit gesetzt ist, sondern ob ausschließlich ein bestimmtes Bit gesetzt ist
und alle anderen nicht gesetzt sind. Daher ist der Vergleich auf Gleichheit der einzig richtige.

LG Markus