Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wert addieren und nach Eingabe löschen

Wert addieren und nach Eingabe löschen
01.06.2006 14:39:33
MichelS
Hi,
ich möchte in sagen wir A1 einen Wert eingeben. Nach Eingabe soll der Wert zu A2 addiert werden, aber aus A1 wieder gelöscht werden. Geht sowas?
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert addieren und nach Eingabe löschen
01.06.2006 14:48:00
Mag
Hi,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A1].Value <> 0 Then [A2].Value = [A2].Value + [A1].Value: [A1].Value = ""
End Sub

Gruss
AW: Wert addieren und nach Eingabe löschen
01.06.2006 15:22:13
MichelS
Vielen Dank!
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Werte in Excel addieren und nach Eingabe löschen


Schritt-für-Schritt-Anleitung

Um in Excel einen Wert in Zelle A1 einzugeben, diesen nach der Eingabe zu A2 zu addieren und anschließend A1 zu löschen, folge diesen Schritten:

  1. Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Im Projektfenster wählst du das entsprechende Arbeitsblatt aus, auf dem du die Funktion implementieren möchtest.

  3. Kopiere und füge den folgenden VBA-Code in das Codefenster ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If [A1].Value <> 0 Then
           [A2].Value = [A2].Value + [A1].Value
           [A1].Value = ""
       End If
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu deinem Arbeitsblatt.

  5. Gib einen Wert in Zelle A1 ein und klicke auf eine andere Zelle, um die Eingabe zu bestätigen. Der Wert wird nun zu A2 addiert, und A1 wird automatisch gelöscht.


Häufige Fehler und Lösungen

  • Fehler: Der Wert wird nicht zu A2 addiert.

    • Lösung: Stelle sicher, dass der VBA-Code korrekt eingefügt wurde und dass du das Arbeitsblatt ausgewählt hast, auf dem der Code aktiv ist.
  • Fehler: A1 wird nicht gelöscht.

    • Lösung: Überprüfe, ob in A1 tatsächlich ein Wert steht. Der Code löscht A1 nur, wenn es ungleich Null ist.

Alternative Methoden

Wenn du keine VBA-Makros nutzen möchtest, kannst du auch Formeln verwenden, um Werte zusammenzurechnen und einzufügen, jedoch musst du dann manuell eingreifen, um die Zelle zu löschen. Eine einfache Formel in A2 könnte so aussehen:

=A2 + A1

Danach musst du A1 manuell leeren, um die Eingabe zu löschen.


Praktische Beispiele

  1. Beispiel für das Zusammenrechnen von Werten:

    • Gib in A1 den Wert 10 ein. Klicke auf eine andere Zelle. A2 wird nun 10 anzeigen, und A1 wird geleert.
  2. Beispiel für das Addieren von Prozentsätzen:

    • Wenn du einen Prozentsatz auf einen Wert in A2 addieren möchtest, könntest du in A1 den Prozentsatz 20% eingeben. Der Code würde dann den Wert in A2 um 20% erhöhen, also:
      [A2].Value = [A2].Value * (1 + [A1].Value)

      Vergiss nicht, dass A1 nach der Eingabe gelöscht wird.


Tipps für Profis

  • Verwendung von Datenvalidierung: Du kannst Datenvalidierung in A1 einfügen, um sicherzustellen, dass nur Zahlen eingegeben werden, was die Fehlerquote verringert.

  • Makros speichern: Speichere deine Excel-Datei als .xlsm, um die VBA-Makros zu erhalten.

  • Schnelle Eingabe: Nutze F2 um die Zelle A1 zu bearbeiten und nach der Eingabe Enter, um schneller zu arbeiten.


FAQ: Häufige Fragen

1. Kann ich den Code auch für andere Zellen verwenden? Ja, du kannst den Code anpassen, indem du die Zellreferenzen änderst. Zum Beispiel, um B1 und B2 zu verwenden, ändere [A1] in [B1] und [A2] in [B2].

2. Was passiert, wenn ich einen Text in A1 eingebe? Wenn ein Text in A1 eingegeben wird, wird der Code nicht ausgeführt, da die Überprüfung nur für numerische Werte gilt. A1 bleibt unverändert.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige