Speicherort und -name 'automatisch' festlegen?

Jorge_8bc528 · 27. September 2007 um 17:35

Liebe Excelianer,

meine Datei, an der ich jetzt schon so lange bastel, ist fast fertig, auch dank eurer Hilfe. Ich möchte aber den vielen KollegInnen, die damit arbeiten werden, die Arbeit etwas erleichtern, deshalb meine 2 Fragen:

Die Verknüpfung dieser schreibgeschützten Datei liegt auf dem Desktop der KollegInnen. Um ihnen „Datei speichern unter“ oder F12 zu ersparen, möchte ich nur für diese eine Excel-Datei vorher definieren, in welchem Ordner sie gespeichert werden soll. Dabei ist der Pfad bei jedem Kollegen unterschiedlich.
Zwingend die 2. Frage: Im Tabellenblatt ‚Assessment‘, Zelle A2, steht immer schon der Name der Datei. Lässt sich also auch die Eingabe des Dateinamens vermeiden?

Seht ihr da eine Möglichkeit? Vielen Dank für eventuelle Antworten.

Liebe Grüße

Jorge

Reinhard_fb8cb7 · 27. September 2007 um 17:47

Hi Jorge,

Die Verknüpfung dieser schreibgeschützten Datei liegt auf dem
Desktop der KollegInnen. Um ihnen „Datei speichern unter“ oder
F12 zu ersparen, möchte ich nur für diese eine Excel-Datei
vorher definieren, in welchem Ordner sie gespeichert werden
soll. Dabei ist der Pfad bei jedem Kollegen unterschiedlich.

Wieso „Speichern unter…“ ? „Speichern“ reicht doch !?
Durch den Desktoplink beim Öffnen weiß doch Excel wohin es jeweils speichern soll.

Zwingend die 2. Frage: Im Tabellenblatt ‚Assessment‘, Zelle
A2, steht immer schon der Name der Datei. Lässt sich also auch
die Eingabe des Dateinamens vermeiden?

Für ein Makro brauchst du den Dateinamen nicht in eine Zelle zu schreiben, das kriegt Vba selbst raus.

Seht ihr da eine Möglichkeit?

Mehrere, aber mir ist da noch etliches unklar.

Gruß
Reinhard

Jorge_8bc528 · 27. September 2007 um 20:41

Lieber Reinhard,

Hi Jorge,

Die Verknüpfung dieser schreibgeschützten Datei liegt auf dem
Desktop der KollegInnen. Um ihnen „Datei speichern unter“ oder
F12 zu ersparen, möchte ich nur für diese eine Excel-Datei
vorher definieren, in welchem Ordner sie gespeichert werden
soll. Dabei ist der Pfad bei jedem Kollegen unterschiedlich.

Wieso „Speichern unter…“ ? „Speichern“ reicht doch !?
Durch den Desktoplink beim Öffnen weiß doch Excel wohin es
jeweils speichern soll.

Da die Datei Schreibgeschützt ist, damit die KollegInnen keinen unnötigen Unfug damit treiben, würde sie irgendwo gespeichert, aber nicht unter dem richtigen Ordner.

Zwingend die 2. Frage: Im Tabellenblatt ‚Assessment‘, Zelle
A2, steht immer schon der Name der Datei. Lässt sich also auch
die Eingabe des Dateinamens vermeiden?

Für ein Makro brauchst du den Dateinamen nicht in eine Zelle
zu schreiben, das kriegt Vba selbst raus.

Der Dateiname wird nicht „extra“ irgendwo hingeschrieben. In diese Zelle wird der Name des Patienten geschrieben, zwingend, und unter diesem Namen soll die Datei auch abgespeichert werden.

Der Pfad kann lauten: G/Krankenhaus/Allgemeinpsychiatrie/Pflege/Station 41/Pflegediagnosen/2007/„Name“
kann aber auch … /Station 25/ etc
sein.

