Registriert seit: 07.03.2017
	
 Version(en): 2002
	
 
	
	
		Hallo an alle ! in beigefügtem Workbook gibt es in Spalte A eine Liste von Kurznamen und in Spalte C eine Liste von Langnamen. Ich benötige eine Formel ( oder VBA ) die die Langnamen durchsucht und wenn der Kurzname enthalten ist, in Spalte B den Eintrag macht. Nicht zu jedem Langnamen gibt es einen Kurznamen, und vielleicht auch umgekehrt. Vielen Dank für Eure Hilfe ! elgato2000
	
	
Angehängte Dateien  
 
 
  Copy of tmp2.xls  (Größe: 211,5 KB / Downloads: 12)
 
	
	
	
 
 
	
	
	
		
	Registriert seit: 14.04.2014
	
 Version(en): 2003, 2007
	
 
	
	
		Hallo,
z.B. so:
Arbeitsblatt mit dem Namen 'Amazon DE'   A B C 2 Kurzname   Langname 3 3D 1P 3D 1P 3D Digital Art 1p 4 Abstract 1P   5th Avenue mit Yellow Cabs in New York City 1p 5 Abstract V2 1P Abstract 1P Abstract Beauty 1p 
Zelle Formel B3 =WENN (ZÄHLENWENN ($C$3:$C$1022;"*"&A3&"*") ;A3;"") 
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg 
	 
	
	
Gruß Atilla 
	
	
 
 
	
	
	
		
	Registriert seit: 07.03.2017
	
 Version(en): 2002
	
 
	
	
		Vielen Dank schonmal .... aber ich brauche die Übereinstimmung dann in den Spalten B und C also z.B. Kurzname "Afrika 1P" in B12 neben C12
	
	
	
	
	
 
 
	
	
	
		
	Registriert seit: 14.04.2014
	
 Version(en): 2003, 2007
	
 
	
	
		Hallo, ok, Du brauchst die Suche genau umgekehrt. Das muss ich mir später genauer ansehen. Das könnte ich per VBA vielleicht eher lösen.
	
	
	
Gruß Atilla 
	
	
 
 
	
	
	
		
	Registriert seit: 07.03.2017
	
 Version(en): 2002
	
 
	
	
		 (07.03.2017, 17:38) atilla schrieb:   Hallo, ok, Du brauchst die Suche genau umgekehrt. Das muss ich mir später genauer ansehen. Das könnte ich per VBA vielleicht eher lösen.OK super, bin gespannt, vielen Dank Atilla. Felix
	
 
	
	
	
	
 
 
	
	
	
		
	Registriert seit: 14.04.2014
	
 Version(en): 2003, 2007
	
 
	
	
		Hallo felix,
ging mit einer Hilfsspalte auch fix mit Formeln:
Arbeitsblatt mit dem Namen 'Amazon DE'   A B C D 2 Kurzname   Langname   3 3D 1P   3D Digital Art 1p 64 4 Abstract 1P   5th Avenue mit Yellow Cabs in New York City 1p #NV 5 Abstract V2 1P   Abstract Beauty 1p 4 6 Abstraktes Herz 1P Abstract V2 1P Abstract V2 1p #NV 7 Aces 1P Street Art 1P Abstraktes Herz Strassenkunst Street Art 1p #NV 8 Adler 1P   Abstraktes Werk 1p #NV 9 Afrika 1P Kartenspiel 1P Aces Poker Casino Spielhalle Kartenspiel 1p 10 10 Algarve 1P Symbol 1P Adler Weisskopfseeadler USA Symbol 1p #NV 11 Ali 1P   African Beauty 1p 477 12 Alone 1P Afrika 1P Afrika 1p 14 
Zelle Formel B3 =WENNFEHLER (INDEX ($A$3:$A$1022;VERGLEICH (ZEILE (A1) ;$D$3:$D$1022;0) ) ;"") D3 =VERGLEICH ("*"&A3&"*";$C$3:$C$1022;0) 
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg 
	 
	
	
Gruß Atilla 
	
	
 
	  
	Folgende(r) 1 Nutzer sagt Danke an atilla  für diesen Beitrag: 1 Nutzer sagt Danke an atilla  für diesen Beitrag 28  
	  • elgato2000  
 
 
 
	
	
	
		
	Registriert seit: 07.03.2017
	
 Version(en): 2002
	
 
	
	
		... Mist ... ich hab ne englische Version von Excel :(
	
	
	
	
	
 
 
	
	
	
		
	Registriert seit: 07.03.2017
	
 Version(en): 2002
	
 
	
	
		Der erste Ansatz mit der Suchreihenfolge war der richtigere =IF(COUNTIF($C$3:$C$1022;"*"&A3&"*");A3;"") Nur waren die Ergebnisse an der falschen Stelle. Also vielleicht doch eher VBA ?!
	
	
	
	
	
 
 
	
	
	
		
	Registriert seit: 14.04.2014
	
 Version(en): 2003, 2007
	
 
	
	
		Hallo,
hast Du meine weiterführende Antwort gesehen?
Aber ich glaube, dass Du eine VBA Lösung vorziehst, deswegen unten noch zusätzlich die VBA Lösung:
Code:
Sub mach()   Range("B3:B1022") = ""   ati = Range("A3:A1022")   ati_1 = Range("B3:B1022")   ati_2 = Range("C3:C1022")   For i = 1 To UBound(ati)     x = Application.Match("*" & ati(i, 1) & "*", ati_2, 0)     If IsNumeric(x) Then       ati_1(x, 1) = ati(i, 1)     End If   Next i   Range("B3:B1022") = ati_1 End Sub
 
	 
	
	
Gruß Atilla 
	
	
 
	  
	Folgende(r) 1 Nutzer sagt Danke an atilla  für diesen Beitrag: 1 Nutzer sagt Danke an atilla  für diesen Beitrag 28  
	  • elgato2000  
 
 
 
	
	
	
		
	Registriert seit: 07.03.2017
	
 Version(en): 2002
	
 
	
	
		Hallo Atilla  VBA scheint hier besser :) Aber: die Suche muss umgedreht werden. Also: Suche, ob in C3 einer der Kurznamen in A:A enthalten ist. Wenn ja, setze diesen Kurznamen in B3