Excel: VBA-Skript für Ordner erstellen – Wert aus ausgewählter Zelle abrufen?

Question

Ich verwende einen VBA-Code, um einen neuen Ordner in einem Verzeichnis zu erstellen. Ich möchte den neuen Ordnernamen aus der ausgewählten Zelle abrufen. Irgendwelche Ideen, wie ich das machen kann?

Hier ist der Code, den ich bisher habe.

If Target.Column = Range("B1").Column Then
  If Target.Row > 7 Then

'Variable definitions
Dim FolderListRange As Range
Dim FolderRange As Variant
Dim FolderName As String
Dim ParentFolderPath As String

On Error GoTo Handle
    ' Set the Folder where the individual folders should be created
    ParentFolderPath = "\\UKSH000-FILE06\purchasing\New Supplier Set-Ups"

    Set FolderListRange = Range("B" & Target.Row).SpecialCells(xlCellTypeConstants)

    For Each FolderRange In FolderListRange

        FolderName = ParentFolderPath & "\" & FolderRange.Value

        If FileSystem.Dir(FolderName, vbDirectory) = vbNullString Then
            FileSystem.MkDir FolderName
        End If

Continue:
    Next

Handle:
  End If
  End If

Answer 1

Ich würde so etwas versuchen:

Dim folderNameCell As Range
Dim newFolderName As String

Set folderNameCell = Application.Selection
newFolderName = folderNameCell.Value