Eine Datei mehrfach anders benannt kopieren

[MichaelH]

Vorletzte Meldung war "End Sub"

Habe ich natürlich gemacht ...

Doch jetzt kommt:

"For ohne next"

Gruss

Michael

[schauan]

Hallöchen,

sorry für den dummen Fehler mit dem ...As Range. Ich schreibe normalerweise bei der Datenübernahme .Value dahinter, das verringert das Risiko so einer Verwechslung

Hier mal eine geänderte Variante. Ich prüfe zusätzlich, ob da auch was in der Zelle steht. Wenn rechts neben Spalte A irgendwo nach unten zu mehr Zellen belegt sind würde das Makro versuchen, weitere Kopien mit dem Namen datei.html anzulegen ...

Code:

Option Explicit

Sub M_snb()
Dim sn, j As Long
  sn = Cells(1).CurrentRegion.Columns(1).Value
  For j = 1 To UBound(sn)
    If Len(sn(j, 1)) Then FileCopy "C:\Temp\HTML\dateiX.html", Replace("C:\Temp\HTML\dateiX.html", "X", sn(j, 1))
  Next
End Sub

[MichaelH]

Hi!

Jetzt bin ich doch etwas verwirrt, wo gebe ich denn den Zielpfad ein?

Weil hier sind ja Quell- und Zielpfad identisch:

C:\Temp\HTML\dateiX.html", Replace("C:\Temp\HTML\dateiX.html

Wenn ich das so teste, kommt die Meldung:

Laufzeitfehler: `76` - Pfad nicht gefunden

Gruss

Michael

[schauan]

Hallöchen,

replace ersetzt das X durch einen Zellinhalt, ist also nicht identisch.
Die Reihenfolge beim Kopieren usw. ist Quelle, Ziel.

[MichaelH]

Hi!

Also wenn ich das so anwende?

Code:

Option Explicit

Sub M_snb()
Dim sn, j As Long
  sn = Cells(1).CurrentRegion.Columns(1).Value
  For j = 1 To UBound(sn)
    If Len(sn(j, 1)) Then FileCopy "C:\excelforum\dateiX.html", Replace("C:\excelforum\copy\dateiX.html", "X", sn(j, 1))
  Next
End Sub

Quelle = C:\excelforum\dateiX.html

Ziel = C:\excelforum\copy\dateiX.html

Gruss

Michael

[schauan]

... ja, genau

[MichaelH]

Hi!

Wenn ich das so teste, kommt die Meldung:

Laufzeitfehler: `76` - Pfad nicht gefunden

Quell- und Zielpfad sind wie beim Code von Case, aber da klappt alles meldungsfrei.

Gruss

Michael

[snb]

Seit wann ist

"C:\Temp\HTML_Kopie\"

identisch zu

"C:\excelforum\copy\

Bitte erst richtig lesen.
Dann Code analysieren und verstehen.
Dann anpassen.

Lösche 'Option Explicit'
und dann:

Code:

Sub M_snb()
    sn = Tabelle1.CurrentRegion.Columns(1)
    
    For j = 1 To UBound(sn)
        FileCopy "C:\Temp\HTML\dateiX.html", Replace("C:\Temp\HTML_Kopie\dateiX.html", "X", sn(j, 1))
    Next
End Sub

[MichaelH]

Hi!

Also kann ich den Quell- und Zielordner nicht selbst definieren?

Muss das in den Temp Ordner?

Gruss

Michael

[snb]

Fang hier mal an:

Excel-VBA für Dummies: Amazon.de: Walkenbach, John, Haselier, Rainer G.: Bücher