Syntax

ich möchte die Inhalte einer Range + einer separaten Zelle per Array in ein anderes Tabellenblatt schreiben.
Bei einer zusammenhängenden Range klappt's prima. Sobald ich aber im Code statt [D2:G2] - [D2:F2] + Zelle M2 einsetze, funktioniert das Makro nicht mehr. Sehr wahrscheinlich liegt's an der Syntax. Mit Try and Error habe ich eigentlich alles durchdekliniert, jedoch ohne Erfolg. Vielleicht hat jemand einen Tipp?

Vielen Dank im voraus!

Rafael

Private Sub Worksheet_Calculate()
Dim KaSeBlock(0 To 3) As Variant
Application.ScreenUpdating = False

...

If Tabelle2.Cells(2, 14) = 0 Then
KaSeBlock(3) = Tabelle2.[D2:F2] And [M2]
Tabelle1.[D2:G2] = KaSeBlock(3)
End If

...