Hallo liebe Helferlein(s),
hallo ich kopiere mittels Makro Daten aus einer Datei in eine andere.Dabei sind beide geöffnet.
Eine Datei hat den Namen : alle-BT-alle-Typen.xls -- in diese Datei werden die Daten kopiert. Die andere von der die Daten geholt werden (es gibt ca. 25 Dateien), da ist der Dateiname verschieden. Jetzt meine Frage:
Kann ich nicht alle Dateien gleichzeitig öffnen und die Namen der Dateien in eine Variable schreiben ?
(ausser : alle-BT-alle-Typen.xls). hoffe ich habe mich einigermaßen verständlich ausgedrückt.
Danke im voraus Grüße Jürgen
hier mein bisheriges Makro:
Dim bauteil As String
</p><pre>Sub Übersicht_aktualisieren()
'
' Übersicht_aktualisieren Makro
' Makro am 23.05.2008 von JG aufgezeichnet
'
' Tastenkombination: Strg+a
'
a = ThisWorkbook.Name
b = InputBox("Dateiname angeben")
b = b & ".xls"
zeile = ActiveCell.Row + 2
spalte = ActiveCell.Column
zeile2 = 10
zeile3 = 7
Windows(b).Activate
Range("C10").Select
Do While ActiveCell() <> ""
Do While ActiveCell(, 7) = "X"
zeile2 = zeile2 + 1
Range("c" & zeile2).Select
Loop
bauteil = ActiveCell()
Windows(a).Activate
Range("a" & zeile3).Select
Do While ActiveCell() <> "" And ActiveCell() <> bauteil
zeile = zeile + 1
Range("a" & zeile).Select
Loop
If ActiveCell() = "" Then ActiveCell() = bauteil
If ActiveCell(, spalte) <> "" Then ActiveCell(, spalte) = ActiveCell(, spalte) + 1
If ActiveCell(, spalte) = "" Then ActiveCell(, spalte) = 1
zeile2 = zeile2 + 1
Range("a" & zeile3).Select
Windows(b).Activate
Range("c" & zeile2).Select
zeile = zeile3
Loop
End Sub</pre><p>