VBA - Change Ereignisse kombinieren
08.09.2021 14:48:29
Olivier72
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