Warum kann ich nicht Worksheet_Change
17.04.2008 10:38:32
Walter
ich habe folgendes
Private Sub Worksheet_Change(ByVal Target As Range)
Makro, klappt alles.
Nun möchte ich auch dies bei der Eingabe in Spalte ebenfalls aktivieren und habe dies
nach unten drangesetzt, leider ohne Erfolg.
Ein 2. Makro mit
Private Sub Worksheet_Change(ByVal Target As Range)
geht auch nicht, da Fehlermeldung.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Column = 12 Then Exit Sub
If Cells(Target.Row, 12) "" Then
Range(Cells(Target.Row, 1), (Cells(Target.Row, 10))).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Cells(Target.Row, 12).Select
Else
ActiveSheet.Unprotect (getStrPasswort)
Range(Cells(Target.Row, 1), (Cells(Target.Row, 10))).Select
Selection.Interior.ColorIndex = xlNone
Cells(Target.Row, 12).Select
End If
If Not Target.Column = 13 Then Exit Sub
If Cells(Target.Row, 13) "" Then
Range(Cells(Target.Row, 1), (Cells(Target.Row, 10))).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Cells(Target.Row, 12).Select
Else
Range(Cells(Target.Row, 1), (Cells(Target.Row, 10))).Select
Selection.Interior.ColorIndex = xlNone
Cells(Target.Row, 12).Select
End If
End Sub
mfg Walter mb