Wie krieg ich hin, dass ich aus diesem Codeteil:
sPath = "H:\Personal\Excel_VBA\Bestandestabellen\JMB_1a\"
nur den Teil zwischen den letzten beiden \\ rausbringe?
In dem Fall wäre das "JMB_1a"
Grund dafür ist, das dort auch was anderes stehen kann und ich weiter
unten im Code diesen Teil wieder brauche und zwar in diesem:
Info = MsgBox("JMB_1a wurde unter dem Pfad: " & sPath & " gespeichert.", vbInformation + vbOKOnly, "History Pfad")
Mit dem Pfad habe ich es auch schon so gelöst, das ich in der MsgBox nicht
den ganzen Pfad von Hand eingeben muss, sondern mit & sPath &
dasselbe möchte ich nun auch am Anfang der MsgBox mit dem JMB_1a haben.
Hier der ganze Code:
Sub Historisieren()
Dim sPath As String
sPath = "H:\Personal\Excel_VBA\Bestandestabellen\JMB_1a\"
On Error Resume Next
Antwort = MsgBox("Soll die Bestandestabelle 1a historisiert werden ?", vbYesNo, "Historisierung JMB CS 1a !")
If Antwort = 7 Then Exit Sub
MkDir sPath & Year(Date)
sPath = sPath & Year(Date) & "\"
MkDir sPath & Format(Date, "YYYYMMDD")
sPath = sPath & Format(Date, "YYYYMMDD") & "\"
ActiveWorkbook.SaveAs sPath & _
ActiveWorkbook.Name & "-" & Format(Now(), "hh_mm_ss") & ".xls"
Info = MsgBox("Bestandestabelle CS1a wurde unter dem Pfad: " & sPath & " gespeichert.", vbInformation + vbOKOnly, "History Pfad")
On Error GoTo 0
End Sub
Hoffe, dass mir jemand helfen kann.
Vielen Dank schon mal.
Gruss Eve