Zelle mit 19stelliger zahl kopieren

Forumthread: Zelle mit 19stelliger zahl kopieren

15.12.2025 18:00:39

Heinz

Hallo Excelprofis,

ich habe ein Excelsheet mit diversen Spalteninhalten; u.a. in Spalte A eine 19stellige Zahl, in den anderen Spalten Buchstaben oder Zahlenwerte.
Über ein Makro müssen diese Werte in eine anderes Sheet kopiert werden.
Generell funktioniert auch alles, bis auf diese 19stellige Zahl; diese wird im Zielsheet in Exponentialschreibweise dargestellt und es werden auch Stellen bgeschnitten, was nicht gewünscht ist.

Beispieldatei anbei. https://www.herber.de/bbs/user/179841.xlsm
Erklärung:
Sheet pos beinhaltet die Ursprungsdaten (stammen aus einer Oracle Datenbank).
Nach Ausführen des Makros "test" wetden die Spalten aus Sheet pos in Sheet copy kopiert.
Nach Ausführen des Makros befinden sich alle Werte im Sheet copy; Wert aus pos.A2 jedoch inkorrekt.

Anmerkung:
Das kopieren wird durch eine For next Schleife erledigt. In der echten Applikation finden innerhalb der Schleife Valdierungen u.ä. statt. DAs hier hochgeladene Beispiel ist zur Verdeutlichung des Problems reduziert.

Hat jemand eine Idee, wie dieses vermieden werden kann?

Danke für Hilfe!

Heinz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zelle mit 19stelliger zahl kopieren

15.12.2025 18:06:38

Sigi.21

Hallo,

Excel kann Zahlen nur bis 15 Stellen genau anzeigen!
Eine Zahl mit mehr als 15 Ziffern musst du als "TEXT" behandeln, dann sollte das kopieren funktionieren.

Gruß Sigi

AW: Zelle mit 19stelliger zahl kopieren

15.12.2025 18:15:18

UweD

Hallo

Das ganze kannst du in einem Rutsch ohne Schleife erledigen

    Sheets("pos").Cells(2, 1).Resize(1, 14).Copy

    Sheets("copy").Cells(2, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

    Application.CutCopyMode = False

LG UweD

AW: Zelle mit 19stelliger zahl kopieren

15.12.2025 23:52:32

snb

Sub M_snb()

  Tabelle1.Cells(2, 1).Value = Format(Tabelle6.Cells(2, 1), "'@")

End Sub

Excel 365

16.12.2025 05:53:31

RPP63

Moin!
In Deinem Excel 365 kann man diese (hier unerwünschte) Datenkonvertierung gezielt abschalten.
Datei, Optionen, Daten:
Userbild

Gruß Ralf

AW: Zelle mit 19stelliger zahl kopieren

15.12.2025 18:26:40

UweD

Wenn du unbedingt die Schleife nutzen möchtest...

    Sheets("copy").Cells.ClearContents

    With Sheets("pos")

        For x = 1 To 14

            .Cells(2, x).Copy

            Sheets("copy").Cells(2, x).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

        Next x

    End With

    Application.CutCopyMode = False

LG UweD

Zelle mit 19stelliger zahl kopieren

Forumthread: Zelle mit 19stelliger zahl kopieren

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Zelle mit 19stelliger zahl kopieren

Forumthread: Zelle mit 19stelliger zahl kopieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread