Mit folgendem Code (in einem Standardmodul) kann gleichzeitig eine ganze Ordner/Unterordnerstruktur angelegt werden: Private Declare Function apiCreateFullPath Lib "" Alias MakeSureDirectoryPathExists" _ (ByVal lpPath As String) As Long Public Function fktCreateMultiPfad() as Long Dim strPfad As String strPfad = "c:\Verzeichnis1\Verzeichnis11\Verzeichnis111\Verzeichnis1111\" fktCreateMultiPfad = apiCreateFullPath(strPath) End Function Guten Morgen Franz. Ich habe die Doppelslash entfernt und in den Verweise nachgesehen.... kann damit aber nichts anfangen. Siehe Bild Hallo, habe zwischenzeitlich meinen vorherigen Post erweitert... Die Verweise scheinen ok zu sein... Ist in JEDEM(! ) Modul im Kopfbereich Option Explicit angegeben? Wenn nicht, dies nachholen und im VBA-Editor Debuggen/Kompilieren anstoßen. Vba verzeichnis erstellen time. Habe nachträglich die "Option Explicit" eingefügt und Debuggen/Kompilieren durchgeführt. Kein Erfolg. Schade, ich wollte da noch zusätzlich das ein vorhandener Ordner geöffnet bzw ein neuer Ordner erstellt wird in Abhängigkeit des im Aktuellen Form ID Feld.
Wahrscheinlich wegen dem Verbinden als Laufwerk B. Ich habe eine Alternativlösung gefunden, wie die Ordner erstellt werden können. Per VBA Ordner erstellen, Pfad und Ordnername aus Zellen Office-Loesung.de. Muss zwar in einem Separaten Tabellenblatt gemacht werden, dafür kann man gleich viele aufs mal anlegen: Sub OrdnerErstellen() Dim sFolder As String, sNeu As String, rngC As Range, n As Integer With leDialog(msoFileDialogFolderPicker) If = -1 Then sFolder =. SelectedItems(1) End With If sFolder <> "" Then With Sheets(5) For Each rngC In ((2, 1), (, 1)(xlUp)) If rngC <> "" Then sNeu = sFolder & "\" & rngC If Dir(sNeu, vbDirectory) = "" Then MkDir sNeu n = n + 1 Next Range("A2:A" & Cells(, "A")(xlUp)). ClearContents MsgBox "Ordner anlegen war erfolgreich" If n Then MsgBox n & " Ordner nicht angelegt.
2012 16:53:38 hier eine weitere Möglichkeit: Option Explicit Private Declare Function MakeSureDirectoryPathExists Lib "" ( _ ByVal lpPath As String) As Long ' Legt einen kompletten Verzeichnispfad an Private Sub PfadAnlegen() Dim Pfad As String Pfad = "C:\Daten\Excel\Sonstiges\" ' Verzeichnis erstellen MakeSureDirectoryPathExists Pfad Heinz Geschrieben am: 22. 2012 20:06:27 Hallo Heinz, danke für Deinen Lösungsansatz. Mir ist es leider nicht gelungen den Code auf mein Fallbeispiel umzuschreiben, aber der Rudi konnte mir helfen.
Redaktion Unsere Philosophie Stellenangebot Anmelden im Herder-Konto E-Mail-Adresse Passwort Passwort vergessen? Angemeldet bleiben Noch kein Herder-Konto? Jetzt registrieren Suche Abo Newsletter Mein Konto Warenkorb CIG online Zeitgeschehen Geistesleben Meinung Leserforum CIG Ausgaben Aktuelle Ausgabe Archiv Themen Bücher Register Rubriken Start Anzeige CHRIST IN DER GEGENWART 2020 CIG-Online Dezember 2020 Gratis Corona-Fehlentscheidungen: Politik(er)schwäche Nun sollen harte Einschränkungen das Corona-Virus besiegen helfen. Die aktuelle dramatische Situation hätte nicht erst abgewartet werden müssen. Von CHRIST IN DER GEGENWART Nach der Amokfahrt von Trier: Mein dritter Tag im Advent Über Trier ist das Dunkel des Entsetzens über eine Amokfahrt mit mehreren Toten hereingebrochen. Zum aktuellen Zeit-Geschehen - Spirituelle Sterbebegleitung - Trauerbegleitung - Lebensbegleitung - Freiburg - Emmendingen - Waldkirch. In der Stadt hat das Deutsche Liturgische Institut seinen Sitz. Dessen Leiter, Marius Linnenborn, spricht über sein Erleben, seine Gefühle nach der schrecklichen Tat. Von Marius Linnenborn 1 2 3 4 5 6 7 Weiter Zum Ende
Spiritualität im Alltag: Erwachen zu Ganzheit, Moto: ein gutes Leben - offen * bewusst * liebevoll: Wulfing von Rohr-Homepage, organisert auch Gruppenreisen. Offizielle Internet-Seite des Physikers Dieter Broers:, sein letzter FILM: " Solar (R)evolution " wurde gezeigt und ist auf DVD erhältlich: sehens- und beachtenswert! ViGeno: Das spirituelle Internetportal. Spiritualität, Bewusstsein und alternative Gesundheit! Spiritgate: regelmäßig neue spirituelle Artikel / Botschaften! Die IRANTIA -Lichtakademie von Patrizia Alexandra Pfister: vier Reiche, u. Kreativ mit Projekt Venusblume: Projekt Herz, "Welt im Wandel - Ende der Zeit": Hier gibt es ein vollkommen neues Angebot für spirituell orientierte Menschen! : Lass dein Herzenslicht leuchten, Ingrid Haunsberger: erste Internet Community, Therapeuten/Heiler mit Ratsuchenden/Interessierten Keplerstern: Hartmut Warm, Die Signatur der Sphären, macht die Ordnung im Kosmos deutlich! Aktuelles zeitgeschehen spirituell leben. Bewusstseinszentrum 2012: Gedankenschatz von Biggi Berchtold, der Wegweiser zu sich selbst: Großes Gesundheitsportal für ihr Wohlbefinden: Schamane, Weltreisender, Vision 2038 Bewegender Film von Ende 2011, der wenig auslässt: THRIVE (Originalseite, Trailer): Umfassender Rundumblick zu wichtigen Dingen / Themen, die noch immer zu wenige wissen: UFOs, Kornkreise, Heilige Geometrie, Freie Energie, Finanzsystem,... (über zwei Stunden)!
Der grundlegende Evolutionsrhythmus der Erde und die harmonische Ordnung unserer Welt sind gestört. Wohin geht der natürliche Strom der irdischen Evolution? Er geht in Richtung globale Einheit und humanitäre Zusammenarbeit, in Richtung Harmonie und Gerechtigkeit für alle Frauen und Männer, Völker und Rassen und alle Lebewesen auf unserem Planeten. Aktuelles zeitgeschehen spirituell gesehen. Das Globale Zeitalter wird nicht aufzuhalten sein. Jedoch müssen wir alle den karmischen Preis für den egoistischen Widerstand und Widersinn auf Erden ertragen und erleiden. Was können wir persönlich tun, wie können uns die Sterne helfen, unsere individuelle Orientierung und integre Ordnung zu bewahren und weiterhin in Einklang mit der Schöpfung zu leben? Rückblick auf die vergangenen Jahre Auf der existenziellen Ebene wurden die kosmischen Wendezeitimpulse der vergangen Jahre von vielen Machthabern und Globalplayern auf egoistische Weise dazu genutzt ihre Machtinteressen weiter zu forcieren. In der arabischen Welt kam es zu schweren Revolutionen und chaotischen Kriegsszenarien.
Monika Hagn Die nun dauerhaft und in immer kürzeren Abständen zu uns strömenden Energien können für Viele von uns sich sehr herausfordernd anfühlen. Mir geht […] Read More Monika Hagn Was geht oder was nicht, ist keine Frage der äußerlichen Umstände. Es ist lediglich eine ganz persönliche Willensentscheidung. Mag sein, dass dieser Satz […] Read More Gabriele Sherina Astaria Schmitt Du liebe lichtvolle Seele im menschlichen Kleid auf Erden, der April bringt ganz viel Neubeginn, denn er beginnt mit einem Neumond […] Read More Gabriele Sherina Astaria Schmitt Schön, dass Du da bist. In diesem Video teile ich mit Dir eine lichtvolle Übung, welche Dich täglich unterstützt, Dich lichtvoll […] Read More Monika Hagn Seit gestern fühlen sich die Energien wesentlich leichter an, ist mehr Entspannung im Feld. Vorher empfand ich die letzten 10 Tage als große […] Read More Gabriele Sherina Astaria Schmitt Podcast vom 13. 3. Globale Zeitqualität — Schule für Spirituelle Astrologie. 2022 Von Herzen Gabriele Sherina Astaria Mein Webinarangebot, stets abgestimmt auf die Zeitqualität, unterstützt Dich altes Gepäck loszulassen, lichtvoll […] Read More Aktuelle Schumann Frequenz vom 11. März Monika Hagn Sehr interessante Aufzeichnungen seit gestern.
Da braucht es keinen Kampf zum Schutz, denn es herrscht ja Souveränität. Das ist in Deutschland auf mehreren Ebenen ein ganz besonderes Thema. Aktuell kommt so viel ans Licht, auch richtig harter Tobak. Vieles ist zu verarbeiten. Vieles ist zu sortieren, Fragen wollen beantwortet werden. Was jetzt in der Gesellschaft ein Misstand ist, darf, soll und wird sich wandeln in etwas Besseres. Veränderung braucht Taten. Aktuelles Zeitgeschehen und Partnerrückführung - Sternenmagie. Diese brauchen allerdings Weisheit, sonst gibt es nur schmerzvolle Wiederholungen. Denn was im Inneren der Antrieb ist – nur wieder ein anderes Feindbild oder der tiefe, wahrhaftige Wunsch nach Heilung (für ALLE Wesen) zeigt letztlich, in welcher Welt man zu leben bereit ist. Ich wünsche mir von Herzen für uns alle, dass wirklich jeder von uns dabei ist und es diesmal keine neue Klassengesellschaft gibt, auch keine "Schlafschafe" oder "X/Y/Z-Leugner" mehr und so fort. Denn wir sind alle hier und allein diese Tatsache verbindet uns. Auf einer, sagen wir mal "himmlischen Skala" einer Bewertung für eine Menschenseele hier auf Erden würde für mich vor allem diese Wertung Sinn ergeben: Wow, danke für deinen Mut hier zu sein und dass du bis hier und jetzt durchgehalten hast – das gibt eine 1+ und das mit tausend Sternen!
Was auf der Meta-Ebene geschieht ist viel relevanter, und dort geht es oft um emotionale Themen wie Verunsicherung, Ziellosigkeit, Angst. Dies wird von instrumentalisierten Institutionen angefeuert, um den Wandel zu behindern. Um zu Qualitäten wie Ur-Vertrauen, Liebe und Dankbarkeit zu gelangen, ist also ein Verzicht auf dieses (Des-)Informationsgift notwendig und auch das erkennen Tag für Tag mehr Menschen. Damit kann die eigentliche Arbeit auch erst beginnen: Das Prüfen vorhandener Identifkationen. Sich von der Identifikation mit äußeren Projektionsflächen und ihren Themen abzulösen, um innere Themen zu bearbeiten, ist einer der energetischen Aspekte der MSQ-Produkte. Dies geschieht über Klärung, Sortierung, Wandlung und dabei spielt eines derzeit wohl eine besondere Rolle: Das wertfreie Annehmen des Wahr-Genommenen, auch der wirklich "bösen" Aspekte und dabei geht es nicht "nur" um Menschenhandel und Kindesmissbrauch. Es geht um den Missbrauch der gesamten Menschheit durch andere Kräfte.