Änderung in mehreren Tabellen
Sven
hab mal wieder ne Frage. Ich möchte auf mehreren Blättern ein paar
Änderungen vornehmen. u.a. Zellschutz aktivieren, Schriftfarbe grau setzen
und bedingte Formatierungen entfernen. Etwas code habe ich euch schon beigefügt.
ich komm nur nicht auf die endgültige Lösung, dafür reicht
mein VBA einfach nicht.
Danke
Sub Makro1()
Dim iBlatt As Integer
For iBlatt = 2 To Worksheets.Count
Worksheets(iBlatt).Unprotect password:="code"
Worksheets(iBlatt).Range("K60:L60").Select 'Resturlaub 2004
Selection.Font.ColorIndex = 15
Selection.Locked = True
Selection.FormulaHidden = False
Range("AF60:AH60").Select 'Ab/Aufbau Überstunden
Selection.Font.ColorIndex = 15
Range("R60:S60").Select ' Resturlaub Vorjahr
Selection.Font.ColorIndex = 0
Range("Y60:Z60").Select ' Rest Überstunden Vorjahr
Selection.Font.ColorIndex = 0
Range( _
"D72:AH72,G76:AJ76,I80:AM80,E84:AH84,G88:AK88,J92:AN92,F96:AI96,H100:AL100,D104:AG104,F108:AJ108,I120:AM120,E124:AF124,E128:AI128,H132:AK132,J136:AN136,F140:AI140,H144:AL144,D148:AH148,G152:AJ152,I156:AM156,E160:AH160,G164:AK164" _
).Select
Union(Range( _
"F216:AI216,H220:AL220,D72:AH72,G76:AJ76,I80:AM80,E84:AH84,G88:AK88,J92:AN92,F96:AI96,H100:AL100,D104:AG104,F108:AJ108,I120:AM120,E124:AF124,E128:AI128,H132:AK132,J136:AN136,F140:AI140,H144:AL144,D148:AH148,G152:AJ152,I156:AM156,E160:AH160,G164:AK164" _
), Range("H208:AK208,J212:AN212")).Select
Selection.FormatConditions.Delete
Worksheets(iBlatt).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:="code"
Next iBlatt
End Sub
Anzeige