AW: Erweiterung?
15.02.2011 20:14:25
Mirko
Hallo Erich,
anbei die komplette Makro, wie sie momentan auch perfekt funktioniert. Du hast Recht, in der anfänglichen Formel war bislang die Rede von AH17, AH18, AH19. Ich habe schon die anderen Spalten schon in Gedanken gehabt, deshlab die AH28. Sorry wenn ich zur Verwirrung geführt habe. Hinsichtlich der auskommentierten Hinweisen ' AH17, AH18, AH19, hast Du natürlich recht, dass damit die AH´s gemeint sind, aber woher weiß das System das, wenn diese auskommentiert sind? Zumindest dachte ich, dass ein auskommentierter Hinweis, nur für mich als User gedacht ist.
Funktioniert bei Dir der ursprüngliche Code (der vereinfachte)? Bei mir waren die Zellen weiterhin offen.
Vielen vielen Dank für Deine Unterstützung!
Sub Grunddaten_Neutralwerte2()
Dim Bereich As Range
Application.ScreenUpdating = False
Blattschutz_aus
Sheets("Grunddaten_Neutralwerte").Visible = True
Sheets("Grunddaten_Neutralwerte").Select
Sheets("Anleitung").Visible = False
Sheets("Navigation").Visible = False
Sheets("Grunddaten_Vermoegensklassen").Visible = False
Sheets("Grunddaten_Grenzwerte").Visible = False
Sheets("Simulation").Visible = False
ActiveWindow.Zoom = 85
Set Bereich = Range("H19,H21,H23,H25,H27")
If Range("AH17") = "2" Then
Range("H19:H27").Select
Selection.Locked = True
Selection.FormulaHidden = False
Else
Bereich.Locked = False
Bereich.FormulaHidden = False
End If
Set Bereich = Range("J19,J21,J23,J25,J27")
If Range("AH18") = "2" Then
Range("J19:J27").Select
Selection.Locked = True
Selection.FormulaHidden = False
Else
Bereich.Locked = False
Bereich.FormulaHidden = False
End If
Set Bereich = Range("L19,L21,L23,L25,L27")
If Range("AH19") = "2" Then
Range("L19:L27").Select
Selection.Locked = True
Selection.FormulaHidden = False
Else
Bereich.Locked = False
Bereich.FormulaHidden = False
End If
Set Bereich = Range("N19,N21,N23,N25,N27")
If Range("AH20") = "2" Then
Range("N19:N27").Select
Selection.Locked = True
Selection.FormulaHidden = False
Else
Bereich.Locked = False
Bereich.FormulaHidden = False
End If
Set Bereich = Range("P19,P21,P23,P25,P27")
If Range("AH21") = "2" Then
Range("P19:P27").Select
Selection.Locked = True
Selection.FormulaHidden = False
Else
Bereich.Locked = False
Bereich.FormulaHidden = False
End If
Set Bereich = Range("R19,R21,R23,R25,R27")
If Range("AH22") = "2" Then
Range("R19:R27").Select
Selection.Locked = True
Selection.FormulaHidden = False
Else
Bereich.Locked = False
Bereich.FormulaHidden = False
End If
Set Bereich = Range("T19,T21,T23,T25,T27")
If Range("AH23") = "2" Then
Range("T19:T27").Select
Selection.Locked = True
Selection.FormulaHidden = False
Else
Bereich.Locked = False
Bereich.FormulaHidden = False
End If
Set Bereich = Range("V19,V21,V23,V25,V27")
If Range("AH24") = "2" Then
Range("V19:V27").Select
Selection.Locked = True
Selection.FormulaHidden = False
Else
Bereich.Locked = False
Bereich.FormulaHidden = False
End If
Set Bereich = Range("X19,X21,X23,X25,X27")
If Range("AH25") = "2" Then
Range("X19:X27").Select
Selection.Locked = True
Selection.FormulaHidden = False
Else
Bereich.Locked = False
Bereich.FormulaHidden = False
End If
Set Bereich = Range("Z19,Z21,Z23,Z25,Z27")
If Range("AH26") = "2" Then
Range("Z19:Z27").Select
Selection.Locked = True
Selection.FormulaHidden = False
Else
Bereich.Locked = False
Bereich.FormulaHidden = False
End If
Set Bereich = Range("AB19,AB21,AB23,AB25,AB27")
If Range("AH27") = "2" Then
Range("AB19:AB27").Select
Selection.Locked = True
Selection.FormulaHidden = False
Else
Bereich.Locked = False
Bereich.FormulaHidden = False
End If
Set Bereich = Range("AD19,AD21,AD23,AD25,AD27")
If Range("AH28") = "2" Then
Range("AD19:AD27").Select
Selection.Locked = True
Selection.FormulaHidden = False
Else
Bereich.Locked = False
Bereich.FormulaHidden = False
End If
Blattschutz_ein
Range("A1").Select
End Sub