Eingabefeld / Zahlen in nächster Zelle summieren

• Eingabefeld / Zahlen in nächster Zelle summieren von Udo Scharegge vom 14.03.2005 13:19:39
• AW: Eingabefeld / Zahlen in nächster Zelle summieren - von u_ am 14.03.2005 13:32:00

Betrifft: Eingabefeld / Zahlen in nächster Zelle summieren
von: Udo Scharegge

Geschrieben am: 14.03.2005 13:19:39
Hallo,
ich möchte über eine Eingabezelle z.B "B6" Zahlen eingeben und in der nächsten Zelle "C6" summieren.
Ich habe im Archiv folgendes VBA-Skript gefunden:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address <> "$B$6" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Application.EnableEvents = False
On Error GoTo errorhandler
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value + Target.Value
errorhandler:
Application.EnableEvents = True
End Sub

Es funktioniert, aber kann ich noch weitere Eingabezellen z.B. "d6" die dann in Nachbarzellen summiert werden (e6) eingeben?
Kann es man einrichten, daß man die Eingaben mit Return bestätigen muß?
Ich habe leider keine Ahnung von VBA. Schon mal Danke im voraus.
Udo

Betrifft: AW: Eingabefeld / Zahlen in nächster Zelle summieren
von: u_

Geschrieben am: 14.03.2005 13:32:00
Hallo,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If IsEmpty(Target) Then Exit Sub
Select Case Target.Address(0, 0)
Case "B6", "D6"
On Error GoTo errorhandler
Application.EnableEvents = False
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value + Target.Value
End Select
errorhandler:
Application.EnableEvents = True
End Sub

Gruß

Excel-Beispiele zum Thema "Eingabefeld / Zahlen in nächster Zelle summieren"
Von Eingabe- zu Eingabefeld springen	Cursor nur in Eingabefeldern bewegen
Vorkommen von Zahlenreihen in Spalten	Zeichenfolgen in Zahlen nach Textimport
Zahlenformatierung mit Punkt nach der 1. Ziffer	Namen von TextBoxes hochzählen
Zählen formatierter Zellen	Autofilter auch mit Ziffern von Zahlen
Addition der absoluten Zahlen	Eingabe von positiven Zahlen erzwingen