habe eine Bitte an euch, möchte nochmals eure Hilfe in Anspruch nehmen zu dürfen.
Das vorliegende Excel-Programm läuft einwandfrei auf einer Excel-Oberfläche, möchte aber diesen Excel-Code in ein schon bestehendes Makro-Programm mit benutzen, habe aber zu wenig Kenntnisse dafür um dieses zu ändern, wär das möglich ? Vielen Dank.
Gruß Kalle
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:D1")) Is Nothing Then
If Target.Value = 3 Or _
Target.Value = 4 Then
Range("E1") = Range("E1") + 1
Target.ClearContents
Range("A1").Select
End If
End If
End Sub