SVERWEIS erzeugt übergroße Datei

Hallo Zusammen,
meine Excel 10 Datei bläht sich über SVERWEIS auf eine große Arbeitsmappe ungeheuer auf.
Mit der Formel
=WENN(A9"";SVERWEIS(A9;'[Datei1.xlsm]Positionen_2011'!$C:$AJ;34;0);"")
übernehme ich in 48 Zeilen dieser Tabelle Daten aus einer Datei "Datei1", die ca. 100.000 Zeilen und 44 Spalten hat.
Meine Exceldatei hat (inkl. einiger anderer Blätter) dann eine Größe von ca. 33 MB.
Ich ändere obige Formel in
=WENN(A9"";SVERWEIS(A9;'[Datei2.xlsx]BLP'!$A:$D;4;0);"")
und übernehme Daten aus einer Tabelle mit 11.000 Zeilen und 4 Spalten einer anderen Datei.
Wenn ich dann meine Arbeitsmappe abspeichere, ist sie "nur noch" 12 MB groß.
Anscheinend wird irgendwie ein größeres Datenvolumen nur über den SVERWEIS abgespeichert, wenn ich auf eine große, als auf eine kleine Datei referiere.
Da ich auf mehreren Tabellenblätter auf größere andere Dateien zugreife, kommen dann auch diese immer noch zu großen 12 MB zustande.
Kann ich das durch Änderung einer Konfiguration ändern?
Mit freundlichen Grüßen
Hans

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Hans,
Frage noch offen da ich keine direkte Lösung habe aber etwas gebastelt was das Phänomen
zumindest teilweise erklärt.
Nachfolgender Code füllt eine neu erstellte Mappe in Blatt1 mit 26 Zeilen und 6 Spalten als
Datenquelle.
Das sieht in der Mappe so aus:

Tabellenblatt: K:\[kwsverweistest.xls]!Tabelle1
│ A │  B │  C │  D │  E │  F │
--┼---┼----┼----┼----┼----┼----┼
1 │ A │ B1 │ C1 │ D1 │ E1 │ F1 │
--┼---┼----┼----┼----┼----┼----┼
2 │ B │ B2 │ C2 │ D2 │ E2 │ F2 │
--┼---┼----┼----┼----┼----┼----┼
3 │ C │ B3 │ C3 │ D3 │ E3 │ F3 │
--┴---┴----┴----┴----┴----┴----┴
A1:F3
haben das Zahlenformat: Standard

Spalte A geht runter bis zum zeichen Z, Werte in B4:F26 enstprechend wie in zeilen 1-3
In der Mappe die den Code beinhaltet wird hinten ein neues Blatt angehängt, dort wird in
A1 ein F eingetragen als Suchkriterium für die Sverweisformeln in B1:F1 die in der neu erstellten Mappe den Suchbereich haben.
Nach Formeleintragung wird die neue Mappe gespeichert, geschlossen und dann gelöscht.
Gibt man nun in A1 einen anderen Suchbuchstaben ein so wird der immer noch durch SVerweis gefunden.
Ergo muß sich durch Svwerweis die ganzen Spalten der inzwischen gelöschten Mappe gemerkt worden sein.
Gruß
Reinhard


Option Explicit
Sub sverweistest()
Dim Zei As Long, Spa As Long, wks As Worksheet
Const Pfad As String = "K:\"                  'Anpassen, hinten \ nicht vergessen
Const Datei As String = "kwsverweistest.xls"  'Anpassen
Worksheets.Add after:=Worksheets(Worksheets.Count)
Set wks = ActiveSheet
Workbooks.Add
With ActiveWorkbook
With .Worksheets("Tabelle1")
.Range("A1:A26").Formula = "=CHAR(ROW(A65))"
.Range("B1:F26").Formula = "=CHAR(COLUMN()+64)&ROW()"
.Range("A1:F26").Value = .Range("A1:F26").Value
End With
.SaveAs Pfad & Datei
With wks
.Range("A1").Value = "F"
.Range("B1:F1").FormulaR1C1 = _
"=VLOOKUP(R1C1,[" & Datei & "]Tabelle1!R1C1:R26C6,Column(),0)"
End With
.Close
End With
Kill Pfad & Datei
End Sub

Beliebteste Forumthreads (12 Monate)

SVERWEIS erzeugt übergroße Datei

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread