ich habe ein Problem bei dem ich Eure Hilfe brauche.
Ich habe mir eine Schleife gebaut bei der ich die Eigenschaften von Zellen verändere, dies funktioniert auch größtenteil, nur bei den verbundenen Zellen erscheint ein Fehler.
Wie bekomme ich auch die verbundenen Zellen angepaßt?
Hier mein Code:
'Zellen abfragen
For Each wkb In Workbooks
If wkb.Name "TF1.xls" Then
For Each wks In wkb.Worksheets
If wks.Name "Leer" Then
wks.Unprotect (PSWDTP)
'Schutz setzen
With wks.Cells
.Locked = True
.FormulaHidden = False
End With
'schutz bei gelben zellen aufheben
For i = 1 To 6000
For j = 1 To 210
If wkb.Sheets(wks.Name).Cells(i, j).Interior.ColorIndex = 6 Then
wkb.Sheets(wks.Name).Cells(i, j).Locked = False
zaehler = zaehler + 1
End If
Next j
Next i
wks.Protect Password:=PSWDTP, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
End If
Next wks
End If
Next wkb
Danke Euch schon vielmals
Steffen Schmerler