Probleme mit Makro

Hallo,
nach vielem lesen komm ich alleine nicht mehr weiter und bräuchte Hilfe.
Ich hab alleine ein Makro hinbekomen, dass mir automatisch meine Tabellenblätter benennt und die Datei abspeichert, dabei den Dateinamen aus einer Zelle nimmt.
Nur eigentlich bräuchte ich diese Datei jeweils in einem neuen Ordner, der den gleichen Namen wie die Datei hat.
Zudem arbeiten wir mit Netzlaufwerken, daher müsste die Datei jeweils im aktuellen Netzlaufwerk der jeweiligen Arbeitsgruppe abgespeichert werden. Ich arbeite beispielsweise auf Laufwerk p, Kollegen aber unter b. Wie kann ich das lösen?
Hier mein bisheriges Makro. In Zelle C28, wird der Dateiname zusammengeführt, so dass aus _ verschiedenen Merkmalen eigentlich keine Dupletten entstehen können z.B. GH - Mustermann, Max:


Sub BlattNameausA1()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Name = wks.Range("A1").Value
Next
ActiveWorkbook.SaveAs Filename:="p:\" & Range("c28").Value
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub BlattNameausA1() Dim wks As Worksheet Const sPfad As String = "\\ServerName\Freigabe\" 'anpassen For Each wks In Worksheets wks.Name = wks.Range("A1").Value Next If Dir(sPfad & Range("C28"), vbDirectory) = "" Then MkDir (sPfad & Range("C28")) ActiveWorkbook.SaveAs Filename:=sPfad & Range("C28") & "\" & Range("C28") End Sub

Sub BlattNameausA1() Dim wks As Worksheet, sPfad As String sPfad = ActiveWorkbook.Path & "\" For Each wks In Worksheets wks.Name = wks.Range("A1").Value Next If Dir(sPfad & Range("C28"), vbDirectory) = "" Then MkDir (sPfad & Range("C28")) ActiveWorkbook.SaveAs Filename:=sPfad & Range("C28") & "\" & Range("C28") End Sub

erst mal Danke für die schnelle Hilfe.
Irgendwie bekomme ich das mit dem Laufwerk nicht hin. Jetzt hab ich mal probeweise p:\ eingegeben und es funktioniert, vielen Dank.
Jetzt hatte ich die spontane idee, weiß nicht ob das machbar ist. es würd ja reichen meinen kollegen, da sind auch ein paar windowskiller dabei, die "rohdatei" schreibgeschützt in das jeweilige zielverzeichnis zu legen. und das makro legt automatisch in das jeweilige verzeichnis den erstellten ordner.
und könnte man das makro so erweiteren, dass es die neue datei gleich schließt und die rohdatei wieder da ist? quasi, dass man die nächste datei anlegen kann?
und kann sich das makro nach dem durchlaufen irgendwie selbst löschen, damit dann später niemand das makro aktivieren muss? will ja keinen kollegen überfordern, die datei muss ca. 200 mal und dann täglich so fünf mal angelegt werden, wenn das alles automatisch ginge, wäre super.
aber erst mal vielen dank

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread