label

[Bolle g]

In een sheet1 heb ik 15 labels staan waarop geg komen uit sheet2.
Om geen 15 maal hetzelde te moeten zetten heb ik volgende code geschreven :
Dim i As Integer
Dim Plaat(20) As Variant
Dim Aantal(20) As Variant
Dim geg As Variant

Windows("Stock.xlsb").Activate
geg = A1
i = 1

Do Until Sheets(geg).Range("A" & i).Value = ""
Windows("Stock.xlsb").Activate

If Sheets(geg).Cells(i, 1) <> "" Then

Plaat(i) = Sheets(geg).Cells(i, 1).Value
Aantal(i) = Sheets(geg).Cells(i, 2).Value
Windows("Magazijn.xls").Activate
Sheets("Blad1").Select
Blad1("Label" & i - 1).Visible = True
Blad1("Label" & i + 15).Visible = True
Blad1("CommandButton" & i + 30).Visible = True
Blad1("Label" & i - 1).Caption = Plaat(i)
Blad1("Label" & i + 14).Caption = Aantal(i)

Else
End If

Loop
Ik wil enkel de labels zien als er een tekst voorhanden is, vandaar "Blad1("Label" & i - 1).Visible = True". Wanneer ik "Blad1.Label1.Visible = True" gebruik werkt het wel.
De Macro staat onder Blad1, daar de labels op Blad1 staan.
Wie kan mij helpen.

bolle g

 

[snb]

En nu nog de VBA code tussen code-tags (#) zetten.
Zoals

Sub eenvoud()
  sq=Sheets([A1]).cells(1,1).currentregion
  For j=1 to ubound(sq)
    With OleObjects("Label" & j )
     .Visible = True
     .caption=sq(j,1)
    End with
    With OleObjects("Label" & j +ubound(sq,2))
     .Visible = True
     .caption=sq(j,1)
     End with
     OleObjects("CommandButton" & j ).Visible = True
    OleObjects("CommandButton" & j+ubound(sq,2)).Visible = True
  Next
End Sub

 

[Bolle g]

Dat is blijkbaar de code, dank ervoor.
Misschien ligt het aan mij, maar toch loopt de code vast op ".caption=sq(j,1)" en als error krijg ik "Deze methode of eigenschap wordt niet ondersteund door dit object"
Ik heb al "sq(j,1)" vervangen door test, maar het blijft hetzelfde.
Kan ik nog even beroep doen op je hulp ?

bolle g

 

[snb]

Zonder voorbeeldbestand valt daar verder niets zinnigs over te zeggen.

 

[Bolle g]

Hier dan een voorbeeld bestand.
Om het progr te starten druk eerst op A en dan op 1.

Het progt reset zichzelkf bij opstart.

bolle g

 

[Bolle g]

Heb oplossing gevonden, .caption vervangen door .object.caption en het werkt perfect.
Misschien kan er nog geschaaft worden aan mijn code, alle verbeteringen zijn welkom, ik zit nog in de leerfase...

bolle g

 

[snb]

Prima !