Hallo, zuerst zu deiner Frage:
ersetze dein "???? DateiName = "C:\Test\abcd & DateiName & Cells(f24).Value & " .txt""
durch
DateiName = "C:\Test\abcd\" & ActiveWorkbook.Name & Cells(24, 6).Value & ".txt"
' spricht sich: Dateiname ergibt sich aus "C:\Test\abcd\" UND dem Namen des
' aktiven Workbooks UND dem Inhalt der Zelle(Zeile, Spalte) UND der Endung ".txt"
' MsgBox DateiName ' vorn auskommentieren, um zu prüfen, ob der Pfad richtig zusammengestellt wurde
Bitte beschreib mir doch nochmal deinen Wunsch für das Speichern/Kopieren der Zellinhalte von Bereich.
Eventuell lässt sich das nämlich auch anders realisieren, da mir nicht ganz klar ist, was der Code tun soll ^^
LG Horsti
|