Foutje in VBA, alleen zie ik em niet

[DCTALK]

Beste mensen,

In een vba, zit een foutje alleen ik zie wel waar, maar wat het dan moet zijn weet ik niet, ik hoop dat jullie me kunnen helpen

strTitle = "CvO 2013" + "__€__" & Worksheets("Blad6").Range("Z$132")

het zit in het stuk je vanaf worksheets, als ik dit er niet in heb staan dan werk het wel,maar ik wil een cel in een ander werkblad laten zien.

 

[edmoor]

Krijg je een foutmelding? Zoja, welke?
Wijzig in ieder geval de + even in &.

 

[DCTALK]

Beste Edmoor,

foutmelding is: subscript valt buiten het bereik,

maar in blad1 staat de cel met z132 met een waarde

hoor het wel.
heb + veranderd in &,

grt CvO

 

[edmoor]

Dan is die ene regel in ieder geval niet voldoende om de oorzaak op te sporen.
Die oorzaak ligt ergens anders in de macro.

 

[DCTALK]

Ik heb de hele code hieronder gezet,

dit is een knop, die een projectblad uitprint, maar eerst een aantal kleuren eruit haalt, om te voorkomen dat die meegeprint worden. Daarna zet hij deze kleuren er weer in.
Maar ik wil dus in dit msgbox het totaalbedrag meteen weergeven wat dus op blad1 staat. (zie rode regel) in de foutmelding geeft ie wel deze regel aan.

Private Sub CommandButton1_Click()
Cells.Select
    Selection.Interior.ColorIndex = xlNone
    Range("M15").Select
    
    Dim iRet As Integer
    Dim strPrompt As String
    Dim strTitle As String
    
    strPrompt = "Oranje papier in de printer leggen"
    [COLOR="#FF0000"]strTitle = "CvO 2013" & "__€__" & Worksheets("Blad6").Range("Z$132")[/COLOR]
    iRet = MsgBox(strPrompt, vbOKCancel, strTitle)
    If iRet = vbOK Then
    
     
    'MsgBox "Oranje papier in de printer leggen!", vbOKCancel + vbInformation, "CvO 2013"
         ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=2, Collate _
            :=True
          Cells.Select
            ActiveSheet.Shapes("Picture 4").Select
            Selection.ShapeRange.IncrementLeft -0.75
            Selection.ShapeRange.IncrementTop 0.75
    Range("A1:H37").Select
    Range("H1").Activate
    Selection.Interior.ColorIndex = xlNone
    With Selection.Interior
        .ColorIndex = 43
        .Pattern = xlSolid
    End With
    Range("F19").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("F5").Select
    Selection.Interior.ColorIndex = 8
    Range("F6:G6").Select
    Selection.Interior.ColorIndex = 8
    Range("D9").Select
    Selection.Interior.ColorIndex = 8
    Range("D14").Select
    Selection.Interior.ColorIndex = 8
    Range("D20").Select
    Selection.Interior.ColorIndex = 8
    Range("D23").Select
    Selection.Interior.ColorIndex = 8
    Range("D32:D35,E32,F32,D28,D27,D22,D21,D16,D15,D8").Select
    Range("D8").Activate
    ActiveWindow.SmallScroll Down:=-9
    Selection.Interior.ColorIndex = xlNone
    Range("F15").Select
    ActiveWindow.SmallScroll Down:=-15
           Else
     MsgBox "Projectgegevens worden niet geprint"
      'End If
            Cells.Select
            ActiveSheet.Shapes("Picture 4").Select
            Selection.ShapeRange.IncrementLeft -0.75
            Selection.ShapeRange.IncrementTop 0.75
    Range("A1:H37").Select
    Range("H1").Activate
    Selection.Interior.ColorIndex = xlNone
    With Selection.Interior
        .ColorIndex = 43
        .Pattern = xlSolid
    End With
    Range("F19").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("F5").Select
    Selection.Interior.ColorIndex = 8
    Range("F6:G6").Select
    Selection.Interior.ColorIndex = 8
    Range("D9").Select
    Selection.Interior.ColorIndex = 8
    Range("D14").Select
    Selection.Interior.ColorIndex = 8
    Range("D20").Select
    Selection.Interior.ColorIndex = 8
    Range("D23").Select
    Selection.Interior.ColorIndex = 8
    Range("D32:D35,E32,F32,D28,D27,D22,D21,D16,D15,D8").Select
    Range("D8").Activate
    ActiveWindow.SmallScroll Down:=-9
    Selection.Interior.ColorIndex = xlNone
    Range("F15").Select
    ActiveWindow.SmallScroll Down:=-15
   End If
   End Sub

 

[HSV]

foutmelding is: subscript valt buiten het bereik,

maar in blad1 staat de cel met z132 met een waarde

grt CvO

En hier staat:

strTitle = "CvO 2013" & "__€__" & Worksheets[COLOR="#FF0000"]("Blad6")[/COLOR].Range("Z$132")

'Subscript valt buiten bereik' zegt iets over als iets niet aanwezig is.
Heb je wel een "Blad6" ?

 

[DCTALK]

En hier staat:

['Subscript valt buiten bereik' zegt iets over als iets niet aanwezig is.
Heb je wel een "Blad6" ?

Beste heren,

inderdaad het is wel handig om een blad6 te hebben, blad6 heb ik wel, maar de naam is anders. dat was dus wat niet binnen het bereik viel.

thksss voor de hulp.

gr CvO


ps @Harry, blad1 en blad6 had ik verkeerd, moet allebei blad6 zijn.
in VBA staan de bladen, en er achter staat hoe je het blad genoemd hebt dus ik pakte het eerst ipv het geen wat tussen haakjes staat (de naam van het blad)

 

[edmoor]

Goed opgemerkt Harry :thumb: