AW: Danke .. habe aber noch Probleme mit SVerweis
04.05.2015 09:54:26
fcs
Hallo Sabrina,
leider hast du noch zu wenig Input für eine konkrete Antwort gegeben
Muss in der Zeile neben der Auftragsnummer einen SVerweis einfügen.
Wo ist das in der Tabelle "Lager"?
Links von Spalten AF, AI und AL ?
Wie sieht die zusätzliche Formel aus ?
Aber dann kommt die Fehlermeldung: "Excel kann diesen Vorgang mit den verfügbaren Ressourcen nicht abschließen"
Leider schweigt sich Excel ja meistens darüber aus, welche Resource nicht ausreicht. Denn es kann z.B. Dateigröße(n), große Anzahl Formate, extrem viele komplexe Formeln, große Anzahl Fenster, Größe der VBA-Projekt(e). Ich kann mich auch nicht mehr erinnern, wo es unter Excel 2003 am schnellsten knap wird.
Die hast ja noch parallel die Datei "Erfassung.xls" geöffnet. Ist da noch etwas besonderes drin?
Kann man das Vereinfachen?
Schwierig zu sagen. Soviel ist an der Datei mir ca. 100 KByte Dateigröße ja nicht dran.
Versuche mal die Formeln in z.B.: AE2:
=WENN(AD2="";"";WENN(AD2="Leihgerät";"";SVERWEIS(AD2;
'D:\Test\[Auftrag.xls]Daten'!$A$1:$H$65536;8)))
zu Ändern in:
=WENN(AD2="";"";WENN(AD2="Leihgerät";"";SVERWEIS(AD2;
'D:\Test\[Auftrag.xls]Daten'!$A:$H;8)))
oder die Zeilenzahl 65536 auf einen kleinere sinnvolle Zahl entsprechend der tatsächlichen Anzahl Aufträge zu reduzieren.
=WENN(AD2="";"";WENN(AD2="Leihgerät";"";SVERWEIS(AD2;
'D:\Test\[Auftrag.xls]Daten'!$A$1:$H$5000;8)))
Wenn du zusätzliche Spalten einfügst, dann musst du auf jeden Fall noch ein Makro anpassen, damit die Zellfarbe in der markierten Zelle zurückgestzt wird.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim varRegal As Variant, rngSuche As Range, rngRegal As Range
' Range("AD2:AD61,AG2:AG49,AJ2:AJ25").Interior.ColorIndex = xlNone
Range("RosaRegalWert").Interior.ColorIndex = xlNone
Gruß
Franz