Ich scheitere gerade an einer recht simpel Aufgabe.
undzwar:
Ich habe in meiner Datei 3 Zellen für Eintragungen.
Zeichnungsnummer : xxxxxxx
OberLink XML : i:\xxx\xxx\xxx......
Link Ziel: c:\xxx\xxx\xxx.....
Er sucht mir nun alle Ordner mit Unterordnern im OberLink nach XML Dateien ab wo die Zeichnungsnummer drin vor kommt und kopiert sie mir in den Link Ziel Pfad.
klappt sehr gut.
Nun soll er mir die Datei aber nicht strupiede in den Pfad Link Ziel hauen, sondern soll dort einen Order finden der die gleiche Zeichnungsnummer enthält und dort einfügen.
Wenn man googled und weiteres findet man nichts gescheites, denn alle Codes sind Meterlang und das brauch ich nicht.
Ich suche etwas, dass ich am Ende in die letzten Zeilen schreiben kann vonwegen:
Zeichnungsnummer = ActiveWorkbook.Sheets ("Suche").Range ("C4")
Ziel = ActiveWorkbook.Sheets ("Suche").Range ("C12")
bla bla bla schon vorhander Code wo ich mir meine Datei suche und sie mit ner Variablen _
zwischenspeicher
hier muss der Code kommen der in meinem Pfad unter Ziel den ordner mit der zeichnungsnummer _
sucht den ich dann auch mit ner variablen zwischenspeicher
so zB:
Ziel_Link = Ziel & "*" & Zeichnungsnummer & "*"
jetzt kommt
objFSO.CopyFile Quelle, Ziel_Link, True
Vielen Dank schonmal und ein schönes Wochenende zusammen
liebe grüße Markus