Hallo!
ich möchte per VBA alle Worksheets löschen, deren Name
projectName (String) ähnelt aber nicht inputForm (String) ist, wenn
der Benutzer eine Msgbox mit Ja beantwortet. Beantwortet er das
Löschen mit Nein, dann soll projectName um die nächste freie Zahl
ergänzt werden (z.B. "Testprojekt1").
Ich habe etwas geschrieben, aber das führt so garnicht zu dem was
ich wollte :). Hier wird der Nutzer einfach jedes mal gefragt und das
Ergebnis ist auch nicht so richtig toll.
For Each WS In Worksheets
If Not WS.Name = inputForm Then
If WS.Name Like projectName & "*" Then
If MsgBox(projectName & " exists. Overwrite?", vbYesNo,
"Overwrite existing?") = vbNo Then
projectName = projectName & d
d = d + 1
Else
WS.Delete
End If
End If
End If
Next WS
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name =
projectName
Habt ihr eine Idee wie man das besser machen könnte?
Beste Grüße,
critchm