Barcode entziffern

[Himmet]

Guten Morgen liebe Excel Gemeinde, 

ich muss mich erneut an euch wenden, weil ich mal wieder Schwierigkeiten mit der Umsetzung meiner Excel Tabelle habe.

Wir haben einen neuen Kunden der seine Bestellungen immer als Barcode zukommen lässt. 
Der Barcode besteht z.B. aus folgendem Code: 001195904520601 

Dieser ist wie folgt definiert: 
Die ersten drei Ziffern 001 ist die Zeichnungsnummer
Die nächsten vier 1959 ist die Höhe
Die 0453 die Breite
06 die Produktstärke
und die letzten beiden Ziffern 01 die Produktart 

Ich möchte nun eine Liste erstellen, indem nur die Barcodenummer eingegeben werden muss und mir dazu all die Infos ausgegeben werden. 

Wie mache ich das am besten? Eine zweite Tabelle erstellen und mit Hyperlinks arbeiten? Wiederum wüsste ich nicht wie ich die einzelnen Ziffern dann mit nem Hyperlink verknüpfe... wie ihr merkt bin ich hier schon erfordert. 

Für eure Hilfe wäre ich euch echt dankbar.

[RPP63]

Moin!
Ich hoffe doch mal, dass die 15-stellige "Zahl" als Text geschickt wird und nicht so wie bei Dir im durchaus exotischen Zahlenformat "00"0
Anyway:
Nutze TEIL()
Ich habe hier mal eine Variante, die nur in einem aktuellen Excel funktioniert.
Du musst die {}-Vektoren in fünf verschiedene Formeln aufdröseln.

	A	B	C	D	E
6	Barcode eingeben:	001195904530601
7
8
9	Skizzennumer:	Höhe:	Breite:	Dicke:	Art:
10	001	1959	0453	06	01

Zelle	Format	Wert
B6	@	001195904530601
A10	@	001
B10	@	1959
C10	@	0453
D10	@	06
E10	@	01

Zelle	Formel
A10	=TEIL(B6;{1.4.8.12.14};{3.4.4.2.2})

Gruß Ralf

[steve1da]

Hola,

wenn der Barcode als TEXT vorläge ginge das recht einfach mit:
Links()
Teil()
Rechts()

Was du mit Hyperlinks willst erschließt sich mir leider nicht.

Gruß,
steve1da

[snb]

In VBA nichts exotisch:

Code:

Sub M_snb()
  Cells(1).Resize(5) = Application.Transpose(Split(Format("001195904520601", "'000 '0000 '0000 '00 '00")))
End Sub

[Himmet]

Vielen Dank, das hat mir bereits sehr geholfen! Ich habe das Format inzwischen auch auf Text umgestellt...  Excel und ich werden keine Freunde. 

@Steve1da vergiss das mit den Hyperlinks wieder... weiß auch nicht was ich mir da im Kopf zusammengereimt habe. 

Gibt es auch eine Möglichkeit mit der Art so zu bearbeiten, dass da keine Ziffer steht sondern die tatsächliche Produktart? Sprich wenn in Zelle E10 01 steht dann Produktart 1 usw? 

Mir würde jetzt nur einfallen eine Zelle darunter eine wenn Bedingung zu erstellen weil in Zelle E10 ja bereits eine Formel existiert oder gibt es eine Möglichkeit mehrere Formeln gleichzeitig in eine Zelle einzubinden?

[UweD]

Hallo

Code:

A10    =LINKS(B6;3)
B10    =TEIL(B6;4;4)
C10    =TEIL(B6;8;4)
D10    =TEIL(B6;12;2)

Code:

E10 benutzerdefiniert formatieren "Produktart "0

Code:

E10    =--TEIL(B6;14;2)

Wenn du die Nullen in den einzelnen Zellen nicht haben möchtest, dann schreibe ein Doppeltes Minus davor (siehe E10)



LG UweD

[Himmet]

das mit dem benutzerdefiniertem formatieren klappt leider nicht wirklich... wenn ich das mache steht dieselbe Ziffer immer noch in der Zelle.. 

Zudem würde da ja dann immer derselbe Name stehen oder? 

Ich habe mir das eher so vorgestellt: 
Wenn E10 = 01 dann -> klar
E10 = 02 -> glatt
E10 = 03 -> rau
E10 = 04 -> blau
usw...

[Glausius]

Hallo,

dann verwende in E10 die WAHL-Funktion:

E10 =WAHL(Teil(B6;14;2);"klar";"glatt";"rau";"blau")

oder passe eine VERWEIS-Funktion an die Auflistung deiner Produktarten an.

[Himmet]

Ich habe jetzt ein SVerweis mit eingebunden und nun klappt es. Danke

[snb]

Code:

Sub M_snb()
  Cells(1).Resize(5) = Application.Transpose(Split(Format("001195904520601", "000 0000 0000 00 00")))
  Cells(1) = Split("klar glatt rau blau")(Cells(1))
End Sub