Hilft dir das ein wenig weiter?

Seht ihr da eine Möglichkeit?

Mehrere, aber mir ist da noch etliches unklar.

Gruß

Jorge

RakonDark_2d341e · 28. September 2007 um 02:47

Darf ich das nochmal zusammenfassen,

es ist ein excel Vorlagenblatt wo irgentwo steht (nach dem ausfüllen)
Die Stationsnummer und der Patienten Name ? richtig ?

Die stationsnummer ist der Ordner also StationXX
Der Patienten Name ist der Dateiname also patientenname.xls

nun soll nach dem ausfüllen dieser VorlagenDatei (vorher ohne stations nummer und ohne patienten name) das ausgefüllte ExelBlatt in einem Vordefenierten Ordner gespeichert werden.

ergo
G/Krankenhaus/Allgemeinpsychiatrie/Pflege/StationXX/Pflegediagnosen/2007/patientenname.xls

ist das soweit richtig ??

sprich du willst die ausgefüllten Mappen irgentwo (server) sammeln und gleich in die richtigen Stationsordner einsortiert haben ? richtig ?

wenn dem so ist, ja das geht so

Sub speichernals()
’ wer weiss was hilft gerne

Dim station
Dim patient
Dim pfad

’ station aus Tabellenblatt Tabelle1 Reihe 1 Spalte 2 holen
station = Sheets(„Tabelle1“).Cells(1, 2)
’ patient aus Tabellenblatt Tabelle1 Reihe 2 Spalte 2 holen
patient = Sheets(„Tabelle1“).Cells(2, 2)
’ speicherpfad erzeugen
pfad = „G/Krankenhaus/Allgemeinpsychiatrie/Pflege/“ & _
station & _
„/Pflegediagnosen/2007/“ & _
patient & „.xls“
’ speichern als
ActiveWorkbook.SaveAs Filename:=pfad, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

wie und wann du nun das macro aufrufst soll wer anders oder du selbst herrausfinden
und ob man bei nochmaligen ausführen des macros auch das ‚Datei existiert schon , wollen sie sie überschreiben‘ umgeht muss auch wer anders machen

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Jorge_8bc528 · 28. September 2007 um 13:57

Jorge

Darf ich das nochmal zusammenfassen,

es ist ein excel Vorlagenblatt wo irgentwo steht (nach dem
ausfüllen)
Die Stationsnummer und der Patienten Name ? richtig ?

Die stationsnummer ist der Ordner also StationXX
Der Patienten Name ist der Dateiname also patientenname.xls

nun soll nach dem ausfüllen dieser VorlagenDatei (vorher ohne
stations nummer und ohne patienten name) das ausgefüllte
ExelBlatt in einem Vordefenierten Ordner gespeichert werden.

ergo
G/Krankenhaus/Allgemeinpsychiatrie/Pflege/StationXX/Pflegediagnosen/2007/patientenname.xls

ist das soweit richtig ??

sprich du willst die ausgefüllten Mappen irgentwo (server)
sammeln und gleich in die richtigen Stationsordner einsortiert
haben ? richtig ?

Genau

wenn dem so ist, ja das geht so

Sub speichernals()
’ wer weiss was hilft gerne

Dim station
Dim patient
Dim pfad

’ station aus Tabellenblatt Tabelle1 Reihe 1 Spalte 2 holen
station = Sheets(„Tabelle1“).Cells(1, 2)
’ patient aus Tabellenblatt Tabelle1 Reihe 2 Spalte 2 holen
patient = Sheets(„Tabelle1“).Cells(2, 2)
’ speicherpfad erzeugen
pfad = „G/Krankenhaus/Allgemeinpsychiatrie/Pflege/“ & _
station & _
„/Pflegediagnosen/2007/“ & _
patient & „.xls“
’ speichern als
ActiveWorkbook.SaveAs Filename:=pfad, _
FileFormat:=xlNormal, Password:="",
WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Für mich noch mal zum nachfragen:
Patientenname = Dateiname steht in A2. Ist das „Cells(2, 2)“?
Stationsbezeichung steht in D2. Ist das „Cells(2, 4)“?
Und „Tabelle1“ muss ich durch in diesem Fall „Assessment“ ersetzen?

