", vbYesNo + vbQuestion) = vbYes Then Call MsgBox("TMA-Dokumentablage erfolgreich gestellt! ", vkOKOnly + vbInformation) nCommand acCmdSaveRecord cordSource = cordSource strMsg = "Ein weiteres Dossier erstellen? " If MsgBox(strMsg, vbYesNo + vbQuestion) = vbYes Then oRecord,, acNewRec acForm, Es wird nun der Dossierordner im Verzeichnis "c:\vdos\" erstellt mit der Konvention: visumNachname. Vorname-DossierID. Ich möchte aber das Visum als Ordner erstellen lassen nach dem Muster: c:\vdos\%Visum%\Nachname. Vorname-DossierID. Tönt einfach aber ich scheitere kläglich. Wäre sehr dankbar für einen kleinen Input. Vielen Dank und einen schönen Tag - quen Geändert von quen_to (16. Vba verzeichnis erstellen index. 2014 um 14:46 Uhr). 16. 2014, 18:12 # 5 MOF Meister Registrierung: 28. 11. 2011 Ort: Ungefähr 53, 2° Nord und 10, 4° Ost Hallo quen_to, wenn Du bei Deinen VBA-Methoden bleiben willst, musst Du jeden Unterpfad einzeln prüfen und anlegen. Zuerst c:\vdos dann c:\vdos\%Visum% und dann erst c:\vdos\%Visum%\Nachname. Vorname-DossierID Hang loose, haklesoft 16.
2012 14:46:21 Hallo Unbekannter! Auf deine Frage weiss ich keinen Rat. Aber auf die Regeln im Forum kann ich dich aufmerksam machen. Hier wird geduzt, so dass man gern nen Gruss mit seinem Namen am Ende aus Höflichkeit sendet, damit man dich auch anreden kann! L. G. Frank H.!!! Geschrieben am: 22. 2012 15:04:44 Hallo Frank H.! danke für den Hinweis, wie gesagt "Forenjungfrau" Gruß Kolja von: Rudi Maintaire Geschrieben am: 22. 2012 16:35:14 da ist 2x MkDir erforderlich. Sicherheitshalber sogar 3x. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Ord = "C:\vbaOrdnerErstellen" If Dir(Ord, vbDirectory) = "" Then MkDir Ord Ord = Ord & "\" & [A2] Ord = Ord & "\" & [A1] Gruß Rudi Geschrieben am: 22. 2012 20:04:12 Hallo Rudi, danke für die schnelle Antwort. Habe den Code auf mein Fallbeispiel angepasst und es funktioniert!!! Per VBA Ordner erstellen, Pfad und Ordnername aus Zellen Office-Loesung.de. Super und schönen Dank. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Ord = "C:\vbaOrdnerErstellen\" & Cells(, 2) Ord = Ord & "\" & + 120995 von: haw Geschrieben am: 22.
2018 11:57:51 Hallo Hopps, Modul Modul1 Option Explicit Private Declare Function MakeSureDirectoryPathExists Lib "" ( ByVal lpPath As String) As Long Sub Ordner_erstellen() Dim Zeilen As Long, Pfad As String, FullPfad As String, i As Long Zeilen = Range( "A65536")(xlUp) Pfad = Range( "B1") FullPfad = Pfad & Cells(i, 1) & "\" & Range( "C1") & "\" Call MakeSureDirectoryPathExists(FullPfad) VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung: RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12. Vba verzeichnis erstellen today. 6. 0 Gruß Sepp Geschrieben am: 21. 2018 12:26:52 Hallo Sepp, vielen lieben Dank für Deine Hilfe. Läuft wie gewünscht. Schönes sonniges Wochenende wünsch ich Dir.
fragt sich Luschi aus klein-Paris
Beddenreus Bei Beddenreus in Heerlen kann man seine Schlafzimmerausstattung direkt mitnehmen und erhält so die beste Option zum niedrigsten Preis. Beddenreus bietet ein breites Sortiment an Schlafzimmermöbeln, Boxsprings, Matratzen, Lattenrosten und Betttextilien. So können die Kunden schon abends komfortabel schlafen, im Wissen, ein Schnäppchen gemacht zu haben. Kontact Beddenreus In de Cramer 102A 6412 PM Heerlen T. +31 (0)45 574 81 55 Öffnungszeiten
Fahren Sie Richtung Amsterdam und nehmen Sie sofort nach der Kreuzung die erste Abfahrt rechts. Sie folgen dabei dem "Ringweg". Rechts sehen Sie das Mercurehotel und die Martinihalle. Unten am Kreisverkehr angekommen halten Sie sich wieder rechts. Ab dort ist der Meubelboulevard ausgeschildert. Und dann viel Spaß beim Einkaufen!
Praxis Praxis bietet jedem Do-It-Yourself-Handwerker alles, was er für Arbeiten jeglicher Art benötigt. Unser Angebot ist sehr umfangreich und breit gefächert, außerdem haben wir auch eine große Auswahl in unterschiedlichen Preisklassen. Bei Praxis gibt es die wichtigsten Marken für den Do-It-Yourself-Bereich. Kontakt Praxis In de Cramer 82 6412 PM Heerlen T. +31 (0)45 575 41 40 Öffnungszeiten
Auf dem Plan wird deutlich, dass unsere 50 Einrichtungsgeschäfte sich auf 130. 000 m2 dicht aneinanderreihen und über zwei Plätze mit oberer Ebene verteilt sind. So kann man bequem und schnell die gewünschten Geschäfte besuchen. Außerdem parkt man gratis vor der Tür. Die Anfahrt kann man hier planen. Wählen Sie die Kategorie der Geschäfte, die Sie besuchen möchten, oder klicken Sie direkt auf ein Geschäftsgebäude.