SendKeys mit Text aus Nebenzelle
28.02.2022 16:07:09
Dieter(Drummer)
Es soll per Doppelklick auf Zelle, egal welche Zelle ab, Spalte D, Zelle D10, ein SendKey ausgeführt werden.
Im Code steht "Application.Sendkeys" UND in rechter Nebenzelle z.B. "("%RFF")", Das wäre das Menü "Schriftart".
Das Problem ist, dass "Application.Sendkeys" NICHT in Verbindung mit dem Text aus rechter Nebenzelle verbunden wird.
Es soll also per Doppelklick auf irgendeine Zelle in Spalte D, ab Zelle D10, SendKeys mit Textinhalt der rechten Nebenzelle ausgeführt werden.
Das Ergebnsi für Aufruf sollte dann "Appliaction.SendKeys("%RFF")" sein.
Meine Versuche haben kein Ergebnis gebracht und ich bitte um Hilfe, wenn es möglch ist.
Gruß, Dieter(Drummer)
Derzeitiger Code, der nicht funktioniert:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.SendKeys& ActiveCell.Offset(0, 1).Text
Cancel = True
End Sub