online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon atomictunes vom 29.09.2021, 14:46 Options

Lösung

Excel, bestimmte Zahlen erweitern!?!

Hallo,

ich habe folgendes Problem:

Wie Ihr sehen könnt (http://uploaded.to/file/bms1nn ) habe ich manche zahlen die 8-stellig sind und manche die 13-stellig sind.

ich benötige, um weitere formeln zu erstellen alle zahlen in der selben länge.

gibt es eine möglichkeit, die 8-stelligen auf 13-stellen zu erweitern? es sollen ausschließlich 5 nullen hinten an die 8-stelligen zahlen.

die reihenfolge müsste genauso bleiben...

vielen dank für eure hilfe


grüße


Antwort schreiben

Antwort 1 von coros vom 29.09.2021, 14:59 Options

Hallo Atomictunes,

meinst Du das eventuell so wie das nachfolgende Makro das erledigt?

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Fuellen()
Dim lngRow As Long
Dim intStellen As Integer

For lngRow = 3 To ActiveSheet.Cells(Rows.Count, 30).End(xlUp).Row
    If Len(Cells(lngRow, 30)) < 13 Then
        For intStellen = 1 To 13 - Len(Cells(lngRow, 30))
            Cells(lngRow, 30) = Cells(lngRow, 30) & 0
            Cells(lngRow, 30).NumberFormat = "0"
        Next
    End If
Next

End Sub


MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.

Antwort 2 von rainberg vom 29.09.2021, 15:00 Options

Hallo,

das geht mit dieser Formel in AE3 und runterziehen

=WENN(LÄNGE(AD3)<13;AD3&WIEDERHOLEN("0";13-
LÄNGE(AD3));AD3)

Gruß
Rainer

Antwort 3 von Saarbauer vom 29.09.2021, 15:00 OptionsLösung

Lösung
Hallo,

versuch es mal hiermit in einer freien Spalte der Zeile 3

=WENN(LÄNGE(AD3)=8;AD3 & "00000";AD3)

und dann nach unten ziehen. Mit "Kopieren" und "Inhalte einfügen" "Werte" kannst du dann die Zahlen an die gleiche Stelle kopieren

Gruß

Helmut

Antwort 4 von atomictunes vom 29.09.2021, 15:01 Options

hi oliver

danke für die schnelle antwort...

ich habe noch nie mit markos gearbeitet....ich weiß gar nicht wie ich vorgehen muss :(

Antwort 5 von coros vom 29.09.2021, 15:03 Options

Hallo,

schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.

Antwort 6 von atomictunes vom 29.09.2021, 15:04 Options

danke helmut =)

es klappt :D

Antwort 7 von KJG17 vom 29.09.2021, 15:12 Options

Hallo,

allerdings erhälst du auf diese Art keine gültige EAN-13, worauf die ganze Sache vermutlich hinauslaufen soll. Die 13. Ziffer wäre dann eine zu errechnend Prüfziffer und keine Null.

Siehe dazu mal in (Klick-->) Thread #2266039

Gruß
Kalle

Ähnliche Themen

Excel, bestimmte Zahlen markieren
Lennart  21.04.2008 - 44 Hits - 1 Antwort

bestimmte zahlen in excel addieren
annuit  21.09.2008 - 16 Hits - 1 Antwort

Skalierung Zahlen in Excel
simon___  05.11.2008 - 36 Hits - 3 Antworten

Bestimmte Zahlen in verschiedenen Tabellen suchen
schnitzel  01.04.2009 - 211 Hits - 2 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026