Office: (Office 2016) Kopieren Befehl nicht verfügbar

Hallo,
bis zum letzten Office-Update (Anfang Januar 18) ging alles perfekt. Nun kommt eine Fehlermeldung.

Was mache ich: Ich füge per Doppelklick auf das aktuelle Datum, dieses in das Feld meines Tagebuches ein. Dadurch steht dieses am Zeilenanfang ganz oben und ich kann sofort losschreiben.





Seit dem Update kommt die Meldung: Laufzeitfehler '2046', Der Befehl oder die Aktion 'Kopieren' ist zurzeit nicht verfügbar.

Hier der Code: (Fehler in Zeile 6)
Private Sub Text483_Click()
Rem
Rem Wert in Zwischenablage kopieren
Rem
Me!Text483.SetFocus
DoCmd.RunCommand (acCmdCopy)
Me!Tagebuch.SetFocus
Me!Tagebuch.SelLength = 0
DoCmd.RunCommand (acCmdPaste)
SendKeys "{ENTER}", True
SendKeys "{left}", True
End Sub

Hat jemand eine Idee? Wie schon gesagt, es hat monatelang funktioniert.

Danke im Voraus
Udo

:)

 

Moin,
möglicherweise werden einige dieser Uralt-Befehle nicht mehr unterstützt.
Versuch's so:
Code:

maike

 

Hallo Maike,
Wäre nicht
Code:

angebrachter?
gruss ekkehard


P.S. Wie sieht es mit Stammtisch aus?

 

\@Ekkehard: Da hast du wohl recht ...
Stammtisch ist heute, ich hatte dir zur Sicherheit auch eine PN geschickt *wink.gif* .
maike

 

Hallo Udo,

du kannst es auch so versuchen:
Code:

 

Hallo und Danke für die Antworten.
Es funktioniert fast. Musste Maikes Code noch korrigieren wegen Fehler (Fokus)

Dim strDatum As String
strDatum = Me.Text483
Me.Tagebuch = strDatum & " " & vbCrLf & Me.Tagebuch
Me.Tagebuch.SetFocus
Me.Tagebuch.SelStart = Len(strDatum)

Nun ist noch ein Problem. Der Cursor steht direkt hinter dem Datum.
Hätte gern ein Leerzeichen dazwischen, damit ich gleich losschreiben kann.
Bei Maikes Zeile wurde das Datum und die ersten 2 Zeichen der zweiten Zeile markiert.
Mit meiner Zeile steht der Focus/Cursor schon richtig, aber eben direkt am Datum.

 

Vielleicht hilft die Einfügung eines Leerzeichens:
Code:

 

Hallo und Danke für die Antworten.
Es funktioniert fast. Musste Maikes Code noch korrigieren wegen Fehler (Fokus)

Dim strDatum As String
strDatum = Me.Text483
Me.Tagebuch = strDatum & " " & vbCrLf & Me.Tagebuch
Me.Tagebuch.SetFocus
Me.Tagebuch.SelStart = Len(strDatum) - 1

Nun ist noch ein Problem. Der Cursor steht direkt hinter dem Datum.
Hätte gern ein Leerzeichen dazwischen, damit ich gleich losschreiben kann.
Bei Maikes Zeile wurde das Datum und die ersten 2 Zeichen der zweiten Zeile markiert.
Mit meiner Zeile steht der Focus/Cursor schon richtig, aber eben direkt am Datum.
Nach dem Datum ist kein Leerzeichen.

 

Maxel,

Deine Zeile fügt leider kein Leerzeichen ein, sondern der Cursor geht eine Zeile runter auf die Stelle nach dem ersten Zeichen.
Da fehlt halt die leere Stelle.

 

Hallo,
so:
Code:

 

So Männer, hier die finale Lösung:

Dim strDatum As String
strDatum = Me.Text483
Me.Tagebuch = strDatum & vbCrLf & Me.Tagebuch
Me.Tagebuch.SetFocus
Me.Tagebuch.SelStart = Len(strDatum) - 1
SendKeys " ", True

Danke, nochmal

 

So Männer, hier die finale Lösung:

Dim strDatum As String
strDatum = Me.Text483
Me.Tagebuch = strDatum & vbCrLf & Me.Tagebuch
Me.Tagebuch.SetFocus
Me.Tagebuch.SelStart = Len(strDatum) - 1
SendKeys " ", True

Danke, nochmal

 

Das Sendkeys würde ich zu vermeiden versuchen.
Getestet:
Code:

Cursor landet genau da, wo er stehen soll, ein Zeichen hinter dem Datum in der ersten Zeile.
maike

 

Wollte das auch schon erwähnen, dann aber gelassen.
Davon wird doch schon seit mindestens A2K abgeraten.
Das es das überhaupt noch gibt *eek.gif*