Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1844to1848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA - Change Ereignisse kombinieren

VBA - Change Ereignisse kombinieren
08.09.2021 14:48:29
Olivier72
Liebe Community
In einem Excel habe ich 2 Change VBA Skripts, welche gleichzeitig laufen sollen. Diese füllen einen Kommentar in zwei Zellen ein. Leider kann ich kein VBA und helfe mir immer wieder übers Internet. Nun bei dieser Aufgabe wäre ich froh um eine Unterstützung eurer Seite.
Hier der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("J15:J30")) Is Nothing Then Exit Sub
Dim strCom As String
For X = 15 To 15
strCom = Sheets("Kalkulation Stückliste").Range("V" & X)
With Range("Q" & X)
.ClearComments
.AddComment Range("V14") & strCom
End With
Next X
Range("Q15").Select
End Sub
-------------------------------------------------------------------------------------------------------

Private Sub Worksheet_Change2(ByVal Target As Range)
If Intersect(Target, Range("J15:J15")) Is Nothing Then Exit Sub
Dim strCom As String
For Y = 15 To 15
strCom = Sheets("Kalkulation Stückliste").Range("U" & Y)
With Range("T" & Y)
.ClearComments
.AddComment Range("U14") & strCom
End With
Next Y
Range("T15").Select
End Sub
Ich bedanke mich schon im Voraus für eure investierte Zeit.
Grüsse
Olivier

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Change Ereignisse kombinieren
08.09.2021 15:00:04
Daniel
Hi
es gibt nur ein Change_Event_Makro.
sobald du den Namen änderst, wird aus dem Change_Event_Makro ein ganz normales Makro.
wenn du mehrere unterschiedliche Aktionen für das Change_Event hast, musst du diese alle in ein Makro packen.
nur solltest du dann die Schnell-und-Schlampig-Programmierung mit EXIT SUB vermeiden, sondern "ordentliche" IF-Blöcke erstellen.
also nicht:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("J15:J30")) Is Nothing Then Exit Sub
und hier der weitere Code
End Sub
sondern so, dann kann man das zweite entsprechend anfügen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J15:J30")) Is Nothing
und hier der weitere Code für diese Bedingung
End If
If Intersect(Target, Range("J15:J15")) Is Nothing Then
und hier der weitere Code für diese Bedingung
End If
End Sub
Gruß Daniel
Anzeige
AW: VBA - Change Ereignisse kombinieren
08.09.2021 15:06:27
Olivier72
Hallo Daniel
Ich danke Dir ganz herzlich im Voraus für Deine Bemühungen.
Es kommt die Meldung Syntax-Fehler. Dieser text unten wird im Eingabefeld immer Rot dargestellt. Gehe mal davon aus, dass da etwas nicht stimmt.
If Not Intersect(Target, Range("J15:J30")) Is Nothing
Grüsse
Olivier
AW: VBA - Change Ereignisse kombinieren
08.09.2021 15:12:18
Olivier72
Aktuell sieht der Code so aus:

Private Sub Worksheet_Change(ByVal Target As Range)
If not Intersect(Target, Range("J15:J30")) Is Nothing
Dim strCom As String
For X = 15 To 15
strCom = Sheets("Kalkulation Stückliste").Range("V" & X)
With Range("Q" & X)
.ClearComments
.AddComment Range("V14") & strCom
End With
Next X
Range("Q15").Select
End If
If Intersect(Target, Range("J15:J15")) Is Nothing Then
Dim strCom As String
For Y = 15 To 15
strCom = Sheets("Kalkulation Stückliste").Range("U" & Y)
With Range("T" & Y)
.ClearComments
.AddComment Range("U14") & strCom
End With
Next Y
Range("T15").Select
End If
End Sub
Grüsse
Olivier
Anzeige
AW: VBA - Change Ereignisse kombinieren
08.09.2021 15:12:27
Daniel
ergänze da mal noch das THEN (siehst du ja in den anderen Beispielen)
ich hab das da nur vergessen.
Gruß Daniel
AW: VBA - Change Ereignisse kombinieren
08.09.2021 15:22:58
Olivier72
Genau das war es, dann hat er noch gemeckert wegen dem strcom, weil dieser in beiden den gleichen Namen trägt. Dort habe ich eine 1 respektive eine 2 hinzugefügt. Jetzt keine Fehlermeldung mehr, aber der 2. change schreibt mir das Ergebnis nicht in den Kommentar. Muss noch etwas suchen.
Grüsse
Olivier
AW: VBA - Change Ereignisse kombinieren
08.09.2021 15:29:11
Olivier72
Also in der Zelle T15 wird kein Kommentar geschrieben. Ausschliesslich in der Zelle Q15. Woran könnte es liegen?
dir fehlt ein Not.
08.09.2021 15:33:02
Rudi

If Not Intersect(Target, Range("J15:J15")) Is Nothing Then

Anzeige
AW: dir fehlt ein Not.
08.09.2021 15:37:15
Olivier72
Lieber Daniel und lieber Rudi, ihr seid meine Helden. Jetzt funktioniert es tadellos.
Besten Dank.
Grüsse
Olivier

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige