Office: Anzahl Zeichen mit VBA zählen und ergänzen?

Hallo,

ich möchte Prüfen ob eine Artikelnummer 18 Stellen hat, wenn das nicht der Fall ist, sollen die fehlenden Stellen mit Nullen aufgefüllt werden, aber VOR der Artikelnummer.
Ist: 5555.666.5555 Anzahl Stellen:13
Soll: 000005555.666.5555 Anzahl Stellen:18

Mein Code sieht bisher so aus:

Code:

For lngZeile = 1 To Worksheets("A").UsedRange.Rows(Worksheets("A").UsedRange.Rows.Count).Row
    strArtikelnr = CStr(Cells(lngZeile, 1))
    If Len(strArtikelnr) <> 18 Then                     'Prüfen ob Anzahl Zeilen ungleich 18 ist
        intAnzNullenMaterial = 18 - Len(strArtikelnr)   'Anzahl der Aufzufüllenden Nullen ermitteln    
'Hier sollen die Anzahl der Nullen aufgefüllt werden    
    End If
Next lngZeile

Die Anzahl, wieviele Stellen ich auffüllen muss, bekomme ich raus, aber wie lautet der Code um die Anzahl der Nullen mit der Artikelnummer zu Verknüpfen?
Ich benutze Excel 2010

Danke

 

Hallo Marius,

keine Ahnung wie das in VBA geht, aber ich könnte Dir eine Lösung anbieten wie es mit Formeln funktioniert. Vielleicht ist das eine Alternative.

*	A	B	C	D	E	F	G
2	*	*	*	*	*	1	0
3	*	*	*	*	*	2	00
4	*	*	*	*	*	3	000
5	*	*	*	*	*	4	0000
6	*	*	*	*	*	5	00000
7	5555.666.5555	13	5	000005555.666.5555	*	6	000000
8	*	*	*	*	*	7	0000000
9	*	*	*	*	*	8	00000000
10	*	*	*	*	*	9	000000000
11	*	*	*	*	*	10	0000000000

Zelle	Formel
B7	=LÄNGE(A7)
C7	=18-B7
D7	=SVERWEIS(C7;F:G;2;0)&A7

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Viele Grüße
Michael

 

Hi Marius,

vielelicht so:

Code:

For lngZeile = 1 To Worksheets("A").UsedRange.Rows(Worksheets("A").UsedRange.Rows.Count).Row
    If Len(Cells(lngZeile, 1)) < 18 Then                     'Prüfen ob Anzahl Zeilen ungleich 18 ist
        intAnzNullenMaterial = 18 - Len(Cells(lngZeile, 1))   'Anzahl der Aufzufüllenden Nullen ermitteln
        Cells(lngZeile, 1).NumberFormat = "@"
        Cells(lngZeile, 1) = Application.Rept("0", intAnzNullenMaterial) & Cells(lngZeile, 1)
    End If
Next lngZeile

Bis später,
Karin

 

Danke!
Genau das hab ich gesucht!