Nach Eingabe von einem Wert automatisch wieder auf

Hallo!
Ich möchte eine Exceldatei erstellen in der ich eine Eingabe machen kann zum bsp. 12. Dieser Wert soll automatisch in einer anderen Zeile dazugezählt werden.Bis dahin kein Problem. Jetzt hätte ich es gerne so, dass das Eingabefeld automatisch nach dr Eingabe wieder auf 0 geht, aber der dazugezählte Wert in der anderen Zeile stehen bleibt. Das heisst ich gebe danach 6 ein und der Wert in der anderen zeile geht auf 18. Mein Eingabefeld springt wieder auf 0. Jetzt gebe ich 7 ein und in meiner anderen Zeile steht jetzt 25. und so weiter und so weiter. Ich hoffe ich habe es einigermassen verständlich beschrieben, was ich da haben möchte. Würd mich riesig freuen wenn mir da jemand helfen kann.

Gruß Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ok, dann klick mal dein Tabellenblatt unten in der Registerleiste mit rechts an,
da dann auf " Code anzeigen " gehen.

Es öffnet sich der VBA Editor, und du bist gleich auf der Ebene , wo man Anweisungen direkt auf diesem Tab.Blatt verankert.

Dort kopierst du folgenden Code rein, dann müsste es schon funktionieren.

.......................................


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.MoveAfterReturnDirection = xlToRight
Cells(ActiveCell.Row, 3).Value = Cells(ActiveCell.Row, 3).Value + Cells(ActiveCell.Row, 1).Value
Cells(ActiveCell.Row, 1).Value = 0
End Sub

........................

PS in dem Makro ist Cells( activecell.row , 3) ist Spalte C also 3 , und 1 wäre A

d.h. für dich schreibe Zahlen in Zeile in A ( egal welche Zeile ), dann addiert er bei Return, oder Wechsel mit Pfeil nach rechts, dann den wert in die active Splte 3 , also nach C

Tests mal, und sag Bescheid

Gruß udo

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.MoveAfterReturnDirection = xlToRight 'wenn du hier entsprechend die Zahlen änderst, kannst du den Zielbereich ändern usw.... 'wenn Zeil Spalte= 2 und Ziel-Zeile grössergleich 3 und kleinergleich 7 und Ziel ="" dann If Target.Column = 2 And Target.Row >= 3 And Target.Row <= 7 And Target.Cells = "" Then Cells(ActiveCell.Row, 4).Value = Cells(ActiveCell.Row, 4).Value + Cells(ActiveCell.Row, 1).Value Cells(ActiveCell.Row, 1).Value = "" Cells(ActiveCell.Row, 1).Activate End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.MoveAfterReturnDirection = xlToRight On Error GoTo weiter: Cells(ActiveCell.Row, ActiveCell.Column).Select If Selection = Cells(12, 5) Then Cells(12, 6).Value = Cells(12, 6).Value + Cells(12, 4).Value Cells(12, 4).Value = "" If Selection = Cells(6, 4) Then Cells(6, 5).Value = Cells(6, 5).Value + Cells(6, 3).Value Cells(6, 3).Value = "" Exit Sub End If End If 'nach der Eingabe in deine Felder mit Return bestätigen , oder nach rechts wechseln 'mit den Pfeilen aus der Tastatur usw. weiter: End Sub

Beliebteste Forumthreads (12 Monate)

Nach Eingabe von einem Wert automatisch wieder auf

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nach Eingabe von einem Wert automatisch wieder auf

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread