Ordner erstellen
11.05.2020 14:27:44
Angelika
Sub Nummernkreis()
Dim iNr As Integer
Dim sAA As String, svAA As String, stAA As String
svAA = ",SP,SCM,SA,PM,PR,QS,RD,TE,"
stAA = "1=SP 2=SC 30=SA 4=PM 5=PR 6=QS 7=RD 8=TE"
With ActiveCell
If .Column = 2 And .Row > 13 Then
Nochmal:
sAA = InputBox("Bitte die Abforderungsabteilung oder Nr eingeben!" & vbCr & stAA, " _
Anforderungsabteilung", "SP")
If StrPtr(sAA) = 0 Then Exit Sub
sAA = UCase$(sAA)
If Val(sAA) > 0 Then
sAA = Split(svAA, ",")(Val(sAA))
ElseIf InStr(svAA, "," & sAA & ",") = 0 Then
GoTo Nochmal
End If
iNr = Val(Left$(.Offset(-1, 0).Value & " ", 4)) + 1
.Value = Right$("0000" & CStr(iNr), 4) & "-" & sAA & Format(Date, "-dd-mm-yyyy")
End If
End With
' setzt in der Zelle welche generiert wurde den Hyperlink
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="//srvfs01/Daten/Einkauf/Anfragen/ _
Anfragen"
Range("B14").Select
Rows("14:14").EntireRow.AutoFit
Columns("B:B").ColumnWidth = 16
Range("B14").Select
End Sub
Jetzt möchte ich noch im gleichen Moment für diese neu angelegte Nummer einen Ordner anlegen, unter dem Verzeichnis Address:="//srvfs01/Daten/Einkauf/Anfragen/Anfragen".
mit z.B: : MkDir ("//srvfs01/Daten/Einkauf/Anfragen/Anfragen\Test") legt er ein Verzeichnis "Test" an, aber ich möchte ja die gerade neu angelegte Nummer als Verzeichnis anlegen.
Kann mir bitte jemand helfen ?
vielen DANK Angelika
