Code mit Workbooks(...) gesucht
23.11.2007 14:54:23
Andre´
Mit folgenden Code wird eine Kopie von der Datei Test.xls; Tabelle 1; Zelle A1 in die Datei Test.xls; Tabelle2; Zelle A2 getätigt.
Sub kopie()
Workbooks("Test.xls").Worksheets("Tabelle1").Range("A1").Copy _
Destination:=Workbooks("Test.xls").Worksheets("Tabelle2").Range("A2")
End Sub
Da sich oft der Name der Datei ändert und ich im Code händich die Änderung vornehmen muss, habe ich mir gedacht, dass ich folgende Formel in die Tabelle1; Zelle B1 wie folgt hinterlege
=TEIL(ZELLE("Dateiname";A1);FINDEN("[";ZELLE("Dateiname";A1))+1;FINDEN("]";ZELLE("Dateiname";A1)) -FINDEN("[";ZELLE("Dateiname";A1))-1)
und dann im Code über diese Zelle das Workbooks(Tabelle1.Range("B1")... anspreche
Habe schon einiges probiert aber ohne Erfolg.
Kann mir bitte jemand helfen.
Danke im Voraus
MFG Andre