Index in VBA??

Question

Hallo liebe Leute,

vielleicht kann mir jemand helfen.

Ich brauch den Inhalt der Zelle, die in der Zeile "Haus" und der Spalte "Dach" steht.

Haus und Dach fungieren hier als Koordinaten.

Gibt es da was in VBA???

Viele Grüße
Saharra

Answer 1

Hallo,

mit deiner Erklärung kann man nicht allzuviel anfangen, daher wirst du wahrscheinlich keine passende Antwort bekommen.

Gruß

Helmut

Answer 2

Sorry dass ich so ungenau war.

Also ich habe eine Tabelle mit mehreren Zeilen und Spalten.

Die Spalten sowie die Zeilen sind unterschiedlich benannt. (überschriften) Die Spalten z.b. Haus1, Haus2, Haus3.... Der Name steht hier als ein Dummy. Die Zeilen genauso Dach1, Dach2, Dach3.....

In der Zelle, wo sich Haus2 und Dach3 schneiden (treffen) in dem Fall könnte es Zelle B4 sein steht z.B. 500€.

Die Reihenfolge der Spaltenüberschriften und Zeilenbezeichnungen kann jedoch wechseln.

Wie mache ich es, wenn ich die Werte aus der Zelle Haus2 und Dach3 wiedergegeben haben möchte???

Oh Gott, ich hoffe ich habe euch jetzt nicht total verwirrt.

Viele Grüße
Saharra

Answer 3

Hallo,

zwar immer noch nicht gut verständlich, aber was du vorhast müsste mit Summenprodukt () machbar sein.
Etwa so:

=Summenprodukt(($B$1:$J$1="Haus2")*($A$2:$A$10="Dach2")*(B2:J10))

Wobei anstelle von Haus 2 und Dach 2 auch eine Zelle genannt werden kann


Gruß

Helmut

Answer 4

Hallo Saharra,

Eine Möglichkeit wäre z.B. mit der Formel in einer Zelle Deiner Wahl (außerhalb des Zeilen- und Spaltenbereiches)

=INDIREKT(ADRESSE(ZEILE(Dach4); SPALTE(Haus4)))


Vorher von Zeilen A2 bis A? die Dachbezeichnungen, in Spalten B2 bis B? die Hausbezeichnungen.

Anschließend
Für Zeile:
>B4 bis B? markieren
>Namen definieren
>Dach4
>OK

Das gleiche für Spalte Haus 4

Es müsste allerdings für jede Zeile/Spalte ein Name definiert werden und nach Bedarf auch die entsprechenden Formeln (alle Varianten) für die Abfrage.

Ich hoffe, dass die Datei nicht zu groß ist.

Vielleicht kannst Du es mit dieser Möglichkeit nach Deinen Vorstellungen gestalten.

Schöne Grüße

Paul1

Answer 5

Hi,

Sub MatrixAuslesen()
Dim rngSpalte As Range
Dim rngZeile As Range
Set rngSpalte = Rows(1).Find("Dach", lookat:=xlWhole)
Set rngZeile = Columns(1).Find("Haus", lookat:=xlWhole)
MsgBox Cells(rngZeile.Row, rngSpalte.Column)
Set rngSpalte = Nothing
Set rngZeile = Nothing
End Sub

Bezugszeile der Matrix (Spaltenüberschriften) stehen in Zeile 1, Bezugsspalte ist Spalte A - das musst du deinen Bedingungen anpassen.

Bis später,
Karin

Answer 6

Hallo Leute,

erstmal Danke für die Antworten.

Ich werde es sobald wie möglich mit den Angebotenen Läsungen versuchen.


Viele Grüße
Saharra