Makro- Für die Speichern-Unter Funktion

[Fizzo361]

Hallo Ihr,
ich hab hier mal ein kleines Problem und hoffe dass mir von euch geholfen werden kann.
So zum Problem:
Ich brauche ein Makro für excel 2007, das die Speichern-Unter Funktion abändert. Es sollte beim Speichervorgang (Speichern Unter) schon auf einen festen Pfad verwiesen werden, dieser Pfad befinden sich bei mir auf einer SharePoint Oberfläche (Link), außerdem wäre es nett wenn man die Dateinamen auch standardisieren könnte Bsp. Kundexyz.JJJJ.MM.TT.xls und folgend. So nun seit Ihr gefragt ist mein vorhaben überhaupt möglich? und wäre es mit etwas mehr verstädnis (als ich es habe)möglich die auch umzusetzen?
Wäre echt Super und wichtig für mich wenn ihr mir helfen könnten.

Frohes Neues Jahre und viel erfolg wünscht
Fizzo361

[Reinhard_fb8cb7]

Ich brauche ein Makro für excel 2007, das die Speichern-Unter
Funktion abändert. Es sollte beim Speichervorgang (Speichern
Unter) schon auf einen festen Pfad verwiesen werden, dieser
Pfad befinden sich bei mir auf einer SharePoint Oberfläche
(Link), außerdem wäre es nett wenn man die Dateinamen auch
standardisieren könnte Bsp. Kundexyz.JJJJ.MM.TT.xls und
folgend.

Hallo Fizzo361,

„dieser Pfad befinden sich bei mir auf einer SharePoint Oberfläche (Link)“

das sagt mir Null, wie lautet der Pfad? Wie komme ich an den Link, ich weiß grad nicht was Sharepoint ist.

Was ist damit gemeint:
„Kundexyz.JJJJ.MM.TT.xls“?
Als Dateinamenvorschlag immer „Kundexyz“ und aktuelles datum und „.xls“?

Ich finde zwar Unterstrich als Trenner kacke, aber besser als Punkte oder Leerzeichen.
Naja, meine persönliche Meinung.

Gruß
Reinhard

[Fizzo361]

Danke für deine Schnelle Antwort Reinhardt,
also SharePoint bedeutet nichts weiter als eine Datenablage auf einem externen Server, den ich nur über einen Link erreichen kann, ich kann den hier nicht posten da, die rechtevergabe es nicht zulässt.
Es würde auch erstmals ein Webspace gehen für die testzwecke.

Naja und für den Dateinamen, dachte ich mir das am Anfang ein Name steht,gefolgt vom Datum + das richtige format von Excel(xlsx).
Ob nun Unterstrich oder Punkt ist mir relativ gleichgültig was einfacher umzusetzten ist, sagen wir es mal so.

Sollte sonst noch etwas unklar sein melde ich mich schnellst möglich wieder, um die Unklarheiten zu beheben.

Bis dahin, vielen dank und viel spaß und erfolg

Gruß
Fizzo361

[Reinhard_fb8cb7]

also SharePoint bedeutet nichts weiter als eine Datenablage
auf einem externen Server, den ich nur über einen Link
erreichen kann, ich kann den hier nicht posten da, die
rechtevergabe es nicht zulässt.
Es würde auch erstmals ein Webspace gehen für die testzwecke.

Naja und für den Dateinamen, dachte ich mir das am Anfang ein
Name steht,gefolgt vom Datum + das richtige format von
Excel(xlsx).
Ob nun Unterstrich oder Punkt ist mir relativ gleichgültig was
einfacher umzusetzten ist, sagen wir es mal so.

Hallo Fizzo361,

für Vba ist es egal was für ein Trenner benutzt wird. Aber Dateinamen mit Leerzeichen machen gelegentlich Ärcher. Punkte vielleicht nie, aber ich vermeide sie aus diesem Grunde trotzdem weil ich das nicht 100 %ig weiß.

Um jetzt dein Problem zu lösen muß ich den Pfad kennen,
also sowas
C:\test\Januar

