Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eingabefeld / Zahlen in nächster Zelle summieren

Eingabefeld / Zahlen in nächster Zelle summieren
14.03.2005 13:19:39
Udo
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabefeld / Zahlen in nächster Zelle summieren
14.03.2005 13:32:00
u_
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ß
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige