Hallo,

hab das Problem das ich gerne mehrer Zellen ins Clipboard bringen würde ohne das es doppelte Hochkommas und zusätzliche am Anfang und Ende gibt.

-----------------------------------------------------------------------------------------------------------------------

So solls nach dem kopieren aus excel aussehen:

REGION 1 Input Test
"MODULE_ANALOG_INPUT"(PEW := "Test_Signal", <------------------Der ganze text steht in einer Zelle und kommt so grob 500 mal untereinander
"Data Array Number" := "Test");
END_REGION

So schauts aus:

"REGION 1 Input Test
""MODULE_ANALOG_INPUT""(PEW :=""Test_Signal"",
""Data Array Number"" := ""Test"");
END_REGION"

-----------------------------------------------------------------------------------------------------------------------

Wenn ich das hier nehm funktionierts für diese eine Zelle:

RawText.SetText ActiveCell.Text
RawText.PutInClipboard

Aber wenn ich mehrer Zellen so wandeln will dann bekomme ich nur alle möglichen Compiler Fehler:

Dim RawText As New DataObject
Dim oString As String


Range("C5:C600").Select
Selection.Copy

textbox = Selection
' oString = textbox
' Selection.Copy
' oString = getfromClipboard

RawText.SetText textbox.Text
RawText.PutInClipboard




Kann mir da jemand weiterhelfen?