Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
640to644
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eingabefelder für Daten und dann zusammenrechnen

Eingabefelder für Daten und dann zusammenrechnen
24.07.2005 21:25:48
Sandro
Hallo Leute
Ich hab da ein Problem. Ich würde gern ein Eingabefeld für Zahlen erzeugen. Es soll so sein, daß man in ein feld alles eingeben kann und es an einer anderen stelle zusammengerechnet erscheint aber das eingabefeld soll immer wieder leer sein nachdem man auf enter gedrückt hat.
Falls jemand meine Frage vesteht die ich nicht besser formulieren kann wär es geil wenn mir jemand helfen könnte.
Vielen Dank im Voraus

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabefelder für Daten und dann zusammenrechnen
24.07.2005 22:29:00
Christoph
Hi Sandro,
gib den folgenden Code in das Klassenmodul der Tabelle ein. (Rechtsklick auf TabellenReiter und "Code anzeigen" auswählen)
alle numerischen Eingaben in Zelle C6 werden in Zelle F6 summiert.
Wenn du keine Zahl in C6 eingibst, wird der Eintrag gelöscht.
Gruß
Christoph 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address(0, 0) <> "C6" Then Exit Sub
If .Value = "" Then Exit Sub
If Not IsNumeric(.Value) Then .Clear
Range("F6") = Range("F6") + .Value
.Clear
.Select
End With
End Sub
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige