AW: Felder löschen und einfärben
14.11.2008 14:58:55
fcs
Hallo Andi,
das folgende Makro, im VBA-Editor unter der Tabelle eingefügt führt bei der Eingabe entsprechende Formatierungen durch.
Damit der Schutz funktioniert muss der Blattschutz vom Makro gesetzt werden.
Formatiere vor dem Einfügen des Makros im Tabellenblatt alle Zellen, in die Werte eingetragen werden sollen, so unter Zellformat-Schutz, dass die Zellen beim Einschalten des Blattscchutzes nicht gesperrt werden.
Gruß
Franz
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Const Zeile1 As Long = 3 'Zeile ab der geprüft/formatiert wird
Const Spalte1 As Long = 1
Const Spalte21 As Long = 3 '1. Spalte des Spaltenbereichs
Const Spalte2L As Long = 14 'letzte Spalte des Spaltenbereichs
If Target.Row >= Zeile1 Then
Select Case Target.Column
Case Spalte1
If Not IsEmpty(Target) Then
Me.Unprotect
With Range(Cells(Target.Row, Spalte21), Cells(Target.Row, Spalte2L))
.Interior.ColorIndex = 3 'Farbe rot
.Locked = True
End With
Me.Protect
End If
Case Spalte21 To Spalte2L
If Not IsEmpty(Target) Then
Me.Unprotect
With Cells(Target.Row, Spalte1)
.Interior.ColorIndex = 3 'Farbe rot
.Locked = True
End With
Me.Protect
End If
Case Else
'do nothing
End Select
End If
End Sub