Ordner mit Makro löschen

[Guschti]

Hallo Gast123

Ein wenig Recht hast du.
Ich nehme an, dass der TE diesen Code aus nur aus der einen Tabelle startet.

Aber zu deinem Problem würde ich nie den Tabellennamen wählen, da dieser ohne weiteres geändert werden kann.
Ich nehme dazu immer den Tabellen Codenamen.

Pfad = ThisWorkbook.Path & "\" & Tabelle1.Range("B1")

Gruss Guschti

[Gast 123]

Hallo Gutschi

an Tabellen Namen aendern habe ich nicht gedacht.  Wieder was dazu gelernt.  Danke für den Tipp ...

mfg  Gast 123

[schauan]

Hallöchen,

kommt sicher auch auf die konkreten Umstände an, wie man seine User im Griff hat und wie der Inhalt von B1 entsteht.
Der Codename ist schon relativ sicher, aber auch nicht 100%. Wer es darauf anlegt, kann auch den Codenamen ändern Oder jemand kopiert den Inhalt von Tabelle1 auf ein anderes Blatt, löscht die Tabelle1 und benennt das andere Blatt um. Dann hilft auch kein Codename, man müsste etwas mehr tun.
Man könnte z.B. die Arbeitsmappe schützen, das verhindert ein Umbenennen und Löschen
Oder man blendet das Blatt mit der Zelle B1 aus, dann kann man es nicht so einfach umbenennen oder löschen.
Oder …

Ich glaube aber, dass das alles hier nicht so relevant ist - wenn der Code nicht im VBA-Editor gestartet wird sondern anwenderfreundlicher mit einem Button auf dem Blatt, wo auch die benötigte Zelle B1 enthalten ist.

[snb]

Hier reicht doch ein einszeiler:

Code:

Sub M_snb()
  CreateObject("Scripting.FileSystemObject").DeleteFolder ThisWorkbook.Path & "\" & thisworkbook.sheets(1).Range("B1").value
End Sub