Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Rechenaufgabe

Rechenaufgabe
01.03.2004 15:05:36
Tobi
Hallo zusammen,
ich hab ne Sache mit der ich nicht weiter komme:
Folgendes möchte ich lösen:
Ich gebe in Zelle A2 ein wert ein z.B. 500 und möchte dann diesen Wert mit dem Wert in Zelle A3 addieren, danach soll die Zelle A2 geleert werden und das Ergebnis in Zelle A3 stehen bleiben, so daß ich wenn ich einen neuen Wert in Zelle A2 eingeben das Spiel von vorne losgehen kann!
Hat jemend ne Idee wie ich das lösen kann, mit excel oder VBA ?
Danke.
Tobias

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

Betreff
Datum
Anwender
Anzeige
AW: Rechenaufgabe
01.03.2004 15:11:46
Andreas
Hallo tobias,
villeicht hilft das:


Sub rechnen
dim dbadd As Double
dbadd = Range("A2").Value + Range("A3").Value
Range("A3").Value = dbadd
Range("A2").Value = ""
End Sub

Grüsse Andreas
AW: Rechenaufgabe
01.03.2004 15:22:01
Tobi
Merci, das haut perfekt hin!
AW: Rechenaufgabe
01.03.2004 15:18:11
xXx
Hallo,
in den Code der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A2")) Is Nothing Then
Else
Application.EnableEvents = False
Range("A3") = Range("A3") + Range("A2")
Range("A2").ClearContents
Range("A2").Select
Application.EnableEvents = True
End If
End Sub

Gruß aus'm Pott
Udo
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige