Hallo liebe Leute,
hab diese Frage schon bei "Office-Lösung" gestellt, mir konnte aber nicht geholfen werden.
Folgendes Problem:
ich möchte mit einem SVERWEIS in ca. 15 verschiedenen Tabellen suchen. In Spalte A ist mein Suchkriterium und in Spalte B ein Begriff (Ort). Ich möchte also sagen, wenn in B Ort 1 steht, dann sverweis auf Tabelle 1; wenn in B Ort 2 steht, dann sverweis auf Tabelle 2 usw.
Das scheitert ohne vba daran, dass die Formellänge auf 1024 Zeichen beschränkt.
Mit VBA scheitert es aber auch, bei einer bestimmten Länge, wahrscheinlich weil es ja auch nur in die Zelle in Excel reingeschrieben wird.
Soweit bin ich erst mal mit aufzeichnen gekommen, das ganze ist im Editor auch schlecht lesbar, weil ich nicht weiß, ob und wo ich einen Zeilenumbruch (ich weiß: lerr+_) einfügen kann.
Statt "Tabelle1" steht bei mir natürlich der ganze Pfad und der ist lang, weswegen die vielen Zeichen entstehen. Hier mein Beispiel:
Range("U5").Select
ActiveCell.Formula = _
"=IF($B5=""Ort 1"", IF(VLOOKUP($A5,'Tabelle1'!$B$1:$AQ$90,25,FALSE)=FALSE,"""",""ja""), IF($B5=""Ort2"", IF(VLOOKUP($A5,'Tabelle2'!$B$1:$AQ$90,25,FALSE)=FALSE,"""",""ja""), IF($B5=""Ort3"", IF(VLOOKUP($A5,'Tabelle3'!$B$1:$AQ$90,25,FALSE)=FALSE,"""",""ja""), IF(VLOOKUP($A5,'Tabelle4'!$B$1:$AQ$90,25,FALSE)=FALSE,"""",""ja""))"
Range("U5").Select
Selection.AutoFill Destination:=Range("U5:U90"), Type:=xlFillDefault
Range("U5:U90").Select
Range("T30").Select
Ich hoffe mir kann jemand helfen, ich habe schon lange nach Lösungen gesucht aber nichts gefunden.
Gruß Holger