nur Werte aus Verknüpfung übernehmen
29.06.2005 13:03:35
Martin
folgendes Problem kann ich nicht selber lösen.
Wie ist es möglich anstelle einer externen Verknüpfung zu einer Zelle in einer geschlossenen Datei, direkt nur den Wert auszulesen und in die Zieltabelle eintztragen?
Zur Zeit erstelle ich eine Verknüpfung und anschliessend ersetze ich das Resultat mit dem Wert.
Schön wäre es direkt nur den Wert zu erhalten (Performance steigerung) da es sich um sehr viele Arbeitsschritte handelt und jerder Bruchteil einer Sekunde den Aktualisierungsprozess beschleunigt. Früher hatte das Makro jede Datei geöffnet und die Werte in Variablen eingelesen danach wieder in die Zieltabelle übergeben jetzt sind es ein bisschen viel Dateien was mich dazu bewegt die Werte aus geschlossenen Dateien auszulesen.
Kurzer Code zur Veranschaulichung meiner Zeitfresser
(davon gibt es in meinem Makro deren 43 und das bei ca. 1500 - 2500 Dateien die abgefragt werden. Dies sind sage und schreibe ca. 107500 Schritte die durch ein direktes Schreiben nicht getätigt werden müssten.
**************************************************************************
Cells(AktuelleZeile, AktuelleSpalte).Formula = "='" & pfad2 & "[" & name1 & "]" & "Meldeblatt" & "'!" & "AF3"
Cells(AktuelleZeile, AktuelleSpalte).Value = Cells(AktuelleZeile,
AktuelleSpalte).Value
NJahr = Cells(AktuelleZeile, AktuelleSpalte).Value
If NJahr Jahr Then
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
****************************************************************************
Danke für die Hilfe
Martin