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ß GerdDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen