Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren und addieren

kopieren und addieren
30.06.2005 15:23:36
Josef
Guten Tag zusammen,
bräuchte nochmal Eure Hilfe, für eine Formel zu erstellen.
Ich möchte alle Einträge die in Spalte "G" eingegeben werden, sofort in die gleiche Zeile, in Spalte "K" kopiert werden. Falls in "K" schon ein Wert steht,
soll der neue Wert der in "G" eingegeben wird, dem Wert in "K" hinzu addiert werden. Formel oder VBA.
Es wäre sehr nett, wenn Ihr mir helfen würdet.
Gruss Josef

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopieren und addieren
30.06.2005 16:57:33
Andi
Hi,
probier mal das hier:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 7 Then Exit Sub
If Not IsNumeric(Target.Value) Then
MsgBox "Bitte eine Zahl eingeben"
Exit Sub
End If
Cells(Target.Row, 11).Value = Cells(Target.Row, 11).Value + Target.Value
End Sub

Nicht-numerische Eingaben werden abgefangen, eine Unterscheidung, ob in Spalte K schon was steht oder nicht, ist nicht notwendig, weil nix = 0 und 0 + irgendwas = irgendwas
Schönen Gruß,
Andi
AW: kopieren und addieren
30.06.2005 18:25:56
Josef
Hallo Andi,
macht genau das, was ich wollte.
Danke Dir sehr.
Gruss Josef
Anzeige
gern geschehen.. (ot)
30.06.2005 22:47:34
Andi
.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige