Een aangepaste 'ctrl-c' in personal.xlsb

[hmwul]

Wanneer ik een cel of een range naar clipboard kopieer eindigt deze altijd met een lege regel, onderaan de geselecteerde cel/range.
Met andere woorden, onderaan, na de laatste cel met inhoud, volgt nog een regeleinde.

In een texteditor zou die laatste lege regel te verwijderen zijn middels regex find/replace
find: \s*\Z
repl: niets/blanko

Vergeefs gezocht naar een VBA macro die datzelfde kan doen.
Of het werkt weet ik niet, maar in gedachten heb ik dat ik zo'n macro in mijn personal.xlsb opsla.
Wanneer ik ctrl-c doe, moet de macro de geselecteerde cel/range kopieren, maar dan zonder die lege laatste regel.

Nogmaals, ik weet niet of het kan...

thanks.

FWIW..

 

[AD1957]

Zoek eens op: excel vba copy selection to clipboard

 

[edmoor]

Plaats de inhoud van het klembord in een string.
Plak dan die string min de laatste 2 posities daar waar je hem wilt hebben.

Voorbeeldje:

Function LeesKlembord()
    Set DataObj = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    DataObj.GetFromClipboard
    
    On Local Error Resume Next
    LeesKlembord = DataObj.GetText
    On Local Error GoTo 0
End Function

Sub klmb()
    Dim inh As String
    inh = Left(LeesKlembord, Len(LeesKlembord) - 2)
    Debug.Print "[" & inh & "]"
End Sub