Aantal Sheets optellen met bepaalde tekst mbv VBA

Status
Niet open voor verdere reacties.
R

royb73

Gebruiker
Lid geworden
19 sep 2012
Berichten
228
Beste,

Ik ben nog een beginner hier.

Ik heb een Excel bestand, waarbij ik de aantal bladen wil optellen met de naam "Nivo " erin. Tevens wil ik de waarde op blad "Gegevens" op cel "Bijlage 1 (=referentiecel)". Indien er 1 blad is, dan "1 blad" aangeven en indien meer dan 1 blad, dan in meervoud (bijv. 4 bladen).

Wie o wie kan mij helpen? Ik ben op zoek naar een VBA code hiervoor.



Mvg

Roy.
 

Bijlagen

  • Voobeeld_Mc14042.xlsm
    40,8 KB · Weergaven: 20
Het 'Tellen' van bladen met de naam Nivo is niet zo moeilijk (Optellen daarentegen weer wel...)
Code: 
Sub BladenTellen()
Dim sht As Worksheet
Dim i As Integer

For Each sht In ActiveWorkbook.Sheets
    If Left(sht.Name, 4) = "Nivo" Then i = i + 1
 Next sht
MsgBox i
End Sub
 
Beste Michel,

Bedankt voor jouw reactie. De code werkt prima. Hoe krijg ik nu alleen het aantal ingevuld in blad "gegevens" en dan in de referentiecel "bijlage 1"?

Mvg

Roy
 
Ipv regel met Msgbox i
Code: 
Sheets("Gegevens").Range("B31") = i
 
Best Rudi,

Het werkt. Is precies wat ik voor ogen had. Ik heb nu alleen i.p.v. range "B31" "Bijlage1" van gemaakt. Ik heb dit cel namelijk hernoemd naar Bijlage1.

Tnx.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan