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 johannesapel vom 05.02.2022, 19:16 Options

Exel Formeln

Hallo

ich benötige eine Formel um Zahlen in Exel aufzusummieren.
summe=summe+x
d.h.: wenn ich in die Spalte A1 den wert 5 eingebe muss in der Summe bei B1 5 stehen, wenn ich aber jetzt einen neuen Wert in A1 z.B 3 eingebe und bestätige muss unter B1 8 stehen.
Wie kann ich diese Formel schreiben?

Gruß Johannes

Antwort schreiben

Antwort 1 von Saarbauer vom 05.02.2022, 19:19 Options

Hallo,

das was du vorhast geht nur mit einem Makro, als formel nicht machbar

Gruß

Helmut

Antwort 2 von johannesapel vom 05.02.2022, 19:28 Options

Und wie funktioniert das mit dem Makro.
Ich weiss garnicht was ein Makro ist und wie das funktioniert

Gruß Johannes

Antwort 3 von Saarbauer vom 06.02.2022, 12:37 Options

Hallo,

du solltest mal genauer erklären was du vorhast, vielleicht gibt es auch noch eine andere Lösung

Gruß

Helmut

Antwort 4 von nighty vom 06.02.2022, 15:48 Options

hi all ^^

ein beispiel

gruss nighty

einzufuegen
alt+f11/projektexplorer/DeineTabelle

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If IsNumeric(Cells(1, 2)) Then 'eingabe ist B1
        If Target.Row = 1 And Target.Column = 2 Then
            Cells(1, 1) = Cells(1, 1) + Cells(1, 2) 'ausgabe ist A1
        End If
    End If
    Application.EnableEvents = True
End Sub

Antwort 5 von nighty vom 06.02.2022, 17:59 Options

hi all ^^

hier noch ein beispiel fuer + - */

gruss nighty

A1 ausgabe
B1 eingabe

C1 click = +
D1 click = -
C2 click = *
D2 click=/

einzufuegen
alt+f11/projektexplorer/deinetabelle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    If Cells(1, 2) <> "" Then 'eingabe B1
        If Target.Row = 1 And Target.Column = 3 Then 'ist C1 fuer +
            Cells(1, 1) = Cells(1, 1) + Cells(1, 2) 'ergebnis A1
            Cells(2, 2).Activate
        End If
        If Target.Row = 1 And Target.Column = 4 Then 'ist D1 fuer -
            Cells(1, 1) = Cells(1, 1) - Cells(1, 2) 'ergebnis A1
            Cells(2, 2).Activate
        End If
        If Target.Row = 2 And Target.Column = 3 Then 'ist C2 fuer *
            Cells(1, 1) = Cells(1, 1) * Cells(1, 2) 'ergebnis A1
            Cells(2, 2).Activate
        End If
        If Target.Row = 2 And Target.Column = 4 Then 'ist D2 fuer /
            Cells(1, 1) = Cells(1, 1) / Cells(1, 2) 'ergebnis A1
            Cells(2, 2).Activate
        End If
    End If
    Application.EnableEvents = True
End Sub

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