Excel Copy Paste ohne Formatübernahme

hallo Claus



das habe ich schon gemacht, jedoch ist das Problem, dass wir mehrere tausend zellen mit zahlen und unterschiedlich langen Dezimalzahlen haben... daher wollte ich wissen ob es eine Einstellung gibt, damit man immer den ganz zellenwert rauskopiert und nicht
nur den wert der angezeigt ist?

Hallo Silvan,



es geht auch ohne Kopieren und Ändern des Formates. Probiere es mal so:

Sub Test()

Dim myArr As Variant

Dim objWord As Object

Dim i As Long

Set objWord = CreateObject("Word.Application")

myArr = Range("A1:A20").Value

With objWord

.Visible = True

.Activate

.documents.Add

For i = LBound(myArr) To UBound(myArr)

.Selection.Text = .Selection.Text & Chr(10) & myArr(i, 1)

Next

End With

End Sub



Mit freundlichen Grüßen

Claus

hallo Claus



vielen dank für deine antwort. ich werde es so probieren und sonst müssen halt die anderen die Dezimalzahlen einblenden.



gruss silvan

Hallo Silvain,



du kannst nur den angezeigten Wert kopieren.

Aber du könntest es z.B. für den Bereich A1:A20 und das Einfügen in Word das Ändern des Formates, das Kopieren und Einfügen und das Zurücksetzen des Formats automatisieren:



Sub Test()

Dim objWord As Object

Set objWord = CreateObject("Word.Application")

With Range("A1:A20")

.NumberFormat = "General"

.Copy

End With

With objWord

.Visible = True

.Activate

.documents.Add

.Selection.Paste

End With

Range("A1:A20").NumberFormat = "0"

End Sub



Edit: Du könntest auch mit einem Workaround arbeiten, indem du die Zellen kopierst, in eine freie Spalte in Excel als Werte wieder einfügst und diese Werte dann kopierst für das andere Programm.



Mit freundlichen Grüßen

Claus

Hallo Silvain,



blende die Dezimalstellen vor dem Kopieren ein oder kopiere den Wert aus der Bearbeitungsleiste.



Mit freundlichen Grüßen

Claus