Sheet teilweise geschützt-Makro läuft nicht
05.06.2008 09:42:51
Lars
ich habe folgendes Problem: Bei Eingabe von bestimmten Buchstaben soll ein Makro diese überprüfen und ggf. ändern. Das funktioniert auch! Wenn ich allerdings das Blatt schütze und nur die Zellen ungeschützt lasse, die durch das Makro angesprochen werden, dann funktioniert das Makro nicht. Ich kann zwar in die Zellen schreiben, dann kommt aber "Run-time error '1004' Unable to set the Name property of the font class".
Über rechte Maustaste "Format Cells-Protection" habe ich bei "Protect Sheet" bei einigen Zellen den Haken rausgenommen.
Mit dem Schutz habe ich das so gelöst: "Format Cells-Protection-Protect Sheet"
Hier mein Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range, zelle As Range
Set Bereich = Range("B4:B400, J4:M400")
For Each zelle In Target
If Not Intersect(Bereich, zelle) Is Nothing Then ersetze zelle
Next zelle
End Sub
Sub ersetze(x As Range)
x.Font.Name = "Arial"
x.Font.Size = 10
Select Case CStr(x.Value)
Case "y": x = "a"
If x = "a" Then
x.Font.Name = "Webdings"
x.Font.Size = 20
End If
Case "Y": x = "a"
If x = "a" Then
x.Font.Name = "Webdings"
x.Font.Size = 20
End If
Case "n": x = "N"
If x = "N" Then
x.Font.Name = "Arial"
x.Font.Size = 10
End If
Case "N": x = "N"
If x = "N" Then
x.Font.Name = "Arial"
x.Font.Size = 10
End If
End Select
End Sub
Danke schonmal im vorraus.