VBA Excel 2007: VLookup Rückgabe => Adresse

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich habe eine Excel Tabelle, nach folgendem Schema:

Anton 1
Berta 2
Cäsar 1
Dora 3
Emil 4

Mit einem VLookup kann ich im VBA problemlos anhand des Namens aus Spalte 1 die Zahl aus Spalte 2 zurückbekommen. Leider sind aber in der Spalte mit den Zahlen noch weitere Informationen hinterlegt, die ich ebenfalls auslesen muss. Der Ersteller der Tabelle hat diese Informationen mithilfe der Hintergrundfarbe der jeweiligen Zelle codiert. Also verschiedene Zellfarben haben verschiedene Bedeutungen.

Gibt es eine einfache Möglichkeit, mithilfe einer Bordfunktion von Excel an die Adresse der Zelle, die VLookup findet (oder sogar den Bezug auf die Zelle selbst, damit ich ihn niht noch über Range holen muss) zu kommen? Leider haben meine Suchen bei Google immer nur zu Beiträgen geführt, wo jemand nach der Grundfunktion von SVERWEIS fragt, weil er nicht wusste, dass es die Funktion gibt.

Ich weiß, alternativ könnte ich nun eine weitere Spalte einfügen, die die Informationen aufnimmt, die mit den verschiedenen Hintergrundfarben hinterlegt wurden, jedoch würde ich das gern vermeiden, sofern mit vertretbarem Aufwand möglich (geändertes Layout führt zu mehr Fehlern in der Benutzung).

Vielen Dank schon mal für Eure Antworten.

Gruß

inkasso

#2

Mit einem VLookup kann ich im VBA problemlos anhand des Namens
aus Spalte 1 die Zahl aus Spalte 2 zurückbekommen. Leider sind
aber in der Spalte mit den Zahlen noch weitere Informationen
hinterlegt, die ich ebenfalls auslesen muss. Der Ersteller der
Tabelle hat diese Informationen mithilfe der Hintergrundfarbe
der jeweiligen Zelle codiert. Also verschiedene Zellfarben
haben verschiedene Bedeutungen.

Hallo Eintreiber,

als Ansatz:

Option Explicit

Sub tt()
MsgBox Range("B" & Application.Match("B", Columns(1), 0)).Value
MsgBox Range("B" & Application.Match("B", Columns(1), 0)).Interior.ColorIndex
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,

vielen Dank für deine schnelle Lösung!

Das funktioniert soweit schon mal ganz gut - allerdings nur solange man sich auf dem Tabellenblatt befindet, auf dem die Informationen stehen. Mit vLookup kann ich ja auch auf Blätter zugreifen, die nicht im Vordergrund - ja nicht mal in der gleichen Arbeitsmappe sein müssen.

Ich hoffe also, es findet sich noch eine etwas schnittigere Lösung für das Problem.

Gruß

inkasso

#4

Ich hoffe also, es findet sich noch eine etwas schnittigere
Lösung für das Problem.

Hallo Inkasso,

anderer Ansatz, ja mit Hilfsspalte aber ich sehe nicht wo die stört.
Kannste ja außerhalb des Sichtbereiches, vllt. auch auf einem anderen Blaat, ausgeblendet.
So gültig in C1 bedeutet, du stellst dich in C1 und vergibst von dort aus den Namen.

Tabellenblatt: [Mappe1]!Tabelle1
 │ A │ B │ C │
──┼───┼────┼────┤
1 │ A │ a1 │ 0 │
──┼───┼────┼────┤
2 │ B │ a2 │ 6 │
──┼───┼────┼────┤
3 │ C │ a3 │ 0 │
──┼───┼────┼────┤
4 │ D │ a4 │ 37 │
──┼───┼────┼────┤
5 │ E │ a5 │ 0 │
──┼───┼────┼────┤
6 │ F │ a6 │ 53 │
──┴───┴────┴────┘
Benutzte Formeln:
C1: =Farbe
C2: =Farbe
C3: =Farbe
C4: =Farbe
C5: =Farbe
C6: =Farbe

Festgelegte Namen:
Farbe: =ZELLE.ZUORDNEN(63;Tabelle1!B1)+JETZT()\*0 \*rel. Name, so gültig in C1

A1:C6
haben das Zahlenformat: Standard

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Gruß
Reinhard