Private
Sub
Workbook_SheetChange(
ByVal
Sh
As
Object
,
ByVal
Target
As
Range)
With
ActiveSheet
Set
rngsource = .Range(
"D1"
)
If
Not
Application.Intersect(rngsource, Target)
Is
Nothing
Then
If
rngsource.Value =
"Ausgabe"
Then
.Range(rngsource.Offset(0, 1), rngsource.Offset(0, 2)).Merge
Else
If
rngsource.Value =
"Einnahme"
Then
.Range(rngsource.Offset(0, 1), rngsource.Offset(0, 2)).Merge
Else
.Range(rngsource.Offset(0, 1), rngsource.Offset(0, 2)).UnMerge
End
If
End
If
End
If
End
With
End
Sub