Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Pfad per VBA auslesen lassen
#1
Hallo VBA-Freunde,
ich grüble wieder mal über eine VBA-Lösung:
Ich habe eine Excelmappe, die heißt Collectingsheet.xlsm.

Es soll nun folgendes geschehen:
Der User öffnet eine Excelmappe z.B „2014-05-12 Smartsheet.xlsm“ und bearbeitet diese Mappe. Irgendwo auf dem Rechner ist die Collectingsheet.xlsm gespeichert. nach dem Bearbeiten der geöffneten Mappe soll die Tabelle „Summery“ in die Collectingsheet.xlsm gespeichert werden.

Wenn das in dem gleichen Ordner stattfinden würde, wäre es ja kein Problem den Pfad auslesen zu lassen. Da ich aber keine Möglichkeit habe, den Usern einen Speicherort der „Collectingsheet.xlsm“ vorzuschreiben, die einen machen es auf dem Server, die anderen auf ihrem Laptop, bräuchte ich eine Möglichkeit den Pfad zu der Mappe „Collectingsheet.xlsm“ per VBA in der Mappe „2014-05-12 Smartsheet.xlsm“ einlesen zu lassen, damit ich zum Speichern der Daten die Mappe „Collectingsheet.xlsm“ öffnen kann.

Die User öffnen am Anfang eine Mustermappe "Smartsheet.xlsm" in der das Makro zum Auslesen verankert werden soll. Die Mappe "Smartsheet.xlsm" wird beim beenden dann woanders gespeichert.

Wer weis mir da eine Lösung?

Vielen Dank schon im voraus.
Es ist nicht genug, zu wissen. Man muss es auch anwenden.
Es ist nicht genug, zu wollen. Man muss es auch tun.
to top
#2
Hallo Heinz,
Soll der User beim Pfad definieren die Mappe C.. auch öffnen oder soll die automatisch gefunden werden? Im letzten Fall muss der User beim automatischen Suchen ggf. eine Auswahl treffen, falls es die Datei mehr als ein mal gibt. Bei größeren Datenmengen kann die Suche auch etwas länger dauern.
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#3
Hallo Andre,
wir machen es jetzt anders. Beim Speichern des smartsheets wird beim Beenden der Mappe der Speicerpfad
der Mappe in eine zentrale Mappe geschrieben.
Danke
Es ist nicht genug, zu wissen. Man muss es auch anwenden.
Es ist nicht genug, zu wollen. Man muss es auch tun.
to top
#4
Hallo Heinz,

hier mal nur der Vollständigkeit halber ein Ansatz, falls die entsprechende Exceldatei neben weiteren Exceldateien offen ist. Ich habe hier die Namen der Mappen mit dem großgeschriebenen Namen verglichen. Letztendlich weiß man vielleicht nicht, wie die Datei im Einzelfall gespeichert wurde. Test.xls, test.xls, Test.XLS oder wie auch immer.

Code:
Sub MappenPfad()
'Variablendeklarationen
'Workbook
Dim mappen As Workbook
'Schleife ueber alle offenen Mappen
For Each mappen In Workbooks
  'Wenn der grossgeschriebene Name der Mappe TEST.XLS ist, dann
   If UCase(mappen.Name) = "TEST.XLS" Then
   'Pfad der Mappe ausgeben
   MsgBox UCase(mappen.Path)
  'Ende Wenn der grossgeschriebene Name der Mappe TEST.XLS ist, dann
   End If
'Ende Schleife ueber alle offenen Mappen
Next
End Sub
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Name vom Tabellenblatt automatisch ändern lassen friemel84 1 53 20.01.2017, 19:15
Letzter Beitrag: schauan
  Excel Zelle blinken lassen wenn leer hbboy15 6 128 02.01.2017, 14:33
Letzter Beitrag: Winny
  Tabelle oder Bereich über "Name" auswählen und anzeigen lassen Bernilli 7 352 30.09.2016, 12:17
Letzter Beitrag: Ego
  Sortieren nach Artikel in einem Pfad ModernPixel 2 161 25.09.2016, 07:33
Letzter Beitrag: schauan
Sad Formelwerte lassen sich nicht ändern Pivo 3 267 20.09.2016, 08:59
Letzter Beitrag: Rabe
  VBA textliste mit Pfad Jürschen175 1 127 18.09.2016, 12:19
Letzter Beitrag: IchBinIch
  Pfad in der Zelle dann öffnen durch Button Jürschen175 8 303 18.09.2016, 11:31
Letzter Beitrag: Jürschen175
Question Farbfelder zählen lassen - #BEZUG! Problem!? Yankee93 14 822 02.09.2016, 08:04
Letzter Beitrag: Yankee93
Question Über bed. Formatierung Geburtstage im Monatskalender anzeigen lassen Lusche800 21 937 01.09.2016, 09:23
Letzter Beitrag: Lusche800
  in buchhaltungsformat 0 anzeigen lassen? Lukaslukas 2 241 18.07.2016, 11:57
Letzter Beitrag: Lukaslukas

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste