VBA: Blätter zählen und eventuell neu hinzufügen
23.12.2012 14:34:29
WalterK
bitte um Hilfe zu folgendem Code:
Den Code starte ich über eine Schaltfläche. Es sollen die Blätter in der Mappe gezählt werden, wenn die Anzahl der Blätter kleiner als 6 ist soll die fehlende Anzahl an Blättern neu hinzugefügt werden. Was muss ich dafür beim folgenden Code ändern oder ergänzen?
Option Explicit
Sub BlätterZählen()
Dim AnzBlä As Long
AnzBlä = ThisWorkbook.Sheets.Count
If AnzBlä