SVERWEIS über VBA abkürzen
21.11.2005 17:14:32
Kaiser
ich habe diverse Excel-Dateien mit haufenweise Sverweisen drin. Da man die Sverweise aufgrund von ändernden Tabellen des öfteren anpassen muss (z.b. Bezugsbereich) und manchmal in einer Zelle mehrere Sverweise über =WENN(...) Bedingungen verschachtelt sind ist die Pflege natürlich etwas "anstrengend" - bei eben einer solchen Aktion hatte ich folgende Idee (die aber leider nicht funktioniert):
eine Funktion in VBA definieren, die in etwa so aussieht:
Function sv_short(spalte) As String
sv_short = SVERWEIS($B$2;Tabelle1!$A$1:$C$7;spalte;FALSCH)
End Function
anschließend dann mittels sv_short(2) z.b. den entsprechenden Wert aus der Werte-Tabelle herausziehen - wobei mir klar ist, dass in VBA der Befehl SVERWEIS nicht existiert... somit kann das ganze auch nicht funktionieren...
Kann man sowas mit VBA lösen?
hier eine Datei, in der ich schon mal rumexperimentiert habe:
https://www.herber.de/bbs/user/28584.xls
danke
bk