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
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 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 #2266039Gruß
Kalle