Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Formatierten Zellwert in Zwischenablage
 02.12.2016 11:26:56 ullemb
NotSolved
02.12.2016 16:39:51 Gast66784
NotSolved
02.12.2016 17:23:07 Gast49656
NotSolved
02.12.2016 19:11:28 ullemb
NotSolved
02.12.2016 19:54:23 Mackie
NotSolved
04.12.2016 19:24:56 ullemb
NotSolved

Ansicht des Beitrags:
Von:
ullemb		 Datum:
02.12.2016 11:26:56		 Views:
1051		 Rating:
     
Antwort:
  Ja
Thema:
Excel Formatierten Zellwert in Zwischenablage		 
Hallo,
ich habe folgendes, vielleicht triviales problem.
es geht darum, den zellwert und das zellformat einer excel-zelle in die zwischenablage(clipboard)
zu bekommen und von dort aus eben diesen wert unter beibehaltung des zellformates nacheinander in mehrere 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
     
    'markierte Zellen auslesen
    For Each rngZellen In Selection
    strTextInZellen = strTextInZellen & rngZellen.Value & vbCrLf
    Next rngZellen

    'schreibe in Zwischenablage
    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

Ist es möglich, den code so zu verändern, dass auch die zellformatierung in der zwischenablage erhalten bleibt und von dort mehrfach eingefügt werden kann.

für eine hilfstellung wäre ich dankbar

gruss

ullemb

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Formatierten Zellwert in Zwischenablage
 02.12.2016 11:26:56 ullemb
NotSolved
02.12.2016 16:39:51 Gast66784
NotSolved
02.12.2016 17:23:07 Gast49656
NotSolved
02.12.2016 19:11:28 ullemb
NotSolved
02.12.2016 19:54:23 Mackie
NotSolved
04.12.2016 19:24:56 ullemb
NotSolved