2 x Private Sub Worksheet_Change(ByVal Target As R

Private Sub Worksheet_Change(ByVal Target As Range)
Wie kann ich es zusammen bauen?
vorab vieln Dank für Eure Hilfe
LG Werner
siehe hier

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("H1")  "" Then
If Target(1).Address = "$H$1" Or Target(1).Address = "$O$1" Then
Call FeiertageErstellen
End If
End If
End Sub



'und

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eingabebereich As String
Dim Eingabe, Zeitwert
On Error GoTo ChgEvent_Error
Eingabebereich = "B8:I38"
If Not Application.Intersect _
(Target, ActiveSheet.Range(Eingabebereich)) _
Is Nothing _
And _
IsNumeric(Target.Value) _
And _
Target.Cells.Count = 1 Then
Application.EnableEvents = False
Eingabe = Format(Target.Value, "0000")
Zeitwert = _
Left(Format(Eingabe, "0000"), Len(Eingabe) - 2) & _
":" & _
Right(Format(Eingabe, "0000"), 2)
Target.Value = Zeitwert
End If