antwort = InputBox(...)
If vbOK Then
Wenn Du eine Bedingung prüfen willst, um darauf entsprechend reagieren zu können, musst Du diese Bedingung konkret formulieren.
Ich kann keine erkennen.
Worksheets(i).Add
Prüfe die Variable antwort auf Datentyp bzw auf Zahl.
Dann am Besten nochmal die Onlinehilfe zur Add-Methode lesen. Das i ist fehl am Platz.
Worksheets.Add-Methode (Excel) | Microsoft Docs
Worksheets(i).Name = "DAdams"
Versuch mal, einer Arbeitsmappe, mehreren Arbeits-oder Diagrammblätter denselben Namen zuzuweisen.
Wenn etwas manuell nicht klappt, wird das programmatisch auch nicht klappen.
Basics sind das A und O.
Hör niemals auf nachzulesen. Egal, ob ein Helfer Dir etwas antwortet oder Du in einem Code irgendwas (auf den ersten Blick) seltsames liest. Genau dann lohnt es sich aufmerksam zu sein.
|