Hallo, ich nerve mal wieder
Meine Frage, ich habe eine Vorlage die von verschiedenen Leuten geöffnet bearbeitet und für jeden separat gespeichert wird (in einem zentralen Ordner) wie stelle ich es an das über den Speichern Buton automatisch aus 2 Zellen der Name gebastelt und in einem speziellen Verzeichnis gespeichert wird?
Hallo,
versteh ich nicht, wenn für jeden separat gespeichert wird, dann nenn es doch gleich so wie sie heißen soll. Beim speichrn ändert sich dann doch nicht jedesmal der Dateiname.
ok falsch erklärt :)
Vorlage -> Leute öffnen und befüllen diese mit den entsprechenden Daten -> speichern -> aus 2 Feldern, die erst eingetragen werden ergebt sich der Name (Speicherort ist ein Ordner wo die alle auflaufen)
Hallo!
Sicherer wäre es wohl, statt Zellinhalten etwas zu wählen, was der Benutzer nicht manipulieren kann.
Mal als Beispiel:
Code:
Sub SpeichernUnter()
Dim Datei As String
Datei = Environ("Userprofile") & "\" & Environ("Username") & Format(Date, "yymmdd") & ".xlsm"
' MsgBox Datei
ThisWorkbook.SaveAs Datei, xlOpenXMLWorkbookMacroEnabled
End Sub
Gruß Ralf
(03.10.2015, 10:20)RPP63 schrieb: [ -> ]Hallo!
Sicherer wäre es wohl, statt Zellinhalten etwas zu wählen, was der Benutzer nicht manipulieren kann.
mag sein aber es soll genau so sein, der Name soll sich aus 2 Zellen ergeben also a1+b1.xlsm
Hi!
Dann ändere doch einfach String zum FullName der zu speichernden Datei ab:
Code:
Datei = DeinPfad & [A1] & "-" & [B1] & Format(Date, "yymmdd") & ".xlsm"
DeinPfad ist ein String des Ordners mit abschließendem Backslash.
Das "-" habe ich aus optischen Gründen eingebaut, das Datum ist nicht notwendig, sollte aber sein, schließlich wird das Makro wohl häufiger gebraucht.
Um Konflikte zu vermeiden, kannst Du auch noch die Uhrzeit mit aufnehmen:
Format(Date, "yymmdd_hh:mm:ss")
Gruß Ralf
Ach so:
Mein Makro bezieht sich auf das ActiveSheet, da Du ja mit Infos geizt.
Gruß Ralf
(03.10.2015, 10:42)RPP63 schrieb: [ -> ]Ach so:
Mein Makro bezieht sich auf das ActiveSheet, da Du ja mit Infos geizt.
also die Datei besteht aus 3 Sheets (unterschiedliche Datenherkunft aber selbe Struktur, daher Tabelle1, 2 und 3) die Zellen für den zu erstellenden Namen sind immer die selben (b3 und c3), idealerweise klappt das auch als Abfrage in welcher Tabelle der Inhalt steht
Hi!
Du brauchst nicht immer den oberen Beitrag zitieren, mein Scroll-Finger ist gestählt!
Gehe also auf "Antworten" statt auf "Antworten" :21:
(ich hoffe, ein Moderator/Administrator liest mit)
Ansonsten:
Es gibt die WorksheetFunction.CountA, die man mit einer Schleife über die Sheets prüfen kann.
Vorwissen??
Ansonsten stelle mal eine KONKRETE Beispieldatei zur Verfügung, die im Aufbau EXAKT der Situation entspricht!
Gruß Ralf