AW: Per Hyperlink Text in andere Zelle
29.11.2021 19:48:13
Yal
Hallo Robert,
nimmt Dir die Zeit, deine Beschreibung -unter der Annahme, dass Du vom Thema absolut nichts weisst- noch einmal zu lesen.
Wenn ich es richtig dekodiert habe:
es gibt eine Liste (übereinander geordnet) von Überschriften, die mit Spaltenüberschriften (nebeneinander) abgeglichen werden soll.
Erste mit erste, zweite mit zweite, usw.
Bei erste Ungleichheit soll der Spaltennummer zurückgegeben werden.
Es gibt mit Sicherheit eine Formellösung, aber deine Beschreibung hat wohl die Formelspezialisten des Forum nicht erfolgreich geködert.
Ich mache es lieber mit einer UDF, User Defined Formula, also eine selbst definerte Excel Formel.
Öffne den VBA-Editor (Alt+F11),
füge einen Modul ein (Einfügen, Modul),
darin füge den Code
Public Function ErsteUngleich(Liste1, Liste2) As Long
Dim i As Long
For i = 1 To Liste1.Cells.Count
If LCase(Trim(Liste1(i))) LCase(Trim(Liste2(i))) Then
ErsteUngleich = i
Exit Function
End If
Next
End Function
Dann kannst Du in dein Arbeitsblatt die Formel
=ErsteUngleich(A2:A16;C2:Q2)
und diese liefert in deinem Beispiel die Wert 5: in dem Bereich C2:Q2 stimmt den 5te Spaltenüberschrift nicht mit dem 5te Eintrag der Liste A2:A16 überein.
Falls diese Formel in B2 steht, kannst Du mit
=ADRESSE(2;B2+2)&":"&ADRESSE(20;B2+2)
daraus eine Adresse $G$2:$G$20
zusammenbauen.
VG
Yal
Mir fehlt doch eine -einfache- Formellösung ein:
in der Zelle C1 (in deinem Beispiel über "Erna"), füge die Formel
=(INDEX($A$2:$A$12;SPALTE(A1);1)C2)*SPALTE()
und kopiere diese Formel nach rechts.
In der Zelle G1 kommt einen 7 vor.
In der Zelle B1, füge die Formel
=ADRESSE(2;MIN(C1:Q1))
ergibt $G$2
(ersetze C1 und Q1 durch deine erste und letzte Spalte)