Kopieren und umbenennen einer Vorlage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Markus,
wenn du "gerne mehr VBA anwenden können" willst, solltest Du nen Kurs belegen, z.B. bei der VHS vor Ort.
Oder schnüffel Dich halt durch Tutorials, u.a. hier beim Herrn Herber - er bietet auch CDs an.
Was soll ich Dir zu einem "Dreizeiler" erzählen?
Ich recherchiere bei einer bekannten Suchmaschine nach: excel vba datei kopieren
und finde ganz oben zwei Einträge des Forums, und wenn ich die Suchmaschine machen lasse, wird die Suche ergänzt um den Begriff "filecopy", es wird also gesucht nach: excel vba datei kopieren filecopy
und findet https://www.herber.de/forum/archiv/588to592/589058_Datei_per_VBA_kopieren.html
wo ganz unten ein netter Code von Frank steht, den Du Dir mal kopieren kannst.
Die untere, aufrufende Funktion muß nur durch eine Schleife ergänzt werden, die Deine Zellen durchsucht.
Also recherchiere mal: excel vba for-schleife und sehe Dir die Infos an.

Sub schleife()
Dim i As Long
For i = 1 To 20
MsgBox "Dein Dateiname: " & Range("A" & i).Value
Next
End Sub

Hier mußt Du nur die MsgBox durch den Aufruf von Franks Kopierfunktion ersetzen - fertig!
Schöne Grüße,
Michael
P.S.: ach so, da steht "teilweise ausgefüllt", also solltest Du noch ne if-Abfrage rein machen, ob die Zelle leer ist. Recherchiere nach: excel vba if-Abfrage
P.P.S.: wenn Du es dann noch ganz richtig machen willst, recherchierst Du noch: excel vba fehlerbehandlung und siehst Dir den link an: http://www.online-excel.de/excel/singsel_vba.php?f=145
(Vorsicht, das ist schon der zweite Teil)
P.P.P.S.: Ich weiß schon, um was zu suchen, muß man bereits eine gewisse Ahnung haben, sonst hat man keine Suchbegriffe parat. Ich stelle immer excel vba voran.
Naja, was will man machen? Learning by doing... Beschäftige Dich damit, recherchiere, und irgendwann bist Du fit! Und: Kurse an der VHS kann ich nur wärmstens empfehlen, um einen gewissen Grundstock zu haben, halt mal grob eine Vorstellung von der Geschichte zu bekommen.

Sub VorlagenErstellen(ByVal Arbeitsverzeichnis As String, _ ByVal FileName As String, _ ByVal Dateiendung As String) Dim src As Variant, dst As Variant src = Arbeitsverzeichnis & "\00_Vorlagen\vorlage" & Dateiendung ' Namen der Quelldatei _ festlegen." dst = Arbeitsverzeichnis & "\" & FileName & Dateiendung ' Namen der Zieldatei festlegen. FileCopy src, dst ' Quell- in Zieldatei kopieren. End Sub

Sub CmdVorlagenErstellen_Click() Dim i As Long For i = 1 To 50 n = 4 + i On Error GoTo Fehler If Range("C" & n).Value "" Then Call VorlagenErstellen(Range("B1").Value, _ Range("C" & (i + 4)).Value, _ ".dat") End If Next Exit Sub Fehler: MsgBox "Fehler beim Generieren der Datei " & Range("C" & (i + 4)).Value & " aufgetreten" End Sub

Hi Markus,
das sieht doch schon mal ganz gut aus!
Zum Testen stelle ich ein paar Sachen um, weil ich zu faul bin, die Verzeichnisstruktur bei mir anzulegen.
Vorab sehe ich zwei Möglichkeiten, mit den Fehlern zu hantieren:
1. Man könnte eine "globale Variable" verwenden, die die Information bereithält, ob ein Fehler aufgetreten ist *oder* zum Kopieren anstelle einer sub eine function verwenden, die die Fehlerinformation "nach oben durchreicht"; prinzipiell sind beide Möglichkeiten auch im o.g. Tutorial beschrieben (sofern Du es vollständig durchgeackert hast).
2. Man könnte den Dateinamen auf "falsche" Zeichen prüfen, bevor man die Kopierroutine überhaupt aufruft. Dann kann man sich meines Erachtens das on error schenken - es könnten zwar Fehler auftreten, aber die wären dann so schwerwiegend (Fehler auf Festplatte oder so), daß es auch schon wurscht ist, ob das Makro mit einer Fehlermeldung abbricht - kommt drauf an, wer mit dem Ding dann arbeiten soll.
In beiden Fällen könntest Du das Ergebnis der Prüfung/Kopieraktion z.B. rechts in Spalte D speichern, also z.B. "ok" bzw. "Fehler Nr. 1234, sehen Sie im Handbuch nach" & chr(10) & "Sie HABEN doch das Handbuch nicht verräumt?!"
Grundsätzlich muß der Fehler immer dort abgefangen werden, wo er auftritt, und das ist in dem Fall der Befehl filecopy.
Also:


Function VorlagenErstellen(ByVal src As String, ByVal dst As String) As String
On Error Resume Next
FileCopy src, dst    ' Quell- in Zieldatei kopieren.
If Err = 0 Then
VorlagenErstellen = "ok"
Else
VorlagenErstellen = Err.Description
End If
End Function
Sub CmdVorlagenErstellen_Click()
Dim i As Long
Dim Arbeitsverzeichnis As String
Arbeitsverzeichnis = Range("B1").Value
' nur *einmal* nötig, geht so "schneller"
For i = 5 To 54            ' n ist überflüssig
If Range("C" & i).Value  "" Then
Range("D" & i).Value = _
VorlagenErstellen(Arbeitsverzeichnis & "\00_Vorlagen\vorlage.dat", _
Arbeitsverzeichnis & "\" & Range("C" & i).Value & ".dat")
'           VorlagenErstellen(Arbeitsverzeichnis & "\Test\Klein.bmp", _
'            Arbeitsverzeichnis & "\" & Range("C" & i).Value & ".dat")
' tut!
End If
Next
End Sub

Jetzt hast Du doch was "Fertiges", aber Mann, ich will auch erst testen, bevor ich Dir was erzähle...
Mann könnte die function auch as boolean definieren und das dann abfragen, aber so erhältst Du gleich den Fehlertext.
Programmieren für Faule, hehe.
Happy Exceling,
Michael

Beliebteste Forumthreads (12 Monate)

Kopieren und umbenennen einer Vorlage

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kopieren und umbenennen einer Vorlage

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread