Ich habe folgenen Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$4" And Not IsEmpty([D4]) Then
[k4] = [k4] + [D4]
[D4].ClearContents
ElseIf Target.Address = "$E$4" And Not IsEmpty([E4]) Then
[j4] = [j4] + [E4]
[E4].ClearContents
End If
If Target.Address = "$D$5" And Not IsEmpty([D5]) Then
[k5] = [k5] + [D5]
[D5].ClearContents
ElseIf Target.Address = "$E$5" And Not IsEmpty([E5]) Then
[j5] = [j5] + [E5]
[E5].ClearContents
End If
End Sub
Notabene hier aus'm Forum ;-)...
Nun zu meinem Problem. Ich habe jetzt ne relativ lange Liste und muss jetzt den Code anpassen, sprich für jene weitere Zeilen. Muss ich jetzt tatsächlich copy + paste und dann die Zeilennummern ändern auf 6, 7, 8,...? Danke für Antworten!