Bitte um Überprüfung von Makro
16.11.2005 07:50:04
Makro
Ich möchte gerne mit diesem Makro
Wenn in D7:D37 zb."Schicht 1" steht das in F7:F37 eine 8 eingefügt wird.
Funkt.nicht mit Eintragungen in F7:F37
Könnte mir bitte jemand helfen.
Gruss Heinz
'-------Stundeneintragen bei Schicht ---------
Sub Worksheet_Change(ByVal Target As Range)
Dim rngSchnitt As Range
Set rngSchnitt = Application.Union(Range(Target.Address), Range("D7:D37"))
If rngSchnitt.Address = Range("D7:D37").Address And _
(Target.Value = "Schicht 1" Or Target.Value = "Schicht 2" Or Target.Value = "Schicht 3") Then
Target.Offset(0, 2).Value = 8
End If
End Sub