Hallo alle miteinander,
Ich steh gerade wiedereinmal vor einem Rätsel
For Each Worksheet In Worksheets
If Left(Worksheet.Name, 4) = "Tag_" Then
fund = True
End If
Next
If fund = True Then
Dim myCmd As CommandBarButton
Set myCmd = Application.CommandBars("Standard").FindControl(Tag:=cstrMyButton)
myCmd.Enabled = True
End If
End Sub
dieser Code geht her und sucht nach Sheets mit dem Namen Tag_ anfangend und setzt einen Button auf aktiv.
wie aber bekomme ich ihn dazu nicht mit dem Klartextnamen Tag_1 sonder mit dem "Balttnamen" ( Eigenschaften(Name) ) zu vergleichen.
Dank im Vorraus
Dirk