VBA vereinfachen
28.04.2004 20:18:23
Andre
Also in meiner Spalte a8 stehen untereinander lauter Dateinamen, in spalte c8 soll jetzt die formel ='C:\test\[name.datei]blatt'!$c$1 stehen, wobei Name.Datei ja in Spalte A8 stehtund das blatt aus z.B. spalte D3 vom Namen her ausgelesen wird das habe ich bisher so gelöst:
Sub test()
Range("G8").Select
Selection.Copy
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C8").Formula = "='C:\test\[" & Range("C8").Value
Range("G9").Select
Selection.Copy
Range("C9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C9").Formula = "='c:\test\[" & Range("C9").Value
End Sub
Die abfrage besteht aus jeweils 4 Werten pro Tabelle und geht über 120 Dateien.
In Spalte G8 habe ich über eine Formel den Dateinamen(A8) mit dem Blatt(D3) und der Zelle verkettet.
und dann das ganze halt über das vbs dortreinkopiert.
das hat auch wunderbar funktioniert aber mitlerweile ist die Tabelle sehr groß geworden bzw. ich frage aus den anderen Tabellen mehrere Werte ab sodas es ziehmlich unübersichtlich ist und Excel nach 50 Zeilen abbricht und sagt Prozess zu groß.
Wie kann ich das eventuell vereinfachen bzw. dafür sorgen das Excel nicht abbricht?
Gruß
Andre