Den kann ich dann bei „Speichern unter“ „vorwählen“ und auch einen Dateinamen vorschlagen, dazu muß ich nur wissen wo da der Kundenname steht, in einer Zelle, als Blattame o.ä.

Ich weiß immer noch nicht was Sharepoint ist. Hab kurz recherchiert, ist wohl von MS. Von daher kann ich es möglicherweise von Excel aus mit Vba aus ansprechen, auslesen um da diesen seltsamen Link zu erhalten.

So wie ich mir das vorstelle klappt das aber nur wenn dieser Link ein Verzeichnis ist was Excel als Verzeichnis akzeptiert.
Da kann ich bei Aufruf von „Speichern unter“ dies voreinstellen in dem Fenster was bei "Speichern unter kommt.

Und wenn du den eigentlichen Link nicht zeigen darfst, wie sieht denn der grundsätzlich aus
//Max/mustermann/Münster
oder wie?

Und wo steht er?

Fragen über Fragen.

Gruß
Reinhard

[Fizzo361]

Guten Morgen Reinhard,
ich kann dir hier schonmal vorab den link posten:

http://my.fsc.net/teams/knowledgenet/cop/TISNWS/Reus…
der Zugriff sollte eigentlich verweigert sein aber dies ist ja erstmals egal.

Über den Dateinamen mache ich mich gleich nochmal schlau und werde es später (2-3H) posten.

Und ja SharePoint ist von MS und arbeitet mit den Office Produkten zusammen.

Und für den Dateinamen würde ich sagen einigen wir uns auf _ Unterstriche.

bis später,
Fizzo361

[Reinhard_fb8cb7]

Pfad/Ordner Dateiname vorgeben bei Speichern Unter

http://my.fsc.net/teams/knowledgenet/cop/TISNWS/Reus…
der Zugriff sollte eigentlich verweigert sein aber dies ist ja
erstmals egal.

Über den Dateinamen mache ich mich gleich nochmal schlau und
werde es später (2-3H) posten.

Und ja SharePoint ist von MS und arbeitet mit den Office
Produkten zusammen.

Und für den Dateinamen würde ich sagen einigen wir uns auf _
Unterstriche.

Hallo Fizzo361,

den Zusammenhang zwischen Excel und Sharepoint kenne ich nicht.
Excel kann kann Dateien speichern mit einem Namen in einen Pfad.

Pfad/Ordner und namen kann man vorbelegen, siehe nachfolgender Code.

Gruß
Reinhard

Sub SpeichernUnter()
Dim varRetVal As Variant, strInitFileName As String, Datname As String
Const Pfad As String = "C:\test\"
Datname = "Hans\_Mueller" & Format(Date, "yyyy-mm-dd") & ".xls"
varRetVal = Application.GetSaveAsFilename( \_
 InitialFileName:=Pfad & Datname, \_
 FileFilter:="Microsoft Excel-Dateien (\*.xls), \*.xls", \_
 Title:="Datei speichern unter... ")
'If varRetVal = False Then Exit Sub
'ActiveWorkbook.SaveAs varRetVal
End Sub

[Fizzo361]

Sub SpeichernUnter()
Dim varRetVal As Variant, strInitFileName As String, Datname
As String
Const Pfad As String = „C:\test“
Datname = „Hans_Mueller“ & Format(Date, „yyyy-mm-dd“) & „.xls“
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=Pfad & Datname, _
FileFilter:=„Microsoft Excel-Dateien (*.xls), *.xls“, _
Title:="Datei speichern unter… ")
'If varRetVal = False Then Exit Sub
'ActiveWorkbook.SaveAs varRetVal
End Sub

Hallo Reinhard,
danke dir für den Code und deine Unterstüzung. Echt Super.
Eine frage hätte ich aber dennoch undzwar:
kann ich hier
Const Pfad As String = „C:\test“
jetzt einfach den von mir oben genannten link einfach eintragen und er speichert das dann dort auf dem SharePoint ab?

Also: Const Pfad As String = „http://my.fsc.net/teams…“??

Besten Dank
Fizzo361

[Reinhard_fb8cb7]

