Option
Explicit
Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
On
Error
GoTo
Sub_Exit
If
Target.Address =
"$B$4"
Then
Application.EnableEvents =
False
With
Worksheets(
"Bibliothek"
)
If
Cells(4, 2).Value = .Cells(4, 2)
Then
Range(
"D4:R4"
).Value = .Range(
"D4:R4"
).Value
Else
Range(
"D4:R4"
).ClearContents
End
If
End
With
Sub_Exit:
Application.EnableEvents =
True
End
If
If
Target.Address =
"$B$4"
Then
Application.EnableEvents =
False
With
Worksheets(
"Bibliothek"
)
If
Cells(4, 2).Value = .Cells(5, 2)
Then
Range(
"D4:R4"
).Value = .Range(
"D5:R5"
).Value
Else
Range(
"D4:R4"
).ClearContents
End
If
End
With
End
If
End
Sub