Jag öppnar ett antal filer och loopar igenom flikarna. Om fliken inte är dold och om den har en textruta som heter "Uppdaterad" så ska jag fylla rutan med lite text.

Problemet:
Jag förstår inte hur jag ska kunna kolla om textrutan finns eller inte...

Min kod just nu: (lite är lånat hos xl-Dennis)

<code>
For Each wsBlad In ActiveWorkbook.Worksheets
'För varje blad i filen
wsBlad.Activate
If wsBlad.Visible = True Then
'Om den inte är dold... Skriv nått i textrutan
ActiveSheet.Shapes("Uppdaterad").Select
'Lägg in veckonummer
Selection.Characters.Text = "Uppdaterad t.o.m " & veNr
End If
Next
</code>
Detta fungerar ju bra så länge som fliken har en textruta. Har testat lite med "If exists" men inte fått till det.

Nån som vet ett sätt?

Tillägg:
Kom just på att jag kan köra med "On Error resume next", kanske?
Eller är det bara dumt?

Mvh Charlotte

Charlotte,

Kul att du besöker min webbplats :-)

Nedanstående kod löser ditt problem och notera att koden inte aktiverar något objekt överhuvudtaget.

<code>
Sub test()
Dim shObject As Shape
Dim wsBlad As Worksheet

For Each wsBlad In ActiveWorkbook.Worksheets
If wsBlad.Visible = True Then
For Each shObject In wsBlad.Shapes
If shObject.Name = "Uppdaterad" Then
wsBlad.OLEObjects(shObject.Name).Object.Value = "Uppdaterad t o m" & Venr
End If
Next shObject
End If
Next wsBlad

End Sub

</code>

Mvh
XL-Dennis

Tack för hjälpen!
Ska genast testa, även om jag är ute på djupt vatten när det gäller Objects. Sånt ligger lååångt utan för mina minimala kunskaper ;-)

Jag lär besöka din site fler gånger!

/Charlotte