VBA Ordner erstellen
22.10.2012 13:41:51
gaertner1706
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(ActiveCell.Row, 2)
'Ord = "C:\vbaOrdnerErstellen\" & Target.Row + 120995
MkDir Ord
If Dir(Ord, vbDirectory) "" Then
MsgBox "Ordner """ & Ord & """ wurde angelegt"
Else
MsgBox "Ordner nicht vorhanden"
End If
End Sub
End Sub