Office: Wenn-Dann Makro

Hallo Liebe Community,

ich habe ein Problem, ich kenne mich leider mit Makros nicht so richtig aus vielleicht kann mir jemand behilflich sein.

Ich habe eine Exceldatei mit 2 Tabellenblättern

1. Tabelle1
2. Tabelle2

ich will in Tabelle 1 ein Makro haben das erkennt Wenn in Zelle H4 (Tabelle 1) z.B. das Wort Max Mustermann steht automatisch die Telefonnummer von Zelle C36 (Tabelle 2) in die Zelle S4 (Tabelle 1) schreibt.

Die Zeile in der Max Mustermann steht kann abweichen zwischen ca. 99 anderen namen das gleiche gilt für die Telefonnummer in Zeile C36, diese gehen ab C2 los und enden bei C100 momentan.

Da es sich um viele Namen handelt funktioniert die einfach Wenn-Dann Funktion leider nicht.

So sieht momentan mein Makro aus aber leider funktioniert es nicht:

Sub WennDann()

If Range("Tabelle1!H4") = "MAx Mustermann" Then

Range("Tabelle1!S4") = Range("Tabelle2!C36")

Else

Range("Tabelle1!S4") = "Falsch"

End If

End Sub

:)

 

Hm,

vielleicht VERWEIS, VERGLEICH oder ähnliches?
So richtig kann ich Deinen Text nicht verstehen...Beispiel Mappe?

 

Tabelle 1:
Die Zeile H4 ist eine DropDown Liste in der ich verschiedene Namen auswählen kann.
In der Zeile S4 soll Excel automatisch die dazugehörige Telefonnummer eintragen

Tabelle 2:

Die ist meine Datenbank wo alle Namen, Telefonnummer, E-Mailadressen und co. hinterlegt sind. Aus dieser Tabelle soll die Telefonnummer genommen werden und auf der Tabelle 1 eingetragen werden.

=WENN(H4="Max Mustermann";Tabelle2!C2;WENN(H4="Paul Panzer";Tabelle2!C3;WENN(H4="Karl Heinz";Tabelle2!C4;WENN(H4="Peter Grünmaier";Tabelle2!C5;WENN(H4="Herbert Schulz";Tabelle2!C6;WENN(H4="Dieter Klaus";Tabelle2!C7;WENN(H4="Kai-Uwe Döhring";Tabelle2!C8;WENN(H4="Michael Jones";Tabelle2!C9))))))))


So habe ich es momentan als normale Wenn_Dann Funktion aber da noch viele andere Namen dazu kommen geht es leider nicht mehr über diese Funktion, deswegen wollte ich das ganze als Makro machen.

 

Yep,

dann wäre VERWEIS (suche in sortierten Daten) VERGLEICH (suche in Daten) der richtige Weg...
DU hast eine Spalte mit Namen und eine Salte mit TelefonNUmmern, Du musst VERWEIS/VERGLEICH in der Namenspalte suchen lassen worauf die Fund(Zeile/Spalte) in der Telefonnummernspalte zurückgeliefert wird.
Guckst DU

 

Ok super danke probiere es nachher gleich mal

 

Hola,

http://www.vba-forum.de/forum/View.a...nn-Dann_Makro_

Crossposting ist doof.

Gruß,
steve1da

 

irgendiwe steige ich nich nicht so ganz durch, habe mal eine tabelle hochgeladen, könntest du da mal evtl für 2 Stck den VERWEIS eintragen?

Vorlage.xlsx

 

Hola,

Code:

Gruß,
steve1da

 

Ah Super Danke euch, genau sowas habe ich gesucht *biggrin.gif*