Code vereinfachen
17.09.2015 15:00:16
Luca
ich habe einen Code für einen Chart geschrieben, in welchem er in Abhängigkeit davon ob in einer Zelle ein Wert steht oder nicht, eine betreffende Spalte auf einem anderen Blatt aus- bzw. eingeblendet wird. Jedoch weiss ich nicht wie ich dies vereinfachen soll, da ich nicht weiss, ob man "offset" auch für Spalten bzw. wie machen soll. Hier der Codeschnipsel
If Sheets("Inputs").Range("E8") = NV Then
Sheets("Berechnungen").Columns("B:B").Hidden = True
Else
Sheets("Berechnungen").Columns("B:B").Hidden = False
End If
If Sheets("Inputs").Range("E9") = NV Then
Sheets("Berechnungen").Columns("C:C").Hidden = True
Else
Sheets("Berechnungen").Columns("C:C").Hidden = False
End If
If Sheets("Inputs").Range("E10") = NV Then
Sheets("Berechnungen").Columns("D:D").Hidden = True
Else
Sheets("Berechnungen").Columns("D:D").Hidden = False
End If
If Sheets("Inputs").Range("E11") = NV Then
Sheets("Berechnungen").Columns("E:E").Hidden = True
Else
Sheets("Berechnungen").Columns("E:E").Hidden = False
End If
If Sheets("Inputs").Range("E12") = NV Then
Sheets("Berechnungen").Columns("F:F").Hidden = True
Else
Sheets("Berechnungen").Columns("F:F").Hidden = False
End If
If Sheets("Inputs").Range("E13") = NV Then
Sheets("Berechnungen").Columns("G:G").Hidden = True
Else
Sheets("Berechnungen").Columns("G:G").Hidden = False
End If
If Sheets("Inputs").Range("E14") = NV Then
Sheets("Berechnungen").Columns("H:H").Hidden = True
Else
Sheets("Berechnungen").Columns("H:H").Hidden = False
End If
If Sheets("Inputs").Range("E15") = NV Then
Sheets("Berechnungen").Columns("I:I").Hidden = True
Else
Sheets("Berechnungen").Columns("I:I").Hidden = False
End If
If Sheets("Inputs").Range("E16") = NV Then
Sheets("Berechnungen").Columns("J:J").Hidden = True
Else
Sheets("Berechnungen").Columns("J:J").Hidden = False
End If
If Sheets("Inputs").Range("E17") = NV Then
Sheets("Berechnungen").Columns("K:K").Hidden = True
Else
Sheets("Berechnungen").Columns("K:K").Hidden = False
End If
If Sheets("Inputs").Range("E18") = NV Then
Sheets("Berechnungen").Columns("L:L").Hidden = True
Else
Sheets("Berechnungen").Columns("L:L").Hidden = False
End If
Danke im Voraus :)