Hallo Gast7777,
hier einer der Subs. Sie sind vom Prinzip her alle gleich aufgebaut und das Problem ist auch bei allen das Selbe.
///////////////////////////////////////////////////////////////////////////////
Sub X1()
Application.ScreenUpdating = False
Sheets("BOM").Select
Call unprotect
Columns("A:nz").EntireColumn.Hidden = False
Range("g:i,ad:af,aj:am, az:az, bf:bk,br:br,cb:cb,cl:cl,cv:cv,df:df,dp:dp,dz:dz,ej:ej,et:et,fd:fd,fn:fn,fx:fx,gh:gh,gr:gr,hb:hb,hl:hl,hv:hv,if:if,ip:ip, iz:iz, jj:jj, jt:jt, kd:kd,kn:kn, kx:kx, lh:lh, lr:lr, mb:mb, ml:ml, mv:mv").EntireColumn.Hidden = True
Range("bu:bu,ce:ce,co:co,cy:cy,di:di,ds:ds,ec:ec,em:em,ew:ew,fg:fg,fq:fq,ga:ga,gk:gk,gu:gu,he:he,ho:ho,hy:hy,ii:ii,is:is,jc:jc,jm:jm,jw:jw,kg:kg,kq:kq,la:la,lk:lk,lu:lu,me:me,mo:mo,my:my").EntireColumn.Hidden = True
Range("s8:s4328").ClearContents
Range("ad8:ag4328").ClearContents
Range("aj8:aj4328").ClearContents
Range("al8:al4328").ClearContents
Range("am8:am4328").ClearContents
Range("au8:au4328").ClearContents
Range("az8:az4328").ClearContents
Range("c1").Select
Dim sdc As String, sdcCell As Range
sdc = "Special license costs"
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
ActiveSheet.Rows.Hidden = False
Set sdcCell = Columns(1).Find(sdc, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
Rows(sdcCell.Row - 2).EntireRow.Hidden = True
Rows(sdcCell.Row - 1).EntireRow.Hidden = True
Rows(sdcCell.Row + 2).EntireRow.Hidden = True
Rows(sdcCell.Row + 3).EntireRow.Hidden = True
Call protect
Sheets("Overview versions").Select
Rows("1:79").EntireRow.Hidden = False
Rows("7:8").EntireRow.Hidden = True
Rows("14:14").EntireRow.Hidden = True
Rows("16:17").EntireRow.Hidden = True
Rows("21:24").EntireRow.Hidden = True
Rows("33:34").EntireRow.Hidden = True
Rows("40:44").EntireRow.Hidden = True
Rows("47:47").EntireRow.Hidden = True
Rows("71:71").EntireRow.Hidden = True
Rows("74:74").EntireRow.Hidden = True
Sheets("Basicdata").Select
Call Groupcurrency
Rows("52:59").EntireRow.Hidden = False
Rows("83").EntireRow.Hidden = True
Rows("140:142").EntireRow.Hidden = False
Rows("143:178").EntireRow.Hidden = True
Rows("179:187").EntireRow.Hidden = False
Rows("213:214").EntireRow.Hidden = False
'EOH eliminated
Range("D54").ClearContents
Range("D59").ClearContents
Rows("54").EntireRow.Hidden = True
Rows("59").EntireRow.Hidden = True
Range("c183:g212").ClearContents
Range("C8:E8").Select
ActiveWorkbook.Sheets("MC Structure").Visible = xlSheetVisible
ActiveWorkbook.Sheets("MC Trend").Visible = xlSheetVisible
ActiveWorkbook.Sheets("Category Analysis").Visible = xlSheetVisible
Application.ScreenUpdating = True
End Sub
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Das Problem nochmal kurz beschrieben ist eben, dass wenn ich zwischen den Optionen im dropdown Menü wechsle eine Fehlermeldung kommt. Das passiert aber nur für den Fall das Zeilen in dem Bereich auf den zugegriffen werden soll, ausgeblendet sind.
Vielen Dank für die schnelle Antwort und ich hoffe du kannst damit etwas anfangen^^
Liebe Grüße
Larissa
|