hab ein kleines Problem, möchte mit diesem Makro ein Verzeichnis löschen, das den Namen der selektieren Zelle + die Zelle links daneben hat. Wenn ich das Makro aufrufe, geht ein kleines Userform auf, indem man den Namen des Verzeichnisses sieht. Man bestätigt dies mit OK und das verzeichnis wird gelöscht. Funktioniert einwandfrei. Nun würde ich den Code gern so abändern, dass ich mehrere Zellen aktivieren kann und dann auch die "mehreren" Verzeichnisse gelöscht werden. Kann mir da vielleicht jemand weiterhelfen. So wie der Code jetzt ist, funktionierts leider nicht.
Danke schon man im Voraus.
Gruß Anja
Public sPfad As String, sOrdner As String
Sub Loeschen1()
sPfad = "D:\FV\"
sOrdner = Sheets(1).Range("A" & Selection.Row) & "_" & Selection
Load UserForm2
UserForm2.Show
End Sub
Sub Loeschen2()
sPfad = "D:\FV\"
sOrdner = Sheets(1).Range("A" & Selection.Row) & "_" & Selection
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(sPfad + sOrdner)
f.Delete
End Sub