Jetzt noch die Info, damit du nicht unnötigerweise auf Antwort von mir wartest: ich muss jetzt Feierabend machen und kann das erst am Montag ausprobieren. Dann würde ich mich wieder melden.
Dir und allen anderen ein schönes WE.

Gruß

Jorge

wie und wann du nun das macro aufrufst soll wer anders oder du
selbst herrausfinden
und ob man bei nochmaligen ausführen des macros auch das
‚Datei existiert schon , wollen sie sie überschreiben‘ umgeht
muss auch wer anders machen

RakonDark_2d341e · 28. September 2007 um 14:31

Für mich noch mal zum nachfragen:
Patientenname = Dateiname steht in A2. Ist das „Cells(2, 2)“?
Stationsbezeichung steht in D2. Ist das „Cells(2, 4)“?
Und „Tabelle1“ muss ich durch in diesem Fall „Assessment“
ersetzen?

A = 1 ; B=2;C=3 …

ergo

A2 = Cells(Reihe,Spalte) = Cells(2,1)

in D2. Ist das „Cells(2, 4)“? = richtig Zeile 2 in Spalte 4 (D)

Jetzt noch die Info, damit du nicht unnötigerweise auf Antwort
von mir wartest: ich muss jetzt Feierabend machen und kann das
erst am Montag ausprobieren. Dann würde ich mich wieder
melden.
Dir und allen anderen ein schönes WE.

Gruß

Jorge

ok ich dir auch

‚Datei existiert schon , wollen sie sie überschreiben‘ umgeht
muss auch wer anders machen

^^^^^kriegen wir auch noch hin

bis monatg, wenn ich dann noch da bin

Reinhard_fb8cb7 · 28. September 2007 um 23:06

Hallo Jorge,

Da die Datei Schreibgeschützt ist, damit die KollegInnen
keinen unnötigen Unfug damit treiben, würde sie irgendwo
gespeichert, aber nicht unter dem richtigen Ordner.

Da hänge ich irgendwie fest. Können di KollegInnen den Schreibschutz aufheben?
Wenn ja, warum ist er denn dann da.
Wenn nein, was haben sie von der Datei, nur zum Auslesen mittels Verknüpfungen? Und wenn sie eh nix ändern dürfen/können, brauchen sie auch kein Speichern, Schließen reicht.
Oder ist das eine Art Vorlage/Vordruck?
*grübel*

Für ein Makro brauchst du den Dateinamen nicht in eine Zelle
zu schreiben, das kriegt Vba selbst raus.

Der Dateiname wird nicht „extra“ irgendwo hingeschrieben. In
diese Zelle wird der Name des Patienten geschrieben, zwingend,
und unter diesem Namen soll die Datei auch abgespeichert
werden.

Okay, Zelleninhalt soll dann neuen Dateinamen ergeben.

Der Pfad kann lauten:
G/Krankenhaus/Allgemeinpsychiatrie/Pflege/Station
41/Pflegediagnosen/2007/„Name“
kann aber auch … /Station 25/ etc
sein.

Wie kommt Vba an den „neuen“ Pfadnamen, genauer gesagt, im Beispiel an „Station41“?

Den Dateinamen habe ich ja durch diese Zelle. Den Grundpfad (der für alle gleich ist, also „G/Krankenhaus/Allgemeinpsychiatrie/Pflege“ habe ich auch, es fehlt noch „Station41“.
Kann man den aufgrund des Usernamens ermitteln, also auf einem Hilfsblatt eine Liste anlegen:

 User Station
Fr Müller 41
Hr Schmidt 25 
Kall 41
Ria 666 :smile:)
...

