Probleme mit Makro
Agilmar
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