Summenkalkulation

Question

Hallo,

ich möchte beim Click auf eine Schaltfläche die Summe mehrerer Zeilen ausgewiesen bekommen. Im Feld neben dem Ergebnis soll dann in Anhängigkeit der erechneten Zahl ein gewisser text stehen.

Logik:

1. Click auf Schaltfläche
2. Berechnung einiger Zeilen
3. Dieses Ergebnis in einer Zelle ausweisen
4. In Anhängigkeit des Ergebnisses gewissen Text in anderer Zelle ausweisen.
(zb. wenn Ergebis <50 dann "Text1", wenn Ergebnis >49 und <100 dann "Text2", wenn Ergebnis >99 dann "Text3".

vielen Dank schon mal

Answer 1

Hallo,

ist aus meiner Sicht nur über ein Makro zu machen.

Die Darstellung deines Tabellenaufbaus könnte Hilfreich sein

Gruß

Hemut

Answer 2

Hallo Helmut,

bin auch der Meinung, das dies nur über ein Makro zu lösen ist.

Die zu berechnende Summe erstreckt sich über die Zeilen L7:L75.

Darunter, also in Zeile L77, soll die Summe ausgewiesen werden. Daneben, also in Zeile K77 der entsprechende Text.

Gruß, José

Answer 3

Wenn die Bereiche deiner Tabelle schon feststehen, ist mir nicht klar, warum du dafür einen Button machen willst. Berechnung und Textausweis lassen sich doch auch über Formeln darstellen:

Summenformel in L77
in K77 die bedingte Textanzeige

Gruß
Volker

Answer 4

Hallo,

ich gebe Volker recht, aber hier mal ein Makro zum Testen:

Sub Summe()
Dim s As Integer

Range("L77").FormulaLocal = "=Summe(L7:L75)"

s = Range("L77").Value

Select Case s
Case Is < 50
Range("K77") = "Text 1"
Case Is < 100
Range("K77") = "Text 2"
Case Is > 99
Range("K77") = "Text 3"
End Select

End Sub

Gruß

M.O.

Answer 5

Danke für das Makro. Funktioniert noch nicht so ganz, fehlt evtl noch die Angabe des Sheets/Reiters?

Oder muss ich noch etwas anpassen?

Die Formel versuche ich insofern zu vermeiden, weil sich dich Zeilen L7:75 nach und nach erst füllen und dann die Anzeige des Textes ständig variieren würde bis zu endgültigen Eingabe in den Zellen.

Answer 6

Hallo,

ich habe das Makro anhand deiner "reichlich" vorhandenen Angaben zum Aufbau der Tabelle erstellt. Das Makro fügt die Summe und den Text in das aktive Tabellenblatt ein.
Wenn du willst, kannst du vor den Range-Anweisungen noch folgenden Code ergänzen:

Worksheets("Tabelle1").

Statt Tabelle 1 musst du natürlich den Namen deines Tabellenblatts eingeben.

Was funktioniert denn nicht so ganz?

Gruß

M.O.

Answer 7

Hallo M.O.

der Code läuft einwandfrei durch, jedoch steht in der Zelle L77 kein Wert und in der Zelle K77 auch nichts.

Die Tabelle soll eine Art Balanced Scorecard werden. Oben stehen einige Fragen. Rechts davon ein Auswahlfeld für die Häufigkeit und daneben eine Wertigkeit. In der Spalte L steht dann letztendlich das Ergebnis von Häufigkeit*Wertigkeit.
Unten soll dann nach dem Klicken der Schaltfläche die Gesamtpunktzahl aller Fragen stehen. Also die Summe aus der Spalte L und je nach Punktzahl ein entsprechender Text. Die Datei hat nur ein Worksheet das "Balanced Scorecard" heißt.
Weiß nicht wie ich es besser beschreiben soll.

Answer 8

Hallo Neros,

ich habe keine Ahnung, warum der Code in deiner Datei nicht funktionert.

Falls du nicht genau weißt, wie du den Code und die Schaltfläche einfügst, schau mal hier nach.

Du kannst auch eine Beispieldatei hochladen, z.B. hier und den Link hier posten.

Gruß

M.O.

Answer 9

Hallo M.O.

anbei mal die Datei

Balanced

Answer 10

Hallo Neros,

du musst das Makro dem Button zuordnen, damit es ausgeführt wird.
Außerdem hast du die Zellen K59 und L59 verbunden. Daher muss die Formel in die Zelle K59 eingefühgt werden.

Hier die geänderte Datei: Balanced

Gruß

M.O.