Hi,
zunächst mal vielen Dank.
Ich habe nochmal ein bisschen mit Offset am Code herumgedoktort. Nun habe ich auch zumindest mal ohne Fehlermeldung die Verschachtelung der If-Funktion hinbekommen, also bin ich dem Ergebnis schon nahe.
Allerdings kann ich immer noch nicht die Zelle der Spalte D in der aktiven Zeile ansprechen.
Zumindest funktioniert die Zeile 3 nicht mit Set rngsource = .Range(Cells(ActiveCell.Row, 4))
Bis auf das Problem sollte alles klappen. Ich bitte daher nochmals um eine kleine Hilfestellung.
Mein derzeitiger Code mit Zelle D1 anstatt der Zelle in Spalte 4 der aktiven Zeile:
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
|