Office: Wenn dann für fortgeschrittene

Hi!

Ich hab in dem Forum einen Beitrag gefunden, der mein Problem ganz gut beschreibt und an sich auch halbwegs beantwortet (http://www.office-hilfe.com/support...cht-die-mir-mehrere-bedingungen-zulaesst.html), nur habe ich mehr Bedingungen als 7. Welche Möglichkeit gäbe es dieses Problem zu lösen? Ich habe schon an ODER gedacht, aber zu jeder Bedingung gehört ein anderer DANN-Wert.

Danke für eure Hilfe.
lorelai

 

sry, hab von Excel nicht wirklich viel Ahnung....
Aber in solchen Fällen bietet sich theoretisch VBA an.

Menü Extras - Makro - VisualBasicEditor
dort ein neues Modul anlegen, innerhalb des Moduls eine neue Funktion. Der Funktion gibst du einen eindeutigen Namen (z.B. Berechnen)

die Funktion wird dir nun angezeigt (erste und letzte Zeile) und du änderst die erste Zeile ab.
z.B.
Public Function Berechnen()
in
Public Function Berechnen(wert As Integer) As String ' wenn das Quellfeld eine Zahl und das Zielfeld ein String ist....

dann kannst du darunter so viele If-Then Zeilen einfügen, wie du benötigst. Diese können auch verschachtelt sein oder anstelle von If-Then mit Select Case ausgewertet werden....
wichtig ist dabei nur, dass du das Resultat an die Funktionsbezeichnung zurückgibst.

z.B.
if wert=1 then Berechnen="A"
...

in der Tabelle kannst du dann in der Ziel-Zelle folgendes einfügen:
=Modul1.Berechnen(A1)
(sofern der Ausgangswert aus Zelle A1 kommt, ansonsten anpassen)
Excel sollte dann automatisch den zugehörigen Wert aus der Funktion in die Zielzelle übergeben.

hth

 

Hi racoon!

Danke für deinen Tip, aber irgendwie komme ich mit dem VBA nicht so ganz zurecht. Ich habe es geschafft, dass er die Befehle die ich eingegeben hab nicht gleich rot markierte und mir eine Fehlermeldung zurückgab, aber sobald ich den Befehl =Modul1.Berechnen(A1) (natürlich in abgewandelter Form) eingegeben hab, schreibt mir das Programm immer die Fehlermeldung #name?.

Was mir einfallen würde, was Probleme bereiten könnte ist:
1. Der Wert der überprüft werden soll ist selbst durch eine Formel eingefügt (Text; eine Index-Formel), könnte das Probleme geben?

oder
2. Die Tatsache, dass sich die Werte mit denen verglichen werden soll und deren zugehörige Werte in einer anderen Tabelle befinden als die Ausgabeliste.

oder
3. Nachdem ich ja im VBA nicht so wirklich versiert bin könnte es ja sein, dass ich einfach irgendeinen Blödsinn (der mir gar nicht bewußt ist) programmiert habe. Also diese Möglichkeit erscheint mir die Wahrscheinlichste.

Bitte um Hilfe!
Danke!
lorelai

 

#name? bedeutet in dem Fall, dass VBA entweder das Modul, die benannte Funktion darin oder eine Zelle (was der häufigste Grund ist!) nicht finden kann. Vermutlich ist dir bei der Überprüfung ein Syntaxfehler untergekommen. Kann also eine Mischung aus deiner Vermutung 2 und 3 sein.

Da ich hier keine Möglichkeit gefunden habe, mal ein Auszug aus der Excel-Datei auf den Server zu laden, kannst du mir evtl mal ein Muster mit ein paar Beispieleinträgen zukommen lassen? Email im Profil......

 

nachdem ich mal einen Auszug aus der Excel-Datei per Mail erhalten habe....

hier nur zum Abschluss eine Bemerkung.
Das Problemchen lässt sich wohl durch einen SVerweis lösen.

Im Zielfeld wird scheinbar nur
=SVERWEIS(A2;Hilfstabelle!A:C;2)
benötigt, wodurch sich der komplette VBA-Aufwand erspart.

 

Hi Racoon!

Danke für deine Hilfe. Bin im Forum auch zufällig über den SVerweis gestolpert und hab ihn erfolgreich angewendet.

Danke für deine Hilfe!

lg,
Lorelai