Office: Abfragen in einer Distanzmatrix

Hallo zusammen!
Benötige Hilfe bei folgendem Problem:

Suche eine VBA-Abfrage,die es ermöglicht aus einer Matrix Entfernungen
auszugeben.Die Matrix besteht auf der y-Achse aus Abgangsorten und auf der x-Achse aus Zielorten,innerhalb der Matrix sind die Entfernungen angegeben.
Gibt es eine Zählschleife oder Kombination,die es ermöglicht bei Eingabe des Abgangs-und Zielortes die Matrix nach der richtigen Distanz zu durchsuchen?Und diese dann auch ausgibt?

Bin für jegliche Hilfe dankbar.

 

Hallo!

Dazu brauchst du kein VBA...

	A	B	C	D
1		New York	Tokio	Paris
2	Hamburg	111	444	777
3	Berlin	222	555	888
4	München	333	666	999
5
6
7	Start	Berlin
8	Ziel	Paris
9	Entfernung	888

Zelle	Formel
B9	=INDEX(B2:D4;VERGLEICH(B7;A2:A4;);VERGLEICH(B8;B1:D1;))

 

Gracias!

Das ging ja mehr als flott und der Name ist wohl Programm. ;-)
Vielen Dank Schatzi!

Auch wenn ich nun eine Lösung habe,gibt es auch eine Lösung für meine beschriebene Problemstellung auf VBA-Ebene?

 

Hi,

Code:

Sub Entfernung()
    Dim raZelle1 As Range
    Dim raZelle2 As Range
    ' Ausgangsort in A8:A15
    Set raZelle1 = Range("A8:A15").Find(Range("A1"), lookat:=xlWhole)
    ' Zielort in B7:G7
    Set raZelle2 = Range("B7:G7").Find(Range("A2"), lookat:=xlWhole)
    ' Entfernung am Schnittpunkt
    MsgBox Cells(raZelle1.Row, raZelle2.Column)
    Set raZelle1 = Nothing
    Set raZelle2 = Nothing
End Sub

In A1 steht der Ausgangsort, in A2 der Zielort. Die Matrix befindet sich im Bereich A7:G15

Bis später,
Karin