Hallo,
ich habe folgendes, vielleicht triviales problem.
es geht darum, den zellwert <strong>und</strong> das zellformat einer excel-zelle in die zwischenablage(clipboard)
zu bekommen und von dort aus eben diesen wert unter beibehaltung des zellformates <strong>nacheinander in mehrere</strong> beliebige zellen
des gleichen tabellenblattes per doppelklick wieder einzufügen.
nachstehender code gibt lediglich den unformatierten zellwert wieder
Sub KopiereInZwischenablage()
Dim rngZellen As Range
Dim strTextInZellen As String
Dim objData As New DataObject
For Each rngZellen In Selection
strTextInZellen = strTextInZellen & rngZellen.Value & vbCrLf
Next rngZellen
With objData
.SetText strTextInZellen
.PutInClipboard
End With
End Sub
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Excel.Range, Cancel As Boolean)
Dim MyRange As Range
Set MyRange = Range(ActiveCell, ActiveCell.Offset(0, 0))
MyRange.Select
ActiveSheet.Paste
End Sub