Excel Suchfunktion

[BoskoBiati]

Hallo,

und es geht doch:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E
1	Name neu	Bedingung		Name alt	Ergebnis richtig
2	ALDI Darmstadt	aldi*darmstadt		REWE Frankfurt	REWE Frankfurt
3	ALDI Frankfurt	aldi*frankfurt		ALDI GMBH + CO. KG//DARMSTADT/DE / ALDI SUED SAGT DANKE	ALDI Darmstadt
4	LIDL	lidl		DANKE, IHR LIDL//Neustadt a/DE / DANKE, IHR LIDL	LIDL
5	REWE Frankfurt	rewe*ffm		REWE Frankfurt	REWE Frankfurt
6	REWE Frankfurt	rewe*frankfurt		DANKE, IHR LIDL//Neustadt a/DE / DANKE, IHR LIDL	LIDL
7				ALDI GMBH + CO. KG//DARMSTADT/DE / ALDI SUED SAGT DANKE	ALDI Darmstadt
8				ALDI GMBH + CO. KG//DARMSTADT/DE / ALDI SUED SAGT DANKE	ALDI Darmstadt
9				ALDI GMBH + CO. FRANKFURT / ALDI SUED SAGT DANKE	ALDI Frankfurt

Zelle	Formel
E2	=INDEX(A:A;AGGREGAT(15;6;ZEILE($A$2:$A$6)/(ISTZAHL(SUCHEN(LINKS($B$2:$B$6;SUCHEN("~*";$B$2:$B$6&"*")-1);D2)))/(ISTZAHL(SUCHEN(TEIL($B$2:$B$6;SUCHEN("~*";$B$2:$B$6&"*")+1;99);D2)));1))

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

@atilla :49:

[atilla]

Hallo,

das mit der Zunge zählt nicht mehr.
Ich hatte ja schon auf eine mögliche Arrayformel Lösung hingewiesen.
Aggregat wollte ich auch erwähnen, habe ich aber nicht, weil ich die Funktion nicht mag.
 
Das ist so wie Schaltgetriebe und Automatik.
Aber Du als Opa ziehst jetzt natürlich Automatik vor. :49:

[BoskoBiati]

:28: :19:

[clippers41]

Beide Lösungen funktionieren klasse!

Mal eine andere Frage:
Ich will ein Makro schreiben, mit dem ich eine andere Excel Datei auswählen kann und von dort aus einen Bereich in meine eigentliche Excel kopiere.
wie gehe ich da am besten vor?

Danke!

[Rabe]

Hi,

Mal eine andere Frage:
Ich will ein Makro schreiben, mit dem ich eine andere Excel Datei auswählen kann und von dort aus einen Bereich in meine eigentliche Excel kopiere.
wie gehe ich da am besten vor?

damit Du am meisten lernst:

1. zeichne diese Vorgänge in einem Makro mit dem Makrorekorder auf,
   
2. poste das erstellte Makro hier im Forum und
   
3. schaue Dir dann den durch die Helfer geänderten (Ballast entfernt, verallgemeinert) Code im Vergleich an.
   

[clippers41]

Ich kann das Makro ja nicht aufzeichnen, es soll ja eine eigene Datei auswählen.

Code:

Sub ImportData()
 Dim Var As Variant
 Dim wks As Worksheet
 Dim csvPath As String
 
 Var = Application.GetOpenFilename("Excel Dateien (*.csv),*.csv", 1, "XLS-Import wählen", , False)
 If Var <> False Then
   Set wks = Workbooks.Open(Var).Sheets(1)
   csvPath = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 3) & "xls"
   Application.DisplayAlerts = False
   ActiveWorkbook.SaveAs Filename:=csvPath, FileFormat:=xlWorkbookDefault, Local:=True
   Application.DisplayAlerts = True
   wks.Parent.Close False
 End If
End Sub

Diese Sub soll ein CSV importieren und es als XLS speichern, da VBA CSV nicht ohne Trennzeichen öffnen kann.
Gibt es dafür eine bessere Methode?

[schauan]

Hallo Clippers,

das mit dem Aufzeichnen nicht immer alles geht, ist schon klar. Wir können dann aber den Code überarbeiten. Aus dem aufgezeichneten Code können wir zumindest einige Informationen entnehmen und sparen natürlich auch etwas Programmierzeit.

Ich denke, dass Dein geposteter Code schon ganz gut ist. Ich würde lediglich überlegen, ob die Ausgabe als xls wirklich nötig ist und nicht besser xlsx genommen werden sollte.

Du wolltest ja neben der Auswahl einer Datei auch noch das Kopieren von Daten. Bei einer Aufzeichnung hätte man das sicher 1:1 übernehmen können, zumindest, wenn Du komplette Spalten kopierst oder einen festen Bereich. Man würde sehen, was Du kopierst und wohin.
Wenn Du einen flexiblen Bereich kopieren willst, z.B. je nach vorhandenen Daten, müsste man wieder anpassen.