Set wkbSenke = ThisWorkbook
Set wkbQuelle = Workbooks.Open(c_sPath & BearbZ & ".xls")
und in Zeile 47: wkbQuelle.Close SaveChanges:=True
Und ich habe ein riesen Problem. Das Ganze würde ja funktionieren, aber die zu kopierenden Bereiche sind bereits mit einem VBA-Code hinterlegt. Es handelt sich um eine Art Bewertung in der zwischen D und H immer nur ein x gesetzt werden darf. Diese x hätte ich jetzt eben gerne kopiert, doch das verträgt sich anscheinend nicht mit dem VBA-Code, weil er mir nun alle Zellen dann mit x auffüllt. Was mach ich denn jetzt?
Der Code eines jeden Tabellenblatts sieht so aus:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
OnChange1 Target, .Row, .Column, .Value
OnChange2 Target, .Row, .Column, .Value
End With
Application.EnableEvents = True
End Sub
Private Function OnChange1(Target As Range, R&, C&, V)
Dim NichtLeer As Boolean, Wert#
On Error Resume Next
Select Case R
Case Is > 16, Is < 4
Exit Function
End Select
Select Case C
Case Is > 8, Is < 4
Exit Function
End Select
If V <> "" Then
Range(Cells(R, 4), Cells(R, 8)).ClearContents
Target.Value = "x"
End If
End Function
Private Function OnChange2(Target As Range, R&, C&, V)
Dim rng As Range, sumCell As Range
On Error Resume Next
Set sumCell = Cells(R, 10)
If R < 4 And R < 16 Or V = "" Then
sumCell = ""
Exit Function
End If
Select Case C
Case Is > 8, Is < 4: Exit Function
End Select
Set rng = Range(Cells(R, 4), Cells(R, 8))
rng.ClearContents
Target.Value = "x"
sumCell = (8 - C) * Cells(R, 3)
End Function