Allgemeine Zeitung Mainz Stellenanzeigen
VBA Ordner erstellen von gaertner1706 vom 22. 10. 2012 13:41:51 AW: VBA Ordner erstellen - von Frank H. am 22. 2012 14:46:21 AW: VBA Ordner erstellen - von gaertner1706 am 22. 2012 15:04:44 AW: VBA Ordner erstellen - von Rudi Maintaire am 22. 2012 16:35:14 AW: VBA Ordner erstellen - von gaertner1706 am 22. 2012 20:04:12 AW: VBA Ordner erstellen - von haw am 22. 2012 16:53:38 AW: VBA Ordner erstellen - von gaertner1706 am 22. VBA - Verzeichnis erstellen - MS-Office-Forum. 2012 20:06:27 Betrifft: VBA Ordner erstellen von: gaertner1706 Geschrieben am: 22. 2012 13:41:51 Hallo, bin bis eben noch eine "Forenjungfrau" hier also meine erste Frage: Angenommen A1=1 und A2=Ordner Ich möchte dass z. B. Bei einem Rechtsklick in Zeile A folgender Ordner erstellt wird: C:\vbaOrdnerErstellen\Ordner\1 einzeln bekomme ich das hin (s. u. ) zusammen funktioniert es nicht. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim Ord As String 'Ord = "C:\vbaOrdnerErstellen\" & Cells(, 2) 'Ord = "C:\vbaOrdnerErstellen\" & + 120995 MkDir Ord If Dir(Ord, vbDirectory) <> "" Then MsgBox "Ordner """ & Ord & """ wurde angelegt" Else MsgBox "Ordner nicht vorhanden" End If End Sub Betrifft: AW: VBA Ordner erstellen von: Frank H. Geschrieben am: 22.
fragt sich Luschi aus klein-Paris
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.!!! Vba verzeichnis erstellen calendar. 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!!! 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.