Tag - Funktion laeuft nicht auf allen Excel 2010
26.06.2013 18:09:38
Martin
ich bitte um eure hilfe. nachdem mit eurer unterstuetzung mein projekt eigentlich abgeschlossen ist, bin ich heute beim installieren in der firma auf ein merkwuerdiges problem gestossen. und zwar kommen meine dropdowns nicht mehr. ich habe unten den code angezeichnet, von wo aus er mir zum error handeler springt. auf meinen beiden laptops hat alles super funktioniert!
hat jemand eine idee, an was es liegen koennte? (wir haben eigens auf den in frage kommenden desktops excel 2010 installiert!)
vielen dank im voraus,
herzliche gruesse,
martin
da laeuft der code noch normal!
''Sortierungsfilter deselektieren
Sheets("SPOC-Contingency Task").Select
Range("A1").Select
ActiveSheet.Range("$A$1:$H$65536").AutoFilter Field:=1
Sheets(strBlatt).Select
Range("A1").Select
ActiveSheet.Range("$A$1:$H$65536").AutoFilter Field:=1
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
Application.ScreenUpdating = True
Call SectorDropdown 'hier springt er, wie gewuenscht zu SectorDropdown
Call SectorDropdown2
ErrorHandler:
On Error GoTo 0
End Sub
Public Sub SectorDropdown2()
Dim sheet As Worksheet
With Application.CommandBars(1)
On Error Resume Next
.FindControl(Tag:="SectorID-Word").Delete
On Error GoTo 0
With .Controls.Add( _
Type:=msoControlPopup, _
before:=.Controls("&?").Index, _
temporary:=True)
.Caption = "&Sector ID-Word"
.Tag = "SectorID-Word"
For Each sheet In Sheets
If UCase(sheet.name) Like "SECTOR ID*" Then
With .Controls.Add(Type:=msoControlButton)
.Caption = sheet.name
.Style = msoButtonCaption
.OnAction = "WordDruck"
.State = msoButtonUp
End With
End If
Next sheet
End With
End With
End Sub
Public Sub SectorDropdown()
Dim sheet As Worksheet
With Application.CommandBars(1)
On Error Resume Next
.FindControl(Tag:="PrintSectorID").Delete
On Error GoTo 0
With .Controls.Add( _
Type:=msoControlPopup, _
before:=.Controls("&?").Index, _
temporary:=True) 'genau hier geht er in den _
error handeler, und nicht mehr zurueck! damit starter er auch nicht SectorDropdown2! Bitte um Hilfe! Danke!
.Caption = "&Print Sector ID"
.Tag = "PrintSectorID"
For Each sheet In Sheets
If UCase(sheet.name) Like "SECTOR ID*" Then
With .Controls.Add(Type:=msoControlButton)
.Caption = sheet.name
.Style = msoButtonCaption
.OnAction = "DruckenSectorID"
.State = msoButtonUp
End With
End If
Next sheet
End With
End With
End Sub/pre>