Fehler im Makro
12.09.2005 10:24:47
Urban
ich brauche Hilfe:
habe ein Makro geschrieben, die beim Öffnen Zellen färben soll und dann die graue Zellen sperren und weisse nicht sperren - es läuft bis "rng.Locked = True" dort zeigt es Fehler (9 Zeile vom Ende) - ich kann aber nicht finden
Danke im voraus - Joachim
Private Sub Workbook_Open()
Dim i As Integer
Dim j As Integer
i = 5
j = 9
For j1a = 1 To 3300
If Cells(i, j) <> "" Then
Cells(i, j - 4).Interior.ColorIndex = 15
End If
If Cells(i, j) <> "" Then
Cells(i, j - 3).Interior.ColorIndex = 15
End If
If Cells(i, j) <> "" Then
Cells(i, j - 2).Interior.ColorIndex = 15
End If
If Cells(i, j) <> "" Then
Cells(i, j - 1).Interior.ColorIndex = 15
End If
If Cells(i, j) = "" Then
Cells(i, j - 4).Interior.ColorIndex = 0
End If
If Cells(i, j) = "" Then
Cells(i, j - 3).Interior.ColorIndex = 0
End If
If Cells(i, j) = "" Then
Cells(i, j - 2).Interior.ColorIndex = 0
End If
If Cells(i, j) = "" Then
Cells(i, j - 1).Interior.ColorIndex = 0
End If
i = i + 1
Next j1a
i = 1
j = 1
Dim rng As Range
Cells.Locked = False
For Each rng In ActiveSheet.UsedRange.Cells
If rng.Interior.ColorIndex = 15 Then
rng.Locked = True
End If
Next rng
ActiveSheet.Protect
With Application.CommandBars("Worksheet Menu Bar") _
.Controls("Extras").Controls("Schutz")
.Enabled = Not .Enabled
End With
End Sub
Anzeige