Makro Ausführung

Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Dim iCount As Integer Set Target = Application.Intersect(Target, Range("AP1:AW2")) If Target Is Nothing Then Exit Sub On Error GoTo upsala Application.EnableEvents = False Worksheets("Key").Activate For Each KeyCells In Target Range("F52:F" & Range("F140").End(xlUp).Row).ClearContents Cells(51, 4) = Range("D49") - Range("B49") + 1 Cells(52, 6) = Cells(49, 2) For iCount = 0 To Cells(51, 4) - 1 Cells(52 + iCount, 6) = Cells(49, 2) + iCount Cells(52 + iCount, 7) = "Winter BU" Next Next KeyCells Application.EnableEvents = True Exit Sub upsala: Application.EnableEvents = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

For Each KeyCells In Target With Worksheets("Plan") .Range("F52:F" & .Range("F140").End(xlUp).Row).ClearContents .Cells(51, 4) = .Range("D49") - .Range("B49") + 1 .Cells(52, 6) = .Cells(49, 2) For iCount = 0 To .Cells(51, 4) - 1 .Cells(52 + iCount, 6) = .Cells(49, 2) + iCount .Cells(52 + iCount, 7) = "Winter BU" Next iCount End With Next KeyCells

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("AP1:AW2")) Is Nothing Then Application.EnableEvents = False Plan_einrichten Application.EnableEvents = False End If End Sub Private Sub Plan_einrichten() Dim iCount As Integer Dim K As Worksheet Dim P As Worksheet Set K = Worksheets("Key") Set P = Worksheets("Plan") .Range("F52:F" & .Range("F140").End(xlUp).Row).ClearContents .Cells(51, 4) = .Range("D49") - .Range("B49") + 1 .Cells(52, 6) = .Cells(49, 2) For iCount = 0 To Cells(51, 4) - 1 .Cells(52 + iCount, 6) = .Cells(49, 2) + iCount .Cells(52 + iCount, 7) = "Winter BU" .Cells(76 + iCount, 6) = .Cells(55, 2) + iCount .Cells(76 + iCount, 7) = "Sommer BU" Next .Cells(57, 4) = .Range("D55") - .Range("B55") + 1 .Cells(76, 6) = .Cells(55, 2) End Sub

Hallo Zulu,
wenn die Ereignis-Procedure nicht feuern, liegt es meistens daran, dass man den Code in Schritt für Schritt Modus durchgegangen ist und abgebrochen, bevor das Event-Restart stattgefunden hat.
Tippe einfach

Application.EnableEvents = True

in das Direkt-Fenster, dann läuft alles wieder.
Deine neue Datei
https://www.herber.de/bbs/user/142438.xlsm
ist leider genau dieselbe wie die alte
https://www.herber.de/bbs/user/142432.xlsm
Es passiert nichts (auch nachdem die Events reaktiviert wurden)
Allgemein: Don't repeat yourself
Du hast zweimal dieselbe Coding in den Blätter Plan und Key. Das bringt nichts und macht das gesamt schwer zu warten. Du willst eigentlich nur, dass etwas passiert, wenn in Plan!AP1:APW1 geändert wurde, also reicht die Ereignis-Procedure in "Plan"-Code.
Solltest Du das Coding aus 2 verschiedenen Stellen angestossen haben wollen, siehe den Code in
https://www.herber.de/forum/messages/1800656.html
Die Ereignis-Procedure darf in so ein Fall in jede Blatt sein, also doppelt, aber dafür minimalistisch. Bedingung für Intersect werden dabei anders sein. Die Sub "Plan_einrichten" darf es nicht doppelt geben, lege diese in einem Modul. Wenn etwas an diesem Sub zu ändern ist, muss Du nur eine Stelle anfassen.
Hut ab, dass Du dich an der Bewältigung deine Aufgaben mit VBA ranmachst, aber Dir fehlen grundlegende Wissen über verschiedene Zusammenhänge, die deinen Fortschritt im Weg stehen. Diese sind leider nicht übers Forum vermittelbar.
Excel VBA Tutorial gibt leider wie Sand am Meer. Scienzless schient einige gute Themen zu haben:
https://www.youtube.com/playlist?list=PLfrK06gExlYhVLUPhJh1ilsyeOVdzG4Uk
Deine Frage zur Gültigkeitbereich von Variable wäre hier angesprochen:
https://www.youtube.com/watch?v=gAEtr3tbN8g
Ideal wäre für Dich ein persönliches Coatching, aber wenn Du keinen Bekannte hast, der unterstützen kann, geht es nur über kaufen (wie günstig/teuer es ist, weiß ich leider nicht).
Viel Erfolg
Yal

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread