Worksheet_Change beisst sich
17.02.2017 21:45:18
Reto
Habe einen Jahresplan und will Zellen kopieren. Stehe grad auf dem Schlauch:
Einmal habe ich den Jahresplan vom 01.01 bis 31.12 von links nach rechts, der Übersicht lieb (zum ausdrucken) noch von oben nach unten.
Grund: wenn ich etwas im Juni anfange, was im Juli endet muss ich springen, was ich nicht will. Oder zu bequem bin. Will es also hin und her kopieren...
Beispiel:
(Dim Bereiche As Range)
Private Sub Worksheet_Change(ByVal Target As Range)
Set Bereich01 = Range("BI2:DQ15") 'März & April
Set Bereich02 = Range("B17:BJ30")
Set Bereich03 = Range("DR2:FZ15") 'Mai & Juni
Set Bereich04 = Range("B32:BJ45")
etc.
'Jan Feb | Mrz Apr | Mai Jun | Jul Aug | Sep Okt | Nov Dez
' | 01 | 03 | 05 | 07 | 09
' 02 |
' 04 |
' 06 |
' 08 |
' 10 |
If Not Intersect(Target, Bereich01) Is Nothing Then
Bereich01.Select
Selection.Copy
Bereich02.Select
ActiveSheet.Paste
ElseIf Not Intersect(Target, Bereich02) Is Nothing Then
Bereich02.Select
Selection.Copy
Bereich01.Select
ActiveSheet.Paste
etc...
End If
Target.Select
End Sub
Nun beissen sich aber die zwei Bereiche, da ich ja beide kopiere. Exid Sub bringt auch nichts. Jemand eine Idee oder generell falscher Ansatz?
Lieber Gruss