Excel: Zellwert in andere Zelle übertragen, dann löschen
Wie kann ich den Inhalt einer Zelle an eine andere Zelle Übertragen?
Genauer möchte ich in bspw. Zelle A5 einen Wert eintragen, der dann zum Wert in Zelle addiert wird. Dann soll der Wert in Zelle A5 gelöscht werden und für die nächste Eingabe bereitstehen.
Ist wahrscheinlich ein VBA Problem und da ich in dieser Materie noch nicht so tief drinstecke seid nun ihr gefragt. Bitte um Hilfe
2 Antworten
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
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
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!