Wie kann ich eine Artikelbezeichnung zusammenfügen ?

[Kl@us-M.]

Hi,

es gibt eine Möglichkeit, Deine Arbeitsmappe so zu bearbeiten, dass die (vermeintlich vorhandenen) Leerzeichen eliminiert werden und die Mappe in ein europäisches Format gebracht werden kann:

Lade Dir das kostenlose Programm "Free Opener" herunter und öffne Deine Mappe mit diesem Programm. Markiere alle Zellen im "Free Opener" und klick auf kopieren. Öffne Excel mit einer leeren Arbeitsmappe, markiere Zelle A1 und öffne mit Rechtsklick das Kontextmenü. Dort wählst Du "Inhalte einfügen" -> "Text" -> "OK"

Das Ergebnis sieht dann so aus:

Arbeitsblatt mit dem Namen 'Tabelle2'
	A	B	C	D	E	F	G	H
1	H28?1??
2	( FujiElectric )			( FujiElectric )			(NJRC)
3	???	??		???	??		???	??
4	2SC4538R(SC)	50		2SK3555-01MR	500		NJM5532DD-#HMZB	650
5	2SJ477-01MR(SC)-P	100		2SK3587-01MR	475		NJM5532DD-#ZMZB	475
6	2SK1011	875		2SK3590-01SC	500		NJM7805FA-#ZZSB	2,925
7	2SK1015-01	1,3		2SK3591-01MRSC-P	174		NJM7806FA-#ZZSB	900
8	2SK1023	140		2SK3595-01MRSC-P	1,04		NJM7808FA-#ZZSB	990
9	2SK1102?01MR	2		2SK3599-01MR	420		NJM7812FA-#FZZB	1,6
10	2SK1506	1,59		2SK3683-01MR	300		NJM7815FA-#FZZB	1,835
11	2SK1547-01	380		2SK3685-01SC	300		NJM7818FA?#ZZZB	300
12	2SK1936-01	410		2SK3699-01MR	510		NJM7824FA?#ZZZB	850
13	2SK1938?01R(SC)	1,275		2SK3753-01SC	1		NJM78L05UA-TE1-#FWZB	2
14	2SK1940?01SC	500		2SK3770-01MR	100		NJM78L06UA-TE1#FGZB	2
15	2SK1941-01R	70		ERA92-02SC	1		NJM78L08UA-TE1-#FWZB	1
16	2SK1944-01SC	690		ERC81-004	500		NJM78L09UA-TEI#	1
17	2SK1984	720		FA5502M-HI	940		NJM78L20UA?TE1-#ZZZB	2
18	2SK2003	400		FA5605N?D1	96		NJM78M05FA-#ZZZB	700
19	2SK2082?01	245		SC211-4-TE12RA	15		NJM78M12FA?#FZZB	600
20	2SK2148-01SC	1					NJM7915FA-#ZZZB	800
21	2SK2251	250		(NJRC)			NJM79L05UA-TE1-#ZGZB	1
22	2SK2252-01L(SC)	60		???	??		NJU7021M-TE1-#ZZZB	1,1
23	2SK2257-01SC	100		NJM022M-TE1	2		NJU7062M-TE1-#ZMZB	6
24	2SK2518	1		NJM064M #ZZZB	500		NJU7662D-ZZZB	1,4
25	2SK2522-01MR SC	100		NJM1458M-#ZMZB	200
26	2SK2640?01MR	850		NJM2035D-#ZZZB	100
27	2SK2642?01MR	550		NJM2068D	650
28	2SK2645?01MR(SC)-P	2,55		NJM2068L	425
29	2SK2646?01SC	890		NJM2070M #ZMZB	200
30	2SK2647?01MR	45		NJM2073M	2
31	2SK2648?01(SC)-P	224		NJM2073M	80
32	2SK2651-01MR	80		NJM2162D #ZZZB	150
33	2SK2652-01(SC)	1,1		NJM2274R-TE1-#ZMZB	2
34	2SK2654?01SC	500		NJM2360D-#ZZZB	150
35	2SK2655-01RSC	500		NJM2360AD-#ZMZB	100
36	2SK2761?01MR	3,5		NJM2360M-ZZZB	100
37	2SK2769	70		NJM2368M-#ZZZB	100
38	2SK2850-01(SC)	1,58		NJM2732D #ZZFB	420
39	2SK2870	400		NJM2732V-TE1#ZMZB	2
40	2SK2872?01MR	1,15		NJM2737V-TE1	4
41	2SK2876-01MR	1,875		NJM2902M-#ZZZB	200
42	2SK2879-01(SC)	379		NJM2903D #FMZB	300
43	2SK2903-01MR(SC)-P	50		NJM2903D #ZZZB	5
44	2SK3102-01	700		NJM2904V-TE1-#FZZB	4
45	2SK3217?01MR	209		NJM2904D-#FMZB	400
46	2SK3262-01MR	100		NJM2904M-TE1-#FMZR	2
47	2SK3264-01MR(SC)	1,73		NJM2904M-TE3-#FMZB	2
48	2SK3451-01MR	250		NJM311D-#ZMZB	1
49	2SK3469-01MR	1,185		NJM4556AD-#FMZB	200
50	2SK3502-01MR	1,35		NJM4558M	700
51	2SK3504-01SC	200		NJM4558D #FMZB	627
52	2SK3505?01MRSC	180		NJM4558L	625
53	2SK3520?01MR	200		NJM4559D	50
54	2SK3522-01SC	400		NJM4560D	175
55	2SK3523-01R	203		NJM4560L #ZZZB	300
56	2SK3525-01MR	480		NJM4565L	125
57	2SK3528?01RSC	545		NJM4580L	1,325
58	2SK3532-01MR	820		NJM4580DD	400
59	2SK3555-01MR	400		NJM4580M-TE1#HMZB	2

