Hallo Experten,
ich habe schon wieder ein Problem:
Habe eine Excel-Datei mit einem Namen, den sie weiterhin behalten muss. Diese soll in Excel (immer gleiche Berechnung) eingefügt (z.B. A1:smiley:10) werden und unter dem ursprünglichen Namen abgespeichert werden.
Dachte bei über 200 sollte es evtl. eine einfachere Möglichkeit als von Hand geben.
Bedanke mich schon jetzt für Eure Hilfe
Uli
Hallo, Uli!
ich habe schon wieder ein Problem:
Habe eine Excel-Datei mit einem Namen, den sie weiterhin
behalten muss. Diese soll in Excel (immer gleiche Berechnung)
eingefügt (z.B. A1:smiley:10) werden und unter dem ursprünglichen
Namen abgespeichert werden.
Dachte bei über 200 sollte es evtl. eine einfachere
Möglichkeit als von Hand geben.
Entweder es ist zu früh, ich habe einen Knoten in einer Gehirnwindung oder mein CD-Brenner ist gerade doch zu laut: Was genau willst Du?
Du hast eine Excel-Datei. Offensichtlich mehrere, derer 200. Was willst Du mit der machen? Was für eine Berechnung gibt’s da?
Gruß, Manfred
Hallo Manfred
hab es etwas blöd ausgedrückt…
Also nochmal:
Ich habe 200 einzelne Dateien mit einem bestimmten Namen.
Jede Datei hat 4 Spalten und unterschiedliche Zeilenzahl.
Jede Datei soll mit mehreren Formeln ausgewertet werden, diese sind in der Datei „Auswertung“ schon vorgegeben.
Manuell würde ich so vorgehen:
Datei öffnen - Kopieren - in Auswertung einfügen - speichern unter dem ursprünglichen Namen
Kann man es so besser verstehen, was ich vorhabe?
Danke schon mal.
Uli
Macro macht’s möglich
Hallo Uli!
Ein VBA MAcro löst dein Problem. Der Dateiname ist in VBA als Objekt namens „Workbook.Name“ verfügbar.
Gruß,
Thomas.
Ich habe 200 einzelne Dateien mit einem bestimmten Namen.
Jede Datei hat 4 Spalten und unterschiedliche Zeilenzahl.
Jede Datei soll mit mehreren Formeln ausgewertet werden, diese
sind in der Datei „Auswertung“ schon vorgegeben.
Manuell würde ich so vorgehen:
Datei öffnen - Kopieren - in Auswertung einfügen - speichern
unter dem ursprünglichen Namen
Hi Ulrich,
schau in der vba-Hilfe nach execut ebzw filesearch.
dann so in etwa:
for n = 1 to .foundfiles.count
workbooks.open .foundfiles(n)
'kopieren usw z.B mit Range("A1:smiley:200").copy destination:=thisworkbook.worksheets("Auswertung").cells(zei,1)
activeworbook.close
next n
Die letzte belegte Zeile in „Auswertung“ erhälst du mit
zei=thisworkbook.worksheets(„Auswertung“).range(„a65536“).end(xlup).row
Genauso die Anzahl der zeilen in den Dateien.
Und was sind das für Frmeln, das kann doch das Makro miterledigen…
Gruß
Reinhard