Eingabefeld / Zahlen in nächster Zelle summieren

Bild

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
Bild


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ß


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Eingabefeld / Zahlen in nächster Zelle summieren"