Zellschutz bei verbundenen Zellen (VBA)



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Zellschutz bei verbundenen Zellen (VBA)
von: Herbert
Geschrieben am: 05.07.2002 - 18:03:28

Hallo Forum,
Mit diesem Makro aktiviere ich auf allen Blättern
in den Zellen wo Eingaben gemacht wurden den Zellschutz.

Das Problem ist aber,daß bei verbundenen Zellen der Zellschutz nicht aktiviert wird.

Gibt es hier eine Möglichkeit das Problem zu beheben.
Danke
Gruß Herbert

Sub Zellschutz_aktivieren()
Application.ScreenUpdating = False
On Error Resume Next
Dim s As Integer
Dim z As Integer
Dim i As Integer

For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Activate
s = 1
z = 1
For s = 35 To 52
For z = 5 To 32
If Cells(z, s).Value <> "" Then
Cells(z, s).Locked = True
End If
Next
Next
Next i
Sheets("1 (1)").Activate
Application.ScreenUpdating = True
End Sub


nach oben   nach unten

Re: Zellschutz bei verbundenen Zellen (VBA)
von: PeterW
Geschrieben am: 05.07.2002 - 19:16:27

Hallo Herbert,

dumme Frage, wofür brauchst Du verbundene Zellen? Eben weil diese verbundenen Zellen Probleme bereiten sollte darauf - wenn irgend möglich - verzichtet werden.
Die Alternative ist in vielen Fällen: Zellen formatieren - Ausrichtung - horizontal - zentriert über Spalten.

Gruß
Peter

nach oben   nach unten

Re: Zellschutz bei verbundenen Zellen (VBA)
von: Herbert H.
Geschrieben am: 06.07.2002 - 12:58:46

Hallo Peter,
Danke für den Tipp,
Manchmal braucht man schon verbundene Zellen.
vielleicht muß man sie direkt ansprechen.
Gruß Herbert

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zellschutz bei verbundenen Zellen (VBA)"