VBA: bekomme Funktiontasten nicht dazu z.b. einen Kommentar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thorsten,

ich weiss zwar nicht, wo ich jetzt arrogant war, finde es aber witzig.
Denn wenn ich also übertrieben hätte, dürfte ich arrogant sein?
Spass :-)

Danke für Deinen Lösungsansatz, auch wenn das für Dich womöglich arrogant scheint, so wie du das schreibst bekomme ich es hin.
Es ist aber nicht die Lösung weil:
Der Satz nach dem 1. Bindestrich, meine Wunschzelle ist die Activzelle, kann A1 sein, doch ich will dort ja keinen festen Kommentar hinzufügen, der irgendwo abgelegt ist und den man immer wieder aufrufen kann.
Es soll das Kommentar-Eingabefeld erscheinen, wo der Benutzer dann ganz normal einen Kommentar einsetzen, bearbeiten und löschen kann.
In der Zelle selbst, ist schon ein Wert, der nicht durch einen "Kommentar" überschrieben werden darf.

Das Problem dabei ist, dass wenn ich mit Sendkeys aus einem Makro heraus, mittels der Tastenfolge aus dem Menü das Kommentarfeld aufrufe, dass es gleich wieder verschwindet, da Sendkeys die Zeichenfolge übermittelt hat und das Makro weiterläuft oder beendet wird. Man kann das Kommentarfeld also nicht befüllen.

Die Waitfunktion hilft dort auch nicht, da in dieser Zeit, kein Kommentar eingegeben werden kann.
Das ist mein bisheriger Wissenstand, in der Geschichte...
Von daher denke ich, dass es mit Sendkeys nicht funktioniert.

Mir fehlt also ein Befehl, womit ich das Kommentarfeld bzw. -Maske (ist nicht wirklich eine...) erzeugen/aufrufen kann.

By the way, ich kenne die Fachbegriffe in Excel nicht alle wirklich und in VBA kaum was und habe deswegen Basiskenntnisse eingetragen... Ist das für eine Antwort sooo entscheidend?

Viele Grüße
Georg

Hi Georg,

ich möchte mich "halb" entschuldigen - aber nicht ganz! :-)
Die Bezeichnung "arrogant" nehme ich zurück, aber ich finde trotzdem, dass du..ähh.."etwas abgehoben" bist/warst :-)

Denn trotz deines gegenteiligen Hinweises ist und bleibt die Zuweisung Application.OnKey erforderlich, weil eben sonst bei drücken deiner Wunschtasten rein gar nix...anderes...als die jeweilige Standard-Funktion passiert.

Nun denn, ich hatte Lust ein wenig zu basteln....und Gerd hat dir schon eine sehr gute Grundlage gezeigt.

Diese Grundlage hab ich ein wenig "aufgebohrt"...siehe hier...
https://www.herber.de/bbs/user/163324.xlsm

In meiner Bsp-Datei werden während des Öffnens der Datei die Funktionstasten F11 + F12 mit Application.OnKey "umgeleitet"
- F11 = Farbänderung oder -löschung der Zellhintergrundfarbe
- F12 = Kommentar erstellen, bearbeiten oder löschen (du wolltest zwar 3 F-Tasten, es genügt aber auch nur eine F-Taste)
Während des Schließens der Datei werden wieder die Standardfunktionen den F-Tasten zugewiesen.
(ok, vllt müsste man das ändern, denn wenn du zeitgleich noch andere Exceldateien geöffnet hast, würde das Umleiten von F-Tasten auch in den anderen Dateien gelten, aber wer weiß, vllt reicht es ja wie es ist)

Jeder dieser F-Tasten ist ein Makro zugewiesen mit genau einer Befehlszeile.

Diese Befehlszeile ruft ein Unter-Makro auf - mit Übergabe von sich selbst als Parameter.
So ist es ausreichend, dass du ein "Hauptmakro" schreibst, bzw nutzt, in dem dann immer in Abhängigkeit der gedrückten F-Taste nur das dazugehörige Teil-Makro ausgeführt wird.
Und es ist natürlich problemlos möglich, alles wahlfrei zu erweitern.

So, nun hoffe ich, wir sind wieder "Forums-Freunde" :-)
Konnte ich helfen?

Ciao
Thorsten

'Modul der Tabelle Private Sub Worksheet_Activate() '´z.B. Funktionstaste umleiten auf Makro "Test" Application.OnKey "{F12}", "Test" End Sub 'Modul der Tabelle Private Sub Worksheet_Deactivate() 'Funktionstaste rücksetzen Application.OnKey "{F12}" End Sub 'allgemeines Modul Public Sub Test() Dim strKommentar As String With ActiveCell .ClearComments strKommentar = InputBox("tralala", "Kommentar", "tralala") If strKommentar > "" Then .AddComment Text:=strKommentar .Comment.Visible = False End If End With End Sub

Beliebteste Forumthreads (12 Monate)

VBA: bekomme Funktiontasten nicht dazu z.b. einen Kommentar

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: bekomme Funktiontasten nicht dazu z.b. einen Kommentar

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread