Versehentliche Zellsperrng

21/11/2009 - 11:03 von Ralf Brinkmann | Report spam
Guten Morgen!

In einem Excel-2003-Tabellen-Kalenderblatt möchte ich bei Eintrag eines
Namens, dass oben in A23 bis A30 nachgeguckt wird, welche Farbe
(Schriftfarbe, Hintergrund, Formatierung) eine Zelle hat und diese unten
übernommen wird. Wenn ich den Eintrag wieder lösche, soll die Zelle
wieder im Ursprungszustand (also leer und ohne irgendeine Formatierung)
sein. Das klappt auch soweit ganz gut, nur ist danach die Zelle aus
Versehen gesperrt. Wo liegt der Fehler?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Set Target = Intersect(Range("D33:E398,J33:K398,P33:Q398,V33:W398"),
Target)
If Not Target Is Nothing Then
Dim rngName As Range
On Error Resume Next
Set rngName = Range("A23:A30").Find(Target.Value)
On Error GoTo 0
On Error GoTo ErrorHandler
Application.EnableEvents = False
If Not rngName Is Nothing Then
rngName.Copy Target
Else
Target.ClearFormats
End If
End If
ErrorHandler:
Application.EnableEvents = True
End Sub


Gruß, Ralf
Windows XP Home SP3
Opera 10.10-1880
 

Lesen sie die antworten

#1 Ralf Brinkmann
21/11/2009 - 14:54 | Warnen spam
Mir ist noch was aufgefallen:

*Ralf Brinkmann*:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Set Target = Intersect(Range("D33:E398,J33:K398,P33:Q398,V33:W398"),
Target)
If Not Target Is Nothing Then
Dim rngName As Range
On Error Resume Next
Set rngName = Range("A23:A30").Find(Target.Value)
On Error GoTo 0
On Error GoTo ErrorHandler
Application.EnableEvents = False
If Not rngName Is Nothing Then
rngName.Copy Target
Else
Target.ClearFormats
End If
End If
ErrorHandler:
Application.EnableEvents = True
End Sub



Wenn ich unten absichtlich oder unabsichtlich einen Namen eintippe, der
oben nicht gefunden wird, dann wird die Zelle auch sofort gesperrt. Das
soll natürlich nicht sein, die Zelle soll editierbar und löschbar
bleiben und keine besondere Formatierung annehmen.

Gruß, Ralf
Windows XP Home SP3
Opera 10.10-1892

Ähnliche fragen