Eine frage hätte ich aber dennoch undzwar:
kann ich hier
Const Pfad As String = „C:\test“
jetzt einfach den von mir oben genannten link einfach
eintragen und er speichert das dann dort auf dem SharePoint
ab?

Also: Const Pfad As String = „http://my.fsc.net/teams…“??

Hallo Fizzo361,

GENAU das weiß ich Null. Ich mutmaße nein.

Google mal nach
vba sharepoint
bzw.
vb sharepoint

Vielleicht plus den beiden Suchwörtern noch speichern benutzen, dann kommen mehr deutsche Treffer.

Wenn du da Treffer hast mit Codes wo es auch um so einen Link in Sharepoint geht wo was gespeichert wird, egal vb, vba in Excel Word access, dann zeige mal die Treffer.

Gruß
Reinhard

[Fizzo361]

Tag Reinhard,
also ich hab den Link in den Pfad eingetragen und es hat wunderbar funktioniert, ich musste jetzt noch ein bisschen basteln damit der das Makro auch mit auf dem SharePoint überträgt, aber soweit klappt jetzt alles was ich mir vorgestellt habe.

Echt Super von dir, das du mir so schnell helfen konntest, ich danke dir und vieleicht schreibt man sich ja mal wieder bei meinem nächten Problem.

bis dahin, viel erfolg und frohes schaffen wünsch ich dir noch,

Fizzo361

[Reinhard_fb8cb7]

also ich hab den Link in den Pfad eingetragen und es hat
wunderbar funktioniert, ich musste jetzt noch ein bisschen
basteln damit der das Makro auch mit auf dem SharePoint
überträgt, aber soweit klappt jetzt alles was ich mir
vorgestellt habe.

Hallo Fizzo361,

wie sieht denn der entstandene Code aus, so wie unten und was mußtest du da basteln?
Vielleicht kommt ja hier mal ein anderer mit ähnlichem Problem.

Gruß
Reinhard

Sub SpeichernUnter()
Dim varRetVal As Variant, strInitFileName As String, Datname As String
Const Pfad As String = "http://my.fsc.net/teams/knowledgenet/cop/TISNWS/Reusables/Forms/AllItems.aspx"
Datname = "Hans\_Mueller" & Format(Date, "yyyy-mm-dd") & ".xls"
varRetVal = Application.GetSaveAsFilename( \_
 InitialFileName:=Pfad & Datname, \_
 FileFilter:="Microsoft Excel-Dateien (\*.xls), \*.xls", \_
 Title:="Datei speichern unter... ")
'If varRetVal = False Then Exit Sub
'ActiveWorkbook.SaveAs varRetVal
End Sub

[Fizzo361]

Hallo Fizzo361,

wie sieht denn der entstandene Code aus, so wie unten und was
mußtest du da basteln?
Vielleicht kommt ja hier mal ein anderer mit ähnlichem
Problem.

Gruß
Reinhard

Sub SpeichernUnter()
Dim varRetVal As Variant, strInitFileName As String, Datname
As String
Const Pfad As String =
„http://my.fsc.net/teams/knowledgenet/cop/TISNWS/Reusables/Forms/AllItems.aspx“
Datname = „Hans_Mueller“ & Format(Date, „yyyy-mm-dd“) & „.xls“
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=Pfad & Datname, _
FileFilter:=„Microsoft Excel-Dateien (*.xls), *.xls“, _
Title:="Datei speichern unter… ")
'If varRetVal = False Then Exit Sub
'ActiveWorkbook.SaveAs varRetVal
End Sub

Morgen,
naja hat doch nicht alles so geklappt wie ich es wollte.
undzwar müsste ich das als xlsm abspeichern jetzt habe ich in deinem code aus xls xlsm gemacht und schon hat er die datei nicht mehr auf dem SharePoint abgespeichert.

Benötigt man für die format Speicherung von xlsm einen anderen code?

Viele Grüße
Fizzo361

[Fizzo361]

Ups neheme alles zurück hat alles besten geklappt.(code unverändert)
bis dann,
Fizzo361