Zahlenformat

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Francesco
(hat etwas gedauert, weil ich dir alle 26 Regeln angelegt habe):

	A	B	C
1	Original	Umgewandelt	Formatiert
2	01370471200a	1370471200,01	0137-047-1200-a
3	68222298879b	68222298879,02	6822-229-8879-b
4	68421626737c	68421626737,03	6842-162-6737-c
5	44775548402d	44775548402,04	4477-554-8402-d
6	71781499068e	71781499068,05	7178-149-9068-e
7	42311372120f	42311372120,06	4231-137-2120-f
8	60377361896g	60377361896,07	6037-736-1896-g
9	81475387043h	81475387043,08	8147-538-7043-h
10	07504520667i	7504520667,09	0750-452-0667-i
11	64907942072j	64907942072,10	6490-794-2072-j
12	85317818770k	85317818770,11	8531-781-8770-k
13	27486233415l	27486233415,12	2748-623-3415-l
14	31159739538m	31159739538,13	3115-973-9538-l
15	74615062309n	74615062309,14	7461-506-2309-n
16	09910179527o	9910179527,15	0991-017-9527-o
17	61964762607p	61964762607,16	6196-476-2607-p
18	83523455572q	83523455572,17	8352-345-5572-q
19	07409839999r	7409839999,18	0740-983-9999-r
20	96974498148s	96974498148,19	9697-449-8148-s
21	47773486216t	47773486216,20	4777-348-6216-t
22	77338836991u	77338836991,21	7733-883-6991-u
23	00220329645v	220329645,22	0022-032-9645-v
24	25197983390w	25197983390,23	2519-798-3390-w
25	08334165809x	8334165809,24	0833-416-5809-x
26	94901223410y	94901223410,25	9490-122-3410-y
27	50046505839z	50046505839,26	5004-650-5839-z

Dazu musst du aus deinen OriginalNrn mit EndBst erst mal echte Zahlen mit lfd BstNr als 2stellige Dezimale machen: =--(WECHSELN(A2;RECHTS(A2);"")&TEXT(CODE(RECHTS(A2))-96;"\,00")) im Bsp in Sp B
Das Ergebnis kannst du dann als Werte auf die OriginalDaten-Spalte (im Bsp Sp A) kopieren.
Deren ganzen Bereich (im Bsp Sp C) markierst du dann, klickst auf Bedingte Formatierung - Neue Regel, klickst auf den 6.(letzten) MenüPkt (Formel … verwenden) und legst dann die 26 Regeln an:
1.Regel - Formel: =--RECHTS(TEXT(A2;"0,00");3)=0,01 bis …
26.Regel - Formel: =--RECHTS(TEXT(A2;"0,00");3)=0,26
Unter jeder Regel klickst du auf den Formatieren…-Button, wählst den Reiter Zahlen → letzten Pkt (Benutzerdefiniert) und trägst hier das Zahlenformat mit dem zugehörigen Endbuchstaben ein: 0000-000-0000-a bis 0000-000-0000-z
(Ab der 2.Regel kannst du das zuvor eingetragene Format aus dem Menü wählen und musst so nur noch den EndBst ändern.)
Zur Sicherheit habe ich dir auch noch die BspMappe hochgeladen.
Gruß, Luc :-?

Private Sub Worksheet_Change(ByVal Target As Range) Dim a Dim b If Target.Column = 1 Then If Len(Target.Value) = 12 Then a = Format(Left(Target.Value, 11), "0000-000-0000") b = "-" & Right(Target.Value, 1) End If Application.EnableEvents = False Target.Value = a & b Application.EnableEvents = True End If End Sub

…wie die fktioniert, Francesco!
Du wolltest formatieren, indem für die 12. (Buchstaben-)Stelle ein * gesetzt wird. Das geht natürlich so nicht, es sei denn, du ersetzt den * durch eine lfdNr für den Buchstaben. Damit ergäbe sich eine Zahl, bei mir eine Dezimalzahl. Das kannst du in einer Hilfsspalte per Fml erledigen (habe ich alles angegeben), dann dort belassen oder deine OriginalNr mit dem Ergebnis überschreiben und dann wie von mir gezeigt formatieren.
Dass sich durch eine Formatierung der OriginalWert normalerweise nicht ändert, sollte ja wohl allen an diesem Thread Beteiligten klar sein. Die Frage ist nur, warum dann ursprünglich eine Formatierung verlangt wurde?! Ich ging davon aus, dass das nur einer besseren Lesbarkeit dienen soll, denn sonst könnte die MatNr ja gleich richtig angegeben wdn! Soll das Ganze aber nur der EingabeVereinfachung dienen, kämen noch andere Lösungen in betracht, aber das wurde ja nicht ausdrücklich erwähnt.
Kommt die MatNr aber in der gezeigten Form aus einer DBank, dann steht sie da auch so und man kann mit irgendeiner festen Umformung derselben dann nicht wieder in der DB nach ihr suchen. Ob es dann als einfacher betrachtet wird, nur die Striche wegzulassen oder die Dezimalen der Zahl (lt meiner Methode) in einen Buchstaben umzuwandeln, ist dann doch fast nur Geschmackssache.
Ich habe jedenfalls gezeigt, unter welchen Voraussetzungen und wie es hierbei möglich ist, die gewünschte Form per Formatierung zu erreichen, und damit die Frage so beantwortet wie sie ursprünglich gestellt wurde. (Nebenbei, die BedingtFormatierungen kann man ebenfalls mit einem VBA-Pgm erreichen!)
Ciao, Luc :-?

Private Sub Worksheet_Change(ByVal Target As Range) Dim a Dim b If Target.Column = 1 Then If Target.Count > 1 Then Exit Sub If Len(Target.Value) > 12 Then MsgBox "Falsche Eingabe" & Chr(13) & "Siehaben " & Len(Target.Value) & " Zeichen _ eigegeben, es sind nur 12 erlaubt" Exit Sub End If If Not IsNumeric(Mid(Target.Value, 1, 11)) Then MsgBox "Falsche Eingabe" & Chr(13) & "Die Stellen 1 bis 11 dürfen nur Ziffern enthalten" Exit Sub End If If Asc(Right(Target.Value, 1)) 122 Then MsgBox "Falsche Eingabe" & Chr(13) & "Die 12. Stelle muß ein Kleinbuchstabe sein, sie _ haben " & Right(Target.Value, 1) & " eingegeben" Exit Sub End If If Len(Target.Value) = 12 Then a = Format(Left(Target.Value, 11), "0000-000-0000") b = "-" & Right(Target.Value, 1) End If Application.EnableEvents = False Target.Value = a & b Application.EnableEvents = True End If End Sub

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H
1	4148-256-3562-a							41482563562a

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread