Klick auf Label kopiert text in zwischenspeicher
01.06.2016 18:28:41
Bastian
Ich habe hier ein Makro welches beim Klicken des Label in einer UF den Inhalt in den Zwischenspeicher Kopiert.
Gib es eine Möglichkeit dieses für alle Labels auf der UserForm zumachen mit einem Makro?
Private Sub Label101_Click()
Dim oData As New DataObject
Dim sText As String
sText = Label101.Caption
If sText = "" Then Exit Sub
With oData
.SetText sText
.PutInClipboard
End With
End Sub
Gruß BAsti