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 Egon1967 vom 07.05.2020, 06:32 Options

mit einem Makro Rechnen / vorher falsch eingestellt

Hallo zusammen,

ich habe in einer funktionierenden EXCEL-Tabelle 2 verschiedene Berechnungen, welche ich gern über ein Makro ausführen lassen möchte.

Aber ich habe es immer noch nicht geschafft, über ein Makro eine Funktion auszuführen.

Kann mir jemand helfen?

Berechnung 1 als Funktion (ausgegeben in E3):
=WENN(ODER(A3="";B3="";C3="");"";(C3*B3*(A3/100))*2)

Berechnung 2 als Funktion (ausgegeben in F3)
=WENN(ODER(A3="";B3="";C3="");"";SUMME(A3*0,15*2)+SUMME(A3*0,02*D3*2))

Ich danke Euch allen schon einmal im Voraus
Egon1967 aus Hannover

Antwort schreiben

Antwort 1 von Beverly vom 07.05.2020, 07:14 Options

Hi Egon,

meinst du das so

Sub berechnen()
    If Range("A3") <> "" And Range("B3") <> "" And Range("C3") <> "" Then
        Range("E3") = Range("C3") * Range("B3") * (Range("A3") / 100) * 2
        Range("F3") = Range("A3") * 0.15 * 2 + Range("A3") * 0.2 * Range("D3") * 2
    Else
        Range("E3") = ""
        Range("F3") = ""
    End If
End Sub

Bis später,
Karin

Antwort 2 von Egon1967 vom 07.05.2020, 23:18 Options

Hallo Karin,

recht herzlichen Dank.
Auch wenn ich lange brauchte, um es zu verstehen, es funktioniert super.

Danke danke danke

Gruß aus Hannover
Egon1967

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