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