|
Hallo
du schreibst zuerst von den Zelle A6 bis A36
danach schreibst du von 12 weiteren Spalten
ich interpretiere das jetzt so, dass du einmal Spalte A
und auch noch 12 weitere Spalten im selben Arbeitsblatt bearbeiten willst
hier mal als Beispiel für Spalte A und Spalte D
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBereich As Range
Set rngBereich = Range("A6:A36, D6:D36")
If Not Intersect(Target, rngBereich) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value > 0 Then
Target.Offset(0, 1).Value = 0
End If
End If
End Sub
ich hoffe es passt so wie du dir das vorstellst
MfG Tom
|