Office: Führende Null mitkopieren

Hallo zusammen,

ich kopiere den Inhalt von einer Zelle von Arbeitsmappe 1 nach Arbeitsmappe 2. Nun kann es sein, das der Inhalt der Quell-Zelle so aussieht "087654". Also mit führender Null am Anfang. Wenn ich aber mit dieser Befehlszeile

sh_neu.ActiveSheet.Range("a3:a3").Value = sh_quell.ActiveSheet.Range("b3:b3").Value

den Wert kopiere, ist in der Ziel-Zelle nur noch "87654" --> D.h. Die führende Null ist weg. Das darf nicht sein. Wie bekommt man das in VBA hin, das der Inhalt der Zelle eins zu eins kopiert wird?

Gruß HarryH

:)

 

Moin, HarryH,

Excel kennt keine führenden Nullen, die nicht explizit im Benutzerformat vorgegeben sind. Vielleicht solltest Du uns mitteilen, ob es sich um einen Text (dann ein vorangestelltes "'") oder um eine Formatierung handelt:

Code:

 

Da du die Zellformatierung mitnehmen musst, würde ich das per Copy/Paste machen...

Code:

 

\@jinx

Die Zellen in der Quelldatei haben alle die Formatierung "Text"

Es funktioniert, wenn ich vor dem Kopieren die Zellen der Zieldatei auch auf Formatierung "Text" setze. Habe ich ausprobiert. Nur weiß ich nicht wie man das mit VBA realisiert. Kann mir jemand helfen?

Gruß Chopin1900

 

Hallo Chopin1900,

dann musst du die Zielzellen vor dem Kopieren ebenfalls als Text formatieren.

Code:

Gruß Ingolf