Private Sub Workbook_Open()
If Dir("C:\Temp", vbDirectory) = "" Then
MkDir ("C:\Temp")
MsgBox "Ordner ''Temp'' wurde angelegt!"
Else
MsgBox "Ordner ''Temp'' ist vorhanden!"
End If
End Sub
Der Benutzer möchte, dass beim Öffnen einer Excel-Datei automatisch ein neuer Ordner im Verzeichnis C:\ angelegt wird. Dieser Ordner soll nach dem aktuellen Datum im Format JJJJMMTT (z.B. 20230910 für den 10. September 2023) benannt werden.
Um beim Öffnen einer Excel-Datei automatisch einen Ordner zu erstellen, kann ein VBA-Makro verwendet werden. Dieses Makro verwendet die MkDir-Funktion von VBA, um einen neuen Ordner zu erstellen, und die Date-Funktion, um das aktuelle Datum zu erhalten. Das Makro wird im Workbook_Open-Ereignis eingefügt, damit es automatisch beim Öffnen der Arbeitsmappe ausgeführt wird.
Alt + F11, um den VBA-Editor zu öffnen.VBAProject (DeinArbeitsblattName) in der Projekt-Explorer-Leiste auf der linken Seite und wähle Einfügen > Modul.Sub CreateFolderOnOpen()
Dim path As String
path = "C:\" & Format(Date, "yyyymmdd")
On Error Resume Next
MkDir path
On Error GoTo 0
End SubDieseArbeitsmappe-Modul im Projekt-Explorer und füge den folgenden Code in das Fenster ein:Private Sub Workbook_Open()
CreateFolderOnOpen
End SubMkDir: Diese VBA-Funktion erstellt ein neues Verzeichnis oder einen Ordner.Mit einem VBA-Makro kannst du beim Öffnen einer Excel-Datei automatisch einen neuen Ordner im Verzeichnis C:\ erstellen. Das Makro verwendet die MkDir-Funktion von VBA und die Date-Funktion, um das aktuelle Datum zu erhalten. Das Makro wird im Workbook_Open-Ereignis eingefügt, damit es automatisch beim Öffnen der Arbeitsmappe ausgeführt wird.