Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon 10-17 vom 30.01.2020, 10:50 Options

Brauche Hilfe bei Formel (Summe) od. andere Lösung

Hallo ihr unbezahlbaren Excel-Cracks,

Mein Problem:
Die orange eingerahmten Felder im Screenshot
http://www.mediafire.com/imageview.php?quickkey=9hmmix2cixj&thu...

Meine Frage(n):
Ist es möglich Excel dazu zu bringen, den Wert aus F2 nach E2 zu übertragen, dort mit dem möglicherweise vorhandenen Wert zu addieren und F2 standardmäßig wieder auf Null zu setzen?

- Ist das - wenn überhaupt - mit einer Formel zu lösen, oder geht das nur per Makro?
- Wie müßte das dann aussehen? (Bitte möglichst einfache Step by step Anleitung)

Schon jetzt vielen Dank für eure Mühe.

Liebe Grüße

Antwort schreiben

Antwort 1 von Hironimus vom 08.02.2020, 23:33 Options

Hallo
ohne Makro landest du meiner Meinung nach immer in einem Zirkelbezug.

Was geht ist ein Makro:
Richtig elegant krieg ich momentan noch nicht hin.
Aus den Zellen auslesen
Summen ausrechnen
Werte hinschreiben.

Was geht:
Makroaufzeichnung starten
Spalten E und F in irgendeine Ecke des Tabellenblattes kopieren wo sie nicht stören, in einer weiteren Spalte die Summen bilden. Von dort den Wert zurückkopieren nach E (Mit Inhalt einfügen) dann spalte f wieder mit Nullen füllen
Makroaufzeichnung beenden.

Antwort 2 von rainberg vom 09.02.2020, 00:01 Options

Hallo Namenloser,

das geht mit folgendem Makro

Option Explicit

Private Sub CommandButton1_Click()
    Dim rngC As Range
    For Each rngC In Range("E2:E7")
       If rngC.Offset(0, 1).Value > 0 Then
           rngC = rngC + rngC.Offset(0, 1).Value
           rngC.Offset(0, 1).Value = ""
       End If
    Next
End Sub

Um weitere Erklärungen zu sparen hänge ich die Testdatei an.

http://www.netupload.de/detail.php?img=bc7257a43c29834e2510d4c86a44...

Gruß
Rainer

Antwort 3 von 10-17 vom 13.02.2020, 10:20 Options

Vielen Dank euch 2. Braucht noch ein paar kleine Anpassungen, aber klappt wunderbar.

Liebe Grüße
10-17

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken