wenn CheckBox Ja, dann in Zwischenablage
Wolfgang
mit dem nachstehenden Code realisiere ich, dass der Text in B29 befindlich (Tabellenblatt Start) bei Betätigen in die Zwischenablage kopiert wird. Ich habe nun noch eine CheckBox1 in das Tabellenblatt eingefügt und würde nun gerne erreichen, dass bei aktiver CheckBox zum Text aus B29 noch der Text aus C33 hinzukommt. Wie müßte ich den Code ergänzen/abändern, damit ich das Ziel erreichen kann?
Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
'Kopieren der allgemein Daten
Sub Kopieren()
Dim oData As New DataObject
Dim sText As String
sText = Worksheets("Start").Range("B29")
Application.ScreenUpdating = False
With oData
.SetText sText
.PutInClipboard
End With
Application.ScreenUpdating = True
MsgBox "[" & sText & "]" & vbCrLf & _
"wurde in die Zwischenablage kopiert und kann eingefügt werden!", vbInformation + vbOKOnly
End Sub
Anzeige