Hallo,
entwerfe gerade einen Code und habe folgendes Problem:
Ich möchte, dass sich die Zellen in Spalten E und F der aktiven Zeile verbinden, wenn in derselben Zeile in Spalte D der Wert "Einnahme" oder "Ausgabe" ausgewählt wird. Ansonsten sollen die Zellen getrennt beschreibbar bleiben.
Folgenden Code habe ich mir ausgedacht, um die aktive Zeile anzusprechen...
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveSheet
Set rngSource = .Range(Cells(ActiveCell.Row, 4))
If Not Application.Intersect(rngSource, Target) Is Nothing Then
If rngSource.Value = "Ausgabe" Then
.Range(Cells(ActiveCell.Row, 5 And 6)).merge
Else
.Range(Cells(ActiveCell.Row, 5 And 6)).unmerge
End If
End If
End With
End Sub
...der funktioniert aber nicht.
Dieser hier funtkioniert, allerdings habe ich immer nur eine Zeile und würde den Code für 1000 Zeilen 1000mal eingeben müssen:
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("E1:F1").merge
Else
.Range("E1:F1").unmerge
End If
End If
End With
End Sub
Das Problem, die Einnahmen damit zu kombinieren kann ich auch nicht lösen. Ich weiß nicht wo ich die 2. Bedingung verschachteln soll.
Vielen Dank.
|