Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Micha1908 am November 21, 2013, 12:05:55 Nachmittag

Titel: Einen Wert in Zellen suchen, die ebenfalls mehrere Werte enthalten
Beitrag von: Micha1908 am November 21, 2013, 12:05:55 Nachmittag
Hallo zusammen,

folgendes Problem:

Ich möchte gerne einen Wert in einer kompletten Spalte suchen lassen. Jedoch sind in dieser Spalte auch Zellen mit mehreren Werten vorhanden. Diese Spalte darf jedoch auch nicht verändert werden

            Spalte A                          Spalte Z
Zelle 1   61970, 61972                   21412
Zelle 2   21412, 61981, 61975         61972

Wie suche ich nun z.b. den Wert 21412 in der kompletten Spalte A und gebe diesen wieder?

Vielen Dank vorab.

Mit freundlichen Grüßen

Micha

Titel: Antw: Einen Wert in Zellen suchen, die ebenfalls mehrere Werte enthalten
Beitrag von: Officer am November 22, 2013, 09:53:04 Vormittag
Hallo Micha,

das lässt sich relativ einfach per VBA realisieren.

Der folgende VBA-Code liest den Suchbegriff aus Zelle G2 aus und sucht diesen anschließend in Spalte A. Bei einem Treffer wird der Suchbegriff daneben in Spalte B geschrieben.

Code: Visual Basic
  1. Sub Teilstring_auslesen()
  2.  
  3. '** Suchstring festlegen
  4. strSuchstring = ActiveSheet.Range("G2").Value
  5.  
  6. For a = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
  7.  
  8.   pos1 = InStr(1, ActiveSheet.Cells(a, 1).Value, strSuchstring, 1)
  9.   If pos1 > 0 Then
  10.     ActiveSheet.Cells(a, 2).Value = strSuchstring
  11.   End If
  12.  
  13. Next a
  14.  
  15. End Sub
  16.  

In der beigefügten Datei, kannst Du das Makro ebenfalls noch mal nachvollziehen.

Gruß

Officer
Titel: Antw: Einen Wert in Zellen suchen, die ebenfalls mehrere Werte enthalten
Beitrag von: Micha1908 am November 24, 2013, 18:55:57 Nachmittag
Vielen Dank erstmal.
Gibt es mit dem normalen Excel keine Möglichkeit?
Titel: Antw: Einen Wert in Zellen suchen, die ebenfalls mehrere Werte enthalten
Beitrag von: Officer am November 25, 2013, 07:48:04 Vormittag
Hi Micha,

mit der folgenden Formel, sollte es auch ohne VBA funktionieren:

=WENN(ISTFEHLER(TEIL(A1;SUCHEN($G$2;A1);5));"";TEIL(A1;SUCHEN($G$2;A1);5))

In diesem Beispiel befindet sich der Suchbegriff, also der Werte nach dem gesucht werden soll in Zelle G2 und der Text in dem gesucht werden soll ab Zelle A1, siehe auch Beispieldatei.

Gruß

Officer