Excel: Zellwert in andere Zelle übertragen, dann löschen

2 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

Kopiere den Code einfach in den VBA-Editor des Tabellenblattes in der du die Kumulierung haben willst.

A5: Eingabezelle

B5: Augabezelle

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = [A5].Address Then

If IsNumeric(Target.Value) = False Then

Exit Sub

End If

x = [B5].Value

x = x + Target.Value

[B5] = x

[A5] = " "

Exit Sub

End If

End Sub


MichaelG1980  13.07.2016, 18:15

Ist zwar schon was älter aber ich versuche es den noch.

Wie kann man das auf die ganze Spalte Anwenden? Also A3-A200 und B3-B300 oder mehr!

augsburgchris  14.07.2016, 18:36
@MichaelG1980

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("A"&Target.Row).Address Then

If IsNumeric(Target.Value) = False Then

Exit Sub

End If

x = Range("B"&Target.Row).Value

x = x + Target.Value

Range("B"&Target.Row) = x

Range("A"&Target.Row).Clear.Contens

Exit Sub

End If

End Sub

Kann man mit einem Makro lösen, das nach verlassen der Zelle aktiviert wird. Hilfreich wäre durchaus zu wissen was insgesamt getan werden soll. Erwin