ich möchte erreichen, dass bei Eingabe des Buchstabens "U" im Zellbereich "E8:E38" der Zeitwert "1:41" im entsprechenden Zellereich "I8:I38" eingetragen wird. Wo müsste das Makro eingetragen werden (im Tabellenblatt oder in einem Modul)?
Gruß
mike49
Private Sub Worksheet_Change(ByVal Target As Range)
Dim razzelle As Range, rabenreich As Range
Set rabenreich = Intersect(Target, Range("E8:E38"))
If Not rabenreich Is Nothing Then
If UCase$(Target.Value) = "U" Then
Target.Offset(0, 4).Value = Format$(TimeSerial(1, 41, 0), "h:mm")
End If
End If
End Sub
Gruß Gerd