Die japanischen Schriftzeichen sind dann allerdings durch "???" ersetzt, aber ich gehe davon aus, dass Du damit leben kannst.

Als Alternative biete ich Dir an: Lade die komplette Arbeitsmappe hier ins Forum hoch und ich stelle sie bearbeitet als Download wieder ein ...

[WillWissen]

Hi Klaus,

das ist ein super Tipp. Das Programm ist ja echt Spitze.

[schauan]

Hallöchen,

hier mal eine VBA-Lösung. Die chinesischen Zellen müssten im Nachgang noch formatiert werden und bei einigen Sonderzeichen gibt es andere Ergebnisse, z.B. "?"

Sub ChinesischForYou()
'Variablendeklarationen 
'Integer 
Dim iCnt1%, iCnt2%, iCnt3%
'Variant-Array 
Dim arrZellen
'Zellinhalte uebernehmen 
arrZellen = Range("A1:H59").Value
'Schleife ueber erste Dimension des Array 
For iCnt1 = 1 To Ubound(arrZellen, 1)
  'Schleife ueber zweite Dimension des Array 
  For iCnt2 = 1 To Ubound(arrZellen, 2)
    'Schleife ueber alle Zeichen der Zelle im Array 
    For iCnt3 = 1 To Len(arrZellen(iCnt1, iCnt2))
      'Austausch des jeweiligen Zeichens durch Wandlung in Zeichencode und zurueck 
      Mid$(arrZellen(iCnt1, iCnt2), iCnt3, 1) = Chr(Asc(Mid$(arrZellen(iCnt1, iCnt2), iCnt3, 1)))
    'Ende Schleife ueber alle Zeichen der Zelle im Array 
    Next
  'eventuelle Leerzeichen entfernen 
  arrZellen(iCnt1, iCnt2) = Replace(arrZellen(iCnt1, iCnt2), " ", "")
'Ende Schleife ueber zweite Dimension des Array 
Next
'Ende Schleife ueber erste Dimension des Array 
Next
'Array in Zellbereich zurueckschreiben - hier auf andere Tabelle! 
Sheets("Tabelle2").Range("A1:H59") = arrZellen
End Sub

[RPP63]

Hi André!
Top!
(Da muss man erst mal drauf kommen!)

Gruß Ralf

[Zorex]

Hi Klaus,

ich habe an verschiedenen Homepage Seiten versucht, dieses Free Programm Free Opener zu downloaden, aber immer Fehler Meldungen usw.,
ich weiß nicht wieso, gibt es noch einen besseren Link !?!

http://www.computerbild.de/?dl=2
http://www.chip.de/downloads/Free-Opener_49299995.html

Ich habe im Anhang die Datei Eingefügt und bitte dich recht herzlich,
ob du mir das so Anpasst wie du es siehe unten gemacht hast, den Rest wie "?" die einzeln auftauchen werde ich Anpassen bzw. Löschen.

Aber wie du siehst ist es ein Haufen Arbeit, jeden einzelnen Artikel separat in einer neuen Zeile zu schreiben,
darum habe ich an euch gedacht und wie Ihr sieht, habe Ihr einen sehr guten Möglichkeit gefunden, dieses (doch quirliges) Problem zu Lösen.

Ich danke dir schon mal vorab für deine Hilfe und Mühe.

Gruss

[schauan]

Hallo Zorex,

ich bin zwar nicht der Klaus, hab das aber mal mit meinem code gewandelt. Ich hab im code nur Tabelle2 durch Sheet2 ersetzt und die maximale Zeilennummer 265 eingetragen. Spalte H hatte ausgereicht.
In den Dateien ist also das Original noch auf Sheet1 und die geänderten Daten auf Sheet2. Ich habe den Dateien auch noch eine 2 im Namen verpasst, dass sie beim Auspacken die Originale nicht überschreiben.

[Kl@us-M.]

Hi,

ich hab Dir die Tabellen umgewandelt und in eine Arbeitsmappe gepackt. Schau mal, ob's so passt ...


  Zorex.xls (Größe: 167,5 KB / Downloads: 3)

[Rabe]

Hi,

http://www.chip.de/downloads/Free-Opener_49299995.html

klicke bei dem oberen Link auf den Text: Manuelle Installation >, dann auf den Download >>, dann klappt es mit dem Download

Ansonsten wird durch Chip ein Download-Manager installiert.