Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1488to1492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1488to1492
1488to1492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und Finden

Suchen und Finden
22.04.2016 13:55:20
Stefan
Hallo Zusammen,
ich habe folgendes Problem. Ich habe eine Tabelle in der in Spalte A z.b. folgender Inhalt steht. In A1 steht ABCD, BCDE, EFGH in A2 steht ABCD, KLMN, TGHN, KLMN, NGHJ
Zu diesen einzelnen 4stelligen Kombinationen sollen aus einer anderen Liste die zugehörigen Werte gesucht werden. Diese Liste ist wie folgt aufgebaut
A1 ABCD B1 1234
A2 BCDE B2 3456
A3 EFGH B3 9876
etc.
Gibt es eine Möglichkeit in der Ursprungsliste neben der Zelle A1 mit ABCD, BCDE, EFGH die Zelle B1 zu erzeugen, die dann die Werte 1234, 3456, 9876 enthält.
Entweder mit einer Formel oder mit VBA. Ich muss gestehen, ich steh hier völlig auf dem Schlauch.
Viele Grüße und vorab schon mal vielen Dank für Eure Hilfe
Stefan

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und Finden
22.04.2016 14:53:55
ChrisL
Hi Stefan
Siehe Anhang:
https://www.herber.de/bbs/user/105150.xlsm
Im Standard-Modul:
Function SplitSpezial(rng1 As Range, rng2 As Range) As String
Dim MyArray() As String, tempStr As String
Dim i As Integer
Application.Volatile
MyArray() = Split(rng1.Text, ", ")
For i = LBound(MyArray) To UBound(MyArray)
If WorksheetFunction.CountIf(Worksheets(rng2.Parent.Name).Columns(rng2.Column), MyArray(i))  _
= 0 Then
tempStr = "kein Wert"
Else
tempStr = WorksheetFunction.VLookup(MyArray(i), rng2, 2, False)
End If
If SplitSpezial = "" Then
SplitSpezial = tempStr
Else
SplitSpezial = SplitSpezial & ", " & tempStr
End If
Next i
End Function
Anschliessend als Formel verwendet:
=splitspezial(A1;$H$1:$I$3)
A1 = Suchstring
H1:I3 = Liste
cu
Chris

Anzeige
AW: Suchen und Finden
25.04.2016 07:33:24
Stefan
Hallo Chris,
vielen Dank für Deine Hilfe das ist genau das was ich gesucht habe. Ich habe nur ein kleines Problem.
Die Datenbasis hat sich ein klein wenig geändert. In A1 und A2 steht nicht mehr ABCD, BCDE, EFGH und ABCD, KLMN, TGHN, KLMN, NGHJ, sondern TABCD, TBCDE, TEFGH in A2 steht TABCD, TKLMN, TTGHN, TKLMN, TNGHJ. Also vor allen Kombinationen ist ein T. In der Suchliste ist aber kein T vor der 4er Kombination. Kannst Du das mit ganz wenig Aufwand noch umsetzen?
Vielen Dank und schöne Grüße
Stefan

AW: Suchen und Finden
25.04.2016 08:32:43
ChrisL
Hi Stefan
Wenn ich richtig verstehe so... d.h. erster Buchstabe wird ignoriert.
Function SplitSpezial(rng1 As Range, rng2 As Range) As String
Dim MyArray() As String, tempStr As String, cutStr As String
Dim i As Integer
Application.Volatile
MyArray() = Split(rng1.Text, ", ")
For i = LBound(MyArray) To UBound(MyArray)
cutStr = Right(MyArray(i), Len(MyArray(i)) - 1)
If WorksheetFunction.CountIf(Worksheets(rng2.Parent.Name).Columns(rng2.Column), cutStr) = 0  _
Then
tempStr = "kein Wert"
Else
tempStr = WorksheetFunction.VLookup(cutStr, rng2, 2, False)
End If
If SplitSpezial = "" Then
SplitSpezial = tempStr
Else
SplitSpezial = SplitSpezial & ", " & tempStr
End If
Next i
End Function

cu
Chris

Anzeige
AW: Suchen und Finden
25.04.2016 08:39:10
Stefan
Hi Chris,
wenn ich die neue Funktion ausprobiere kommt immer #WERT...
Gruß
Stefan

AW: Suchen und Finden
25.04.2016 09:03:14
Stefan
Hi Chris,
ich habs auch grade in einer neuen Datei versucht da hats auch geklappt. Dann halt über einen workaround! Macht nix.
Vielen Dank für Deine Hilfe!! Du hast mir wahnsinnig viel Zeit erspart.
Schöne Grüße
Stefan

196 Forumthreads zu ähnlichen Themen

Suchen und finden
oscar

Hallo zusammen, über folgenden VBA-Code suche ich in einer Spalte.
Sub CSVAuslesen() Dim i As Integer Dim s As Variant auswahl = InputBox("Auswahl Spalte 2 = GCode") s = auswahl If auswahl = "" Then Exit Sub For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 If Cells(i, 2).Value = s...
07.10.2008 09:46:29
Thread-ID: 1014618
3 Beiträge
Anzeige
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Funktion SUCHEN o.ä. mit mehreren Suchbegriffen
Nico

Morjen,
sacht mal, was ist an der Syntax falsch? Ich will eine Zelle nach mehreren Begriffen durchsuchen und wenn einer dieser Begriffe enthalten ist, soll der Inhalt der Zelle ausgegeben werden.
Folgende Syntax verwende ich bisher für den Teil der Funktion SUCHEN:
=Wenn(Oder(Suchen...
19.05.2009 09:17:25
Thread-ID: 1076059
8 Beiträge
Anzeige
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Max.Wert mehrerer Werte in einer Zelle
Peter

Hallo Forum,
wer kann helfen?
In einer Zelle sind (5 numer. Werte) gespeichert und duch ein
Semikolon getrennt. Die Zelle kann auch Leerstrings enthalten.
z.B. 4;33;;52;12
Ich möchte den max. Wert an die Textbox 'TxtAltKWo1'
übergeben.
Danke Peter
'Zellinhalt (5...
07.11.2009 20:59:50
Thread-ID: 1115285
3 Beiträge
Inhalt von mehreren Textboxen in einer Zelle speic
mehreren

Hallo Forum,
ich möchte per VBA den Inhalt von mehreren Textboxen in einer Zelle speichern.
(mit Semikolon getrennt)
Da gibt es bestimmt eine bessere Lösung als:
Wer kann helfen?
Cells(1,1).value=TextBox1.text & „;“ & TextBox2.Text……….
Danke Peter
08.11.2009 19:48:16
Thread-ID: 1115412
2 Beiträge
Texte in mehreren Zellen suchen
Stephan

Hallo,
ich stehe gerade schwer auf dem Schlauch:
In einer Tabelle befinden sich folgende Werte:
Spalte A -- Text1, Text2 .... Text 4000
Spalte B -- Text1, Text2 .... Text 4000
Spalte C -- Zahl1, Zahl2 .... Zahl 4000
Zeile 1 -- die Suchbegriffe, also z.B. Text 2, Text7,...
28.12.2009 18:32:43
Thread-ID: 1126094
3 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
6
7
7
6
2
1
2
5
3
10
3
3
2
8
2
4
4
13
4
9
4
8
4