• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

test vba If Sheetcount < 2 Then

Status
Niet open voor verdere reacties.

Ralbers

Gebruiker
Lid geworden
8 jul 2011
Berichten
190
Hallo allemaal,

Ik heb een stukje vba waarbij er een test moet komen of er 2 tabbladen zijn.
Zo ja dan moet het 2e tablad verwijdert worden.
De code die ik gemaakt heb werkt echter niet goed
Hij is namelijk altijd waar
Dus ergens zit iets niet goed

Code:
If Sheetcount < "2" Then
    Sheets.Add After:=Sheets(Sheets.Count)
    Else
    Application.DisplayAlerts = False
    Worksheets(2).Delete
    Application.DisplayAlerts = True
    End If

Heeft iemand enig idee wat ik fout doe?
 
Ik weet niet of je nog meerdere bladen hebt, maar test het eens.

Code:
Application.DisplayAlerts = False
 If Sheets.Count >= 2 Then Sheets(2).Delete
Application.DisplayAlerts = True
 
Ik snap niet wat er precies anders aan is maar hij werkt perfect

bedankt
 
Ik zie toch enige verschillen.
Maar ik draag een bril. ;)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan