Ich möchte mit VBA Zellen verbinden. Dies können aber je nach Situation verschiedene Zellen sein.
z.B.:
1) wenn bedingung 1 erfüllt, dann D1-H1
2) wenn bedingung 2 erfüllt, dann F1-M1
3) usw.
Wie kann ich das machen?
Thomas
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Cells(1, 1).Value = "a" Then 'Wenn in A1 der Wert "a" eingetragen ist
ActiveSheet.Range("A2:A4").Merge 'dann Zellen A2 bis A4 verbinden
Else
ActiveSheet.Range("A2:A4").UnMerge 'sonst Zellen A2 bis A4 trennen
End If
End Sub