Hilft dir das ein wenig weiter?

Nicht wirklich, ich setze da eher aufs Mitlesen am Montag wenn du auf Rakon antwortest.

Du möchtest deinen KollegInnen Speichernunter,F12 ersparen, was willst du denn anstelle dessen anbieten?
Da gibts sehr viele Möglichkeiten die ich/man umsetzen könnte.

Eine Variante,
schau mal ins Wordbrett zu einem Thread einer Lisa (vom 24.9, Datie–>Öffnen), da habe ich in einer Doc-Datei den Befehl Datei–Öffnen umgebogen auf ein Makro.
Der Einzeiler in Modul1 klappt auch in Excel, also könntest du dir den leicht umschreiben für „Speichern“ und „Speichern unter…“. (& steht für den Unterstrich!). Auch F12 kann man „umbiegen“ *glaub*.

In dem dann ausgeführten Makro wird dann automatisch geprüft, ob es sich um diese eine ganz spezielle Datei handelt, dann wird sie ohne Rückfrage in dem über den Usernamen ermittelten Ordner gespeichert.
Bei allen andren Dateien funktionieren „Speichern“, „Speichern unter…“ und F12 wie üblich.

Das Makro müßte dann in der Personl.xls oder auch der speziellen Datei stehen, müßte man noch testen wo das besser wäre.

Gruß
Reinhard

Jorge_8bc528 · 29. September 2007 um 16:17

Hallo Rakon und alle anderen,

ich habs mir doch mit nach Hause genommen und folgendes gemacht:

diesen Pfad bei mir eingerichtet:

D:\Krankenhaus\Allgemeinpsychiatrie\Pflege\Station 25\Pflegediagnosen\2007

dein Makro kopiert, eingefügt und geändert:

Sub speichernals()
’ wer weiss was hilft gerne

Dim station
Dim patient
Dim pfad

’ station aus Tabellenblatt Tabelle1 Reihe 2 Spalte 4 holen
station = Sheets(„Assessment“).Cells(2, 4)
’ patient aus Tabellenblatt Tabelle1 Reihe 2 Spalte 1 holen
patient = Sheets(„Assessment“).Cells(2, 1)
’ speicherpfad erzeugen
pfad = „D/Krankenhaus/Allgemeinpsychiatrie/Pflege/“ & _
station & _
„/Pflegediagnosen/2007/“ & _
patient & „.xls“
’ speichern als
ActiveWorkbook.SaveAs Filename:=pfad, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Anschließend Datei gespeichert, geschlossen und in „Schreibgeschützt“ geändert, wieder geöffnet, auf „speichern“ gedrückt und es kommt die bekannte Meldung:„Diese Datei ist schreibgeschützt…“

Hast du bzw. habt ihr eine Idee, was ich falsch gemacht haben könnte?

Liebe Grüße

Jorge

RakonDark_2d341e · 29. September 2007 um 16:56

Wie der andere schon gesagt hat, eine schreibgeschützte datei kann man ncht überschreiben, ich dachte die liegt schreibgeschützt auf dem Desktop ??

Das makro ausführen ist was anderes als „Speichern unter“ , wie du das Speichern unter umbiegst lass dir von dem anderen erklären.

Am besten beschreibst du mal genau die Schritte die gemacht werden.

Wo wird die Datei geöffnet.
Wo , wie offt wird Sie gespeicher
warum schreibschutz wenn Sie nicht gespeichert werden soll, das wieder spricht sich. Bzw welche Datei soll schreibgeschützt sein.

Ich dachte du nimmst das als kopie ??

wird nach dem speichern was geändert ??
Wie wird der User damit umgehen, klickt der auch Speichern unter ??

etc etc

Wenn du meinen ersten Post nicht einfach überlesen hättest wäre das alles schon geklärt.

Also ganz genau beschreiben , jeden klick, und alles was folgen kann, und warum wieso weshalb.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Jorge_8bc528 · 29. September 2007 um 20:54

Wie der andere schon gesagt hat, eine schreibgeschützte datei
kann man ncht überschreiben, ich dachte die liegt
schreibgeschützt auf dem Desktop ??

Das makro ausführen ist was anderes als „Speichern unter“ ,
wie du das Speichern unter umbiegst lass dir von dem anderen
erklären.

Am besten beschreibst du mal genau die Schritte die gemacht
werden.

Wo wird die Datei geöffnet.

Wo , wie offt wird Sie gespeicher

warum schreibschutz wenn Sie nicht gespeichert werden soll,
das wieder spricht sich. Bzw welche Datei soll
schreibgeschützt sein.

Ich dachte du nimmst das als kopie ??

wird nach dem speichern was geändert ??

Wie wird der User damit umgehen, klickt der auch Speichern
unter ??

etc etc

Wenn du meinen ersten Post nicht einfach überlesen hättest
wäre das alles schon geklärt.

Das habe ich natürlich gemacht; aber wenn ich als Laie nicht entdecken kann, dass du in diesem Fall etwas nicht richtig zusammengefasst hast, ich war der Meinung, du hast es richtig zusammengefasst, dann solltest du mir das nachsehen.

Also ganz genau beschreiben , jeden klick, und alles was
folgen kann, und warum wieso weshalb.

Hallo Rakon und andere,

der geneigte Frager wird angehalten, möglichst knapp und präzise zu formulieren. Knapp ist mir wohl gelungen…

Die Datei liegt unter G: an einem zentralen Ort, zu dem 16 Stationen Zugriff haben. Ca. 150 KollegInnen werden mit der Datei arbeiten.
Es existiert eine Verknüpfung dieser Datei, ebendort. Diese Verknüpfung ziehen sich die Stationen auf ihr Desktop. Sie dient als Vorlage und wird mit Daten ausgefüllt. Danach soll sie gespeichert werden, und zwar unter dem o.g. Pfad, nämlich der entsprechenden Station.
Wäre die Datei bzw. die Verknüpfung nicht schreibgeschützt, wäre sie jetzt überschrieben und nicht da, wo sie hin soll.
Desweiteren: das Ausfüllen dieser Datei bedeutet zusätzliche Arbeit für die KollegInnen. Und im Gegensatz zu euch Fachleuten verstehe ich von Excel vielleicht 0,0005 Promille, die KollegInnen im Durchschnitt noch weniger. Ich möchte ihnen deshalb die Arbeit erstens erleichtern und zweitens wäre es von Vorteil, wenn diese Dateien immer im gleichen Muster gespeichert würden, d. h. in jedem Stationsordner, so dass sie leicht zu finden sind und als Speichername immer die selbe Form hat.

So komme ich zu der Anfrage, ob es möglich ist, den Vorgang „Speichern unter“ bzw. F12 zu umgehen, da er erstens Arbeit macht ( den Pfad aufklicken, und der ist ja ziemlich lang, wie ihr gesehen habt), Fehlerquellen zu minimieren, und den Dateinamen zu generalisieren.

Das angesprochene Problem, dass eine bereits einmal abgespeicherte Datei geändert werden müsste (und das wird tatsächlich vorkommen) könnte man lösen, indem man den Namen des Patienten mit z. B. „Müller, Alex1“ eingibt; folgende Änderungen dann mit"…2" etc.

Mir ist während der Kommunikation mit euch aufgefallen, dass auch der Teilpfad „Allgemeinpsychiatrie“ automatisiert werden müsste, da es 5 Abteilungen gibt. Die Abteilung stünde wahrscheinlich in E2 (2/5).

Zusammengefasst: Wenn der „Diskette“-Button „Speichern“ bei dieser speichergeschützten Datei angeklickt wird, soll sie per Makro erkennen, dass der Speicherpfad vorgegeben ist, mit den Infos aus E2 (=Abteilung), D2 (=Station) und A2 (=Namen der Datei = Patientenname).

Die schreibgeschützte Vorlage-Datei heißt „Pflegeanamnese.xls“ und soll hier gespeichert werden: G:/Krankenhaus/„E2“/Pflege/Station „D2“/Assessment/2007/„A2“.xls

Bleibt die Frage, ob das bei einer schreibgeschützten Datei überhaupt geht.

So hätte ich es von Anfang an schreiben können, aber mir schien das als erstes Anfrageposting zu lang. Liege ich da falsch? Als Laie weiß ich schlichtweg nicht, welche Infos für die Experten wirklich wichtig sind. Und ich möchte niemanden durch übermäßiges Beschreiben belästigen.

Jetzt hoffe ich einfach nur mal, dass das jetzt hilfreich war.

Liebe Grüße

Jorge

RakonDark_2d341e · 30. September 2007 um 00:21

Prima, jetzt weiss auch ich und der Kollege wo der hammer hängt.

Fasse ich nochmal zusammen was noch zu erledigen ist

Das Macro etwas erweitern das auch noch der Pfad der Abteilung mit drinne ist
1.1. Schlicht und einfach Datum und Zeit anhängen also PatientenName_2007_09_01-08_10_53 und diese Datei dann gleich mit schreibschutz speichern . Das lässt sich auch spitzenmässig sortieren und ich brauch nicht prüfen ob es diese Datei schon gibt , vorrausgesetzt das nicht 2 Leute zur selben zeit an der selben Datei rumfummeln und speichern, was eh ein problem geben würde, weil wer hat nun die aktuellen Daten hehe
das „Speichern“ und „Speichern unter“ so umleiten das alles auf das Macro zeigt

ergo : Deine Vorlage und die bereits gespeicherten Dateien werden dann nicht mehr überschrieben und du erhälst chronologische Dateien in dem angegebenen Ordner

Den teil im macro mit cronologisch im richtigen pfad speichern übernehme ich , den anderen teil mit dem umleiten des ‚speichern‘ und ‚speichern unter‘ übernimmt der Reinhard.

-)

Sollte ich irgentwas falsch interpretiert haben, bitte gleich korrigieren vorher denken nachher lenken Macht es einfacher nicht jeden Baum und Bush im Weg mitzunehmen Aber ans Ziel kommen wir aufjedenfall

P.S. Schreib ruhig mehr als weniger, den in diesem Fall ist mehr = alles und weniger = nichts

Jorge_8bc528 · 30. September 2007 um 18:08

Hallo zusammen,

ich drück mich jetzt mal wie in einem Prozess aus:

Ich kann nicht entdecken, dass deine Zusammenfassung falsch ist

Ich denk ma, dies bedeutet h/m/sec? 08_10_53

Auf keinen Fall arbeiten 2 Benutzer gleichzeitig an der Datei.

Prima, jetzt weiss auch ich und der Kollege wo der hammer
hängt.

Fasse ich nochmal zusammen was noch zu erledigen ist

Das Macro etwas erweitern das auch noch der Pfad der
Abteilung mit drinne ist
1.1. Schlicht und einfach Datum und Zeit anhängen also
PatientenName_2007_09_01-08_10_53 und diese Datei dann gleich
mit schreibschutz speichern . Das lässt sich auch
spitzenmässig sortieren und ich brauch nicht prüfen ob es
diese Datei schon gibt , vorrausgesetzt das nicht 2 Leute zur
selben zeit an der selben Datei rumfummeln und speichern, was
eh ein problem geben würde, weil wer hat nun die aktuellen
Daten hehe

Das mit dem Datum und Zeit als Dateinamen-Ergänzung ist übrigens genial. Heute Nacht um 4 auf dem Klo ist mir nämlich eingefallen, dass es zu Problemen kommen kann, wenn eine gespeicherte Datei geändert und erneut gespeichert wird; dann wäre die erste Datei überschrieben.
Jetzt gibt es eine wunderbare Historie.

das „Speichern“ und „Speichern unter“ so umleiten das alles
auf das Macro zeigt

ergo : Deine Vorlage und die bereits gespeicherten Dateien
werden dann nicht mehr überschrieben und du erhälst
chronologische Dateien in dem angegebenen Ordner

Den teil im macro mit cronologisch im richtigen pfad speichern
übernehme ich , den anderen teil mit dem umleiten des
‚speichern‘ und ‚speichern unter‘ übernimmt der Reinhard.

-)

Sollte ich irgentwas falsch interpretiert haben, bitte gleich
korrigieren vorher denken nachher lenken Macht es
einfacher nicht jeden Baum und Bush im Weg mitzunehmen
Aber ans Ziel kommen wir aufjedenfall

P.S. Schreib ruhig mehr als weniger, den in diesem Fall ist
mehr = alles und weniger = nichts

Ich werde mich für die Zukunft bemühen.
Noch eine Bitte, wenn nicht zu aufwändig: Das Makro von Rakon hatte über der Befehlszeile immer die Erklärung des Befehls. War für mich deshalb schön, weil ich so ein bisschen dazugelernt habe (cells…zB)

Euch noch einen schönen Sonntag.

Liebe Grüße

Jorge

Fritz_Weinel_ce4a38 · 30. September 2007 um 20:55

Anregung
Hallo miteinander,
warum wird die Originaldatei auf dem Server nicht als EXCEL-Vorlage (*.xlt) gespeichert? Nach Doppelklick wird automatisch eine Kopie als *.xls-Datei geöffnet und die Vorlage kann nicht überschrieben werden, da „speichern“ nun analog „speichern unter“ eine Pfadangabe verlangt.

Gruß Fritz

RakonDark_2d341e · 1. Oktober 2007 um 14:35

Sub speichernals()
' wer weiss was hilft gerne
' written by [email protected]

Dim abteilung
Dim station
Dim patient
Dim pfad
Dim objFSO As Object
Dim objFile As Object

' abteilung aus Tabellenblatt Assessment reihe 1 Spalte 2 holen
abteilung = Sheets("Assessment").Cells(2, 5)
' station aus Tabellenblatt Assessment Reihe 1 Spalte 2 holen
station = "Station " & Sheets("Assessment").Cells(1, 2)
' patient holen und Datum und Zeit anhängen
patient = Sheets("Assessment").Cells(2, 2) & \_
" " & Year(Now()) & "y" & Month(Now()) & "m" & Day(Now()) & "d" & \_
" " & Hour(Now()) & "h" & Minute(Now()) & "m" & Second(Now()) & "s"
' speicherpfad erzeugen
pfad = "G:\Krankenhaus\Allgemeinpsychiatrie\" & \_
abteilung & \_
"\Pflege\" & station & \_
"\Assessment\2007\" & \_
patient & ".xls"
' speichern als
ActiveWorkbook.SaveAs Filename:=pfad, \_
FileFormat:=xlNormal, Password:="", WriteResPassword:="", \_
ReadOnlyRecommended:=False, CreateBackup:=False
' Object für FileSystem Festlegen
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Datei holen
Set objFile = objFSO.GetFile(pfad)
' Schreibschutz aktivieren
objFile.Attributes = vbReadOnly
' Objekte Freigeben
Set objFSO = Nothing
Set objFile = Nothing
End Sub

RakonDark_2d341e · 1. Oktober 2007 um 17:11

Beispiel mit speicherbutton an deine Email addi geschickt, ich war mal so frei

Jorge_8bc528 · 2. Oktober 2007 um 15:48

Hallo Rakon,

vielen, vielen Dank. Ich hab die nötigen Änderungen gemacht, sogar den Button erstellt und alles wird da gespeichert, wo es hin soll. Super!

Liebe Grüße

Jorge