Hallo Excel-Fan-Gemeinde,
ich habe ein Problem, dass ich einen variablen Dateinamen (durch die Kalenderwochen bedingt) habe und aus diesen variablen Dateien einen bestimmten Teil von Daten in eine andere Datei kopieren möchte.
Es geht darum, dass es eine Vorlage gibt und anhand des nachstehenden Makros werden dann die Daten als Datei wie folgt abgespeichert werden:
Dim strDateiname As String
Dim strAntwort As String
strDateiname = "Grp. " & Range("b3").Value & "KW " & Range("P3").Value & ".XLS"
ActiveWorkbook.SaveAs ("G:\Fertigung\Tischplattenfertigung\Gruppen\Gruppe 02\Lohnabrechnung\2010\" & strDateiname)
Der Dateiname sieht dann z.B. so aus: Gruppe 02KW 9,3 aus.
*******************************************************
Dann habe ich einen Code zum Übertragen der Daten von dem Hajo erhalten, der mit einem feststehenden Dateinamen auch funktioniert:
Dim loletzte As Long
loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Workbooks.Open Filename:= _
"G:\Fertigung\Abrechnung zusätzliche Akkordminuten 2010\Akkordminuten.xls"
With Workbooks("Akkordminuten").Sheets("Daten")
loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
Workbooks("Vorlage für Gruppe 02a2test1ka").Sheets("Gruppe").Range("fa1:fm50").Copy
.Cells(loletzte + 1, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Das Problem ist hier die feste Zuordnung:
Workbooks("Vorlage für Gruppe 02a2test1ka").Sheets("Gruppe").Range("fa1:fm50").Copy
Frage: Gibt es da auch die Möglichkeit den Dateinamen abzufragen und anstelle von
Workbooks("Vorlage für Gruppe 02a2test1ka") einzusetzen?
Falls es wissentlich nicht gehen sollte, so wäre ich auch für einen entsprechenden Hinweis dankbar.
Dann müsste ich mir die Arbeit machen für rund 40 Gruppen alle 52 Kalenderwochen vorzubereiten
und dann jeweils den Code entsprechend anpassen, was natürlich nicht toll wäre.
Ich bedanke mich bei allen Interessierten und wünsche noch einen schönen Abend… Gruß Helmut