Office: PasteSpecial

Hallo zusammen,

ist es möglich, in diesem Testcolde die Werte richtig zu kopieren?
In Spalte C stehen 3 Werte, diese sind 11-stellig (Bsp. 12345678901), jedoch im Text-Format. Ich möchte diese Werte kopieren in Spalte "E", jedoch im Zahlenformat. Bei meinem Ergebnis bekomme ich in jeder kopierten Zelle die Meldung "Die Zahl in dieser Zelle ist als Text formatiert oder es ist ein Apostroph vorangestellt".
Habe bereits einige getestet, hinter "PasteSpecial" einzufügen, leider ohne Erfolg.

Anbei der Code:

Sub Test()
Dim FO1 As Object

With ThisWorkbook.Worksheets(1)
Set FO1 = .Range(.Cells(1, 3), .Cells(3, 3))
FO1.Copy
.Range(.Cells(1, 5), .Cells(3, 5)).PasteSpecial '?
End With
End Sub

:)

 

Code:

Du möchtest kein Ojekt kopuieren, vermute ich.
Warum set muss mir nicht klar sein.

Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

 

Moin!
Man kann sich die Sache auch unnötig schwer machen!
Dies reicht:
Code:

Gruß Ralf

 

Hallo RPP63neu,

ich habe deinen Code ausprobiert - Er löst das Problem. Jedoch habe ich vorhin etwas vergessen und zwar ist in einigen Zellen des Ranges Hintergrundfarben, die auch kopiert werden sollen.
Hatte es gerade mit

.Font.ColorIndex = Range("C1:C3").Font.ColorIndex und

.Interior.Color = Range("C1:C3").Interior.Color

ausprobiert. Klappt leider nicht. Daher die Frage, wie kann man die Zellenformate noch mitkopieren?

 

Ok, dumm... *Smilie Habe den Fehler gefunden...

Danke Hajo_Zi, wieder was dazu gelernt.

 

Thema doch noch nicht gelöst...

Vielleicht hat jemand ja eine Idee. Es sollen zwei Dinge erfolgen:
1. Werte kopieren aus dem Range, jedoch als Zahlenformat, nicht als Textvormat
2. Formatierungen übernehmen und zwar genau so im neuen Range, wie diese im Alten Range

Im Code von Hajo_Zi funktioniert das Umwandeln von Text in Zahl nicht. Im Code von RPP63neu funktioniert die Übernahme der Format nicht. Habe mittlerweile einiges ausprobiert und konnte es nicht lösen...

 

wenn es im alten Text ist und das Format übernommen werden soll ist es im neuen auch Text, oder habe ich übernehmen falsch verstanden?

 

Hallo ,

teste mal:

Sub Test()
With ThisWorkbook.Worksheets(1)
.Range(.Cells(1, 3), .Cells(3, 3)).Copy
.Cells(1, 5).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
End Sub

 

Hallo nochmal,

@ Nepumuk: Ich habs auch schon so probiert, das klappt nicht.

@ Hajo_Zi: Vielleicht habe ich mich nicht richtig ausgedrückt.

Im Range A (soll kopiert werden) sind einige Zellen farblich markiert, in anderen Zellen sind 11-stellige Zahlen. Zudem sind diese Zahlen im String, daher die Meldung "Die Zahl in dieser Zelle ist als Text formatiert oder es ist ein Apostroph vorangestellt".

Dieser Range soll kopiert werden zum Einen mit den farblichen Zellen und zum Anderen die Werte als Zahlenformat. So der Plan

 

Moin!
Das mit den Zahlenformaten habe ich Dir ja oben bereits gezeigt.
Das ausschließliche Kopieren des Hintergrunds geht wahrscheinlich nur mittels Schleife.
Code:

 

Ich habe es jetzt mit einer Schleife gemacht.
Danke euch, war sehr lehrreich *Smilie