Spalten Überschriften nach "string" durchsuchen - wenn vorhanden dann Zeile ausgeben

[n8lauscher]

Hallo,

ich bin leider mit meinem Latein am Ende.

Ich habe eine sehr große Tabelle1 und eine Tabelle2 im selben Arbeitsblatt.

In Tabelle1 steht z.b.

Name,          Vorname, 111 Option1, 222 Option 2, 323 Option 3, dsad Option 4
Müller           Michael    Nr. 2
Schneider      Sascha                       Nr. 4
Schmitz        Eva                                                 Nr. 5
Maier           Maria                                                                   Nr. 1
Schulz          Saskia      Nr. 4
Klose           Wilhelm                      Nr. 3
Scherf          Marco                                             Nr. 2
Nohlen         Max                                                                     Nr.7


Tabelle 2 soll dann wie folgt aussehen:


Name,          Option Wert
Müller           Nr. 2 
Schneider      Nr. 4
Schmitz        Nr. 5
Maier           Nr. 1
Schulz          Nr. 4
Klose           Nr. 3
Scherf          Nr. 2
Nohlen         Nr. 7

wobei die alle Spalten aus Zeile 1 (Überschriften) nach einem Sting durchsucht werden sollen (Im Beispiel hier durchsuchen nach "Option") 
Wenn Option in Spalte X vorkommt dann den entsprechenden Wert in Tabelle 2 ausgeben - wenn nicht vorkommt dann weitersuchen, wenn gar nicht vorkommt, dann nichts ausgeben.

Ich habe jetzt eine Verkettung von Wenn gemacht - da ich aber eine Tabelle mit Spalten bis "KT" habe und die Optionen in sehr vielen Spalten stehen - ist die Formel super lang.....
Frage mich op es hier eine Möglichkeit der Kürzung gibt?

=WENN(Uhren_scraper.BD2=0;WENN(Uhren_scraper.CH2=0;WENN(Uhren_scraper.DC2=0;WENN(Uhren_scraper.DN2=0;WENN(Uhren_scraper.DY2=0;WENN(Uhren_scraper.ek2=0;WENN(Uhren_scraper.el2=0;"";Uh;Uhren_scraper.dy2);Uhren_scraper.dn2);Uhren_scraper.dc2);Uhren_scraper.ch2);Uhren_scraper.BD2)

Hoffe jemand versteht meine Fragestellung....

[WillWissen]

Moin,

zeige uns bitte deine (anonymisierte) Tabelle. Es reichen 10-15 Datensätze, lass bitte deine bisherigen Formeln drin und schreibe bei ein paar Datensätzen dein Wunschergebnis rein. Dazu etwas Lesestoff (die mit Wichtig gekennzeichneten Beiträge): http://www.clever-excel-forum.de/Forum-N...gshinweise

[shift-del]

n8lauscher,

wandle die Liste in eine Tabelle (STRG-T).
Daten -> Daten abrufen und transformieren -> Aus Tabelle
Die Spalten "Name" und "Vorname" selektieren und Rechtsklick -> Andere Spalten entpivotieren.
Die Spalten "Vorname" und "Attribut" entfernen.
Die Überschrift von "Wert" auf "Option Wert" ändern.
Schließen & laden.
Fertig.

[Rabe]

Hi Detlef,

ich habe die Liste umgewandelt, aber schon mit dem zweiten Schritt (abrufen und tranformieren) kann ich nicht weitermachen, im Menü Daten ist alles ausgegraut
Tabelle1

	A	B	C	D	E	F
1	Name	Vorname	111 Option 1	222 Option 2	323 Option 3	dsad Option 4
2	Müller	Michael	Nr.2
3	Schneider	Sascha		Nr.4
4	Schmitz	Eva			Nr.5
5	Maier	Maria				Nr.1
6	Schulz	Saskia	Nr.4
7	Klose	Wilhelm		Nr.3
8	Scherf	Marco			Nr.2
9	Nohlen	Max				Nr.7

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit

   

[shift-del]

Ralf,

du gehörst ja noch den Usern, die sich mit einer alten Version rumplagen müssen. Da läuft das eben anders.
In Excel 2013 muss das AddIn Power Query installiert und aktiviert sein.

[lupo1]

Deine o.g. Daten in A1:F9. Da sie so schön symmetrisch sind, habe ich Deinen Text nicht gelesen, sondern bin nur dem Beispiel gefolgt.

J2[:J9]: =A2
K2[:K9]: =INDEX($C:$F;ZEILE(K2);REST(ZEILE(K2)-2;4)+1)

Wer fragt, was J2[:J9]: bedeutet, wird höchstpersönlich in Pjö..j... dem dritten Führer ausgeliefert.

[shift-del]

Wer fragt, was J2[:J9]: bedeutet, wird höchstpersönlich in Pjö..j... dem dritten Führer ausgeliefert.

Vermutlich irgendein exotischer Smiley: Kim Jong Un looking at things.

[Gast 123]

Hallo,

ich sehe viele Lösungen, aber noch keine Rückantwort vom Frager.  
Sollte die Aufgabe noch offen sein habe ich noch ein kurzes Makro im Angebot. 

mfg  Gast 123

Code:

Option Explicit         '10.8.2017  Gast 123  Clever Forum

Dim AC As Range
Dim Txt As String, sp As Integer

Sub Optionen_auflisten()
Dim Tb2 As Worksheet, lz As Long
Set Tb2 = Sheets("Tabelle2")
   'Tabelle2 UsedRange immer löschen
   Tb2.UsedRange.Offset(1, 0).Clear
   
   Sheets("Tabelle1").Select
   lz = Cells(Rows.Count, 1).End(xlUp).Row
   
   'Schleife für Optionen in Spalten finden
   For Each AC In Range("A1:A" & lz)
     sp = AC.Cells(1, 2).End(xlToRight).Column
     Txt = AC.Cells(1, 2).End(xlToRight).Value
     If InStr(Cells(1, sp), "Option") Then
        Tb2.Cells(AC.Row, 1) = AC.Value
        Tb2.Cells(AC.Row, 2) = Txt
     End If
   Next AC
End Sub