Waarom wie hij niet wat ik wil???????

[Masjimo]

Dit wil wel:
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 90, 430, 24, 35).Select

En dit wil niet:
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 90, Sheets("Instellingen").Range("AN" & (65 + i)), 24, 35).Select

De range en de naam zijn gecheckl, die kloppen!

Wie weet raad?

Alvast bedankt:thumb:

 

[HSV]

Werkt perfect bij mij.

Welke waarde heeft Dim i ??
Ik heb i = 1 gedaan, en dan in cel $AN$66 het getal 430 gezet.

 

[Masjimo]

Deels opgelost!

Ik heb hem nog eens in stukjes gesneden en toen weer aangevuld en nu werkt die dus wel..................

Nu geeft de formule de eerste waarde uit de reeks niet.....

In ieder geval bedankt voor je moeite.

Werkt perfect bij mij.

Welke waarde heeft Dim i ??
Ik heb i = 1 gedaan, en dan in cel $AN$66 het getal 430 gezet.

 

[Masjimo]

Routine slaat eerste waarde over.....

De onderstaande routine loopt op zich wel, alleen de eerste waarde wordt overgeslagen;

Sheets("Planning").Select
For i = 1 To Sheets("Instellingen").Range("AN65")
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, Sheets("Instellingen").Range("AQ66"), Sheets("Instellingen").Range("AN" & (65 + i)), Sheets("Instellingen").Range("AU" & (65 + i)), Sheets("Instellingen").Range("AV" & (65 + i))).Select
    Selection.ShapeRange.TextFrame2.TextRange.Characters.Text = Sheets("Instellingen").Range("AZ" & (65 + i))
    
    With Selection.ShapeRange.TextFrame2.TextRange.Characters(1, 0).Font
        Selection.ShapeRange.TextFrame2.TextRange.Font.Size = Sheets("Instellingen").Range("H8")
        Selection.ShapeRange.TextFrame2.Orientation = msoTextOrientationUpward
        With Selection.ShapeRange.TextFrame2
            .VerticalAnchor = msoAnchorMiddle
            .HorizontalAnchor = msoAnchorCenter
        End With
        With Selection.ShapeRange.TextFrame2.TextRange.Font
            .NameComplexScript = "Tahoma"
            .NameFarEast = "Tahoma"
            .Name = "Tahoma"
        End With
    End With
    Selection.ShapeRange.TextFrame2.Orientation = msoTextOrientationUpward
    Selection.ShapeRange.ZOrder msoSendToBack
Next i

Wie kan mij vertellen waar dat aan ligt??

Als ik fixed waardes invoer voor de diverse variabelen >Range("XX" & (65 + i))< dan pakt hij hem wel op; Dus XX66 bv.

Hij slaat dus XX66 over, maar pakt XX67, XX68, etc wel!!!!????

 

[Guus2005]

je code is niet heel erg duidelijk. Zet de code tags eromheen en zorg dat je inspringt als dat nodig is.

je range loopt van

For i = 1 To Sheets("Instellingen").Range("AN65")

Het is mij niet duidelijk wat de Range AN65 inhoud maar je zou kunnen overwegen om 0 ipv 1 te gebruiken.

Dus:

For i = 0 To Sheets("Instellingen").Range("AN65")

HTH

 

[huijb]

Vragen samengevoegd, gaarne bij een topic blijven.