Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Berechnung über Markierung

Forumthread: Berechnung über Markierung

Berechnung über Markierung
22.10.2008 20:07:38
Alex
Hallo Leute,
ich benötige ein Makro, das mir eine Berechnung durchführt.
Ich möchte einen Start Button im Sheet, dann soll er den User zur Markierung auffordern.
Nach dem setzen der Markierung soll er das Ergbebnis in ein Dialogfeld ausgeben, und zusätzlich in das Sheet schreiben.
Wie funktioniert das mit der Markierung?
Das problem ist dabei, das hinter jeder Zeile eine Formel (immer die gleiche) steht.
Ich füge das File hinzu damits leichter zu verstehen ist!
Alex
https://www.herber.de/bbs/user/56205.xls
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Berechnung über Markierung
22.10.2008 20:36:32
Daniel
Hi
wenn du dir für die Markierten Zellen einen berechneten Wert anzeigen lassen willst, dann passiert das automatisch in der Statuszeile
dazu mit der rechten Maustaste in den rechten Bereich der Statuszeile klicken und die gewünschte Berechnungsart auswählen
Gruß, Daniel
ich lass die frage mal offen, da das Problem mit dem Makro noch nicht beantwortet ist, aber viellicht erübrigt sich das ja.
Anzeige
AW: Berechnung über Markierung
22.10.2008 20:40:39
Alex
Ja, das weiß ich schon....
aber ich möchte (so wie in dem Beispiel File) quasi C5 - C9 markieren.
Und darauf hin soll er das Ergebnis in D11 einfügen (zuerst die hinterlegten Formeln) und dann die Addition aus den einzelnen Ergebnissen durchführen.
Und das geht nicht über die Statusleiste!
Alex
Anzeige
AW: Berechnung über Markierung
22.10.2008 21:53:48
Yal
Hallo Alex,
es gibt sonst die Funktion Summe in den Symbolleisten. Es versucht ein Bereich zu ermittelt, den zu summieren gäbe, bleibt aber in Editiermodus, so dass man leicht diesen Bereich verschieben kann.
Viel Erfolg
Yal
AW: Berechnung über Markierung
23.10.2008 08:23:06
Alex
Hä? das hab ich jetzt nicht so ganz verstanden.
Summierungen sind ja kein Problem, aber wenn Ihr in das File guckt sollte eigentlich ersichtlich sein,
wie ich das ganze meine!
Alex
Anzeige
AW: Berechnung über Markierung
23.10.2008 14:19:00
Yal
Ne, Alex, so ersichtlich ist es wohl nicht, da ich nicht der einzige bin, der nicht versteht, was Du meinst.
Du willst in D11 automatisch einen Formel eintragen lassen, der die Summe aus C5:C9 bildet? Warum ist dann gerade in D11 "=SUMME(D5:D9)"? Das passt nicht mit deiner Erklärung zusammen.
Yal
"Gedacht ist nicht gesagt, gesagt ist nicht gehört und gehört ist nicht verstanden." Konrad Lorenz
Anzeige
AW: Berechnung über Markierung
23.10.2008 08:51:26
David
Hallo Alex,
ob du nach dem Start eines Makros noch einen Bereich auswählen kannst, weiß ich nicht. Mein Vorschlag ist deswegen so gebaut, dass der Bereich vor dem Start markiert werden muss, falls das nicht erfolgt ist, bekommt der User einen Hinweis und das Makro wird beendet.

Option Explicit
Sub test()
Dim Bereich As String
If Selection.Count = 1 Then
MsgBox "Bitte erst einen Zellbereich auswählen."
Exit Sub
End If
Bereich = Selection.Address
If MsgBox("In Zelle D12 wird eine Summenformel für den Bereich " & Bereich & " eingefügt." _
& Chr(13) & "Weiter?", vbYesNo) = vbNo Then Exit Sub
Range("D12").Formula = "=Sum(" & Bereich & ")"
End Sub


Aber ehrlich gesagt, weiß ich nicht so richtig, was du damit bezweckst?!
Gruß
David

Anzeige
AW: Berechnung über Markierung
23.10.2008 15:05:00
Alex
Hi,
ok, was ich damit bezwecke ist folgendes:
Angenommen ich markiere in dem Sheet die Zellen C5 - C9. Dann soll das Makro folgendes durchführen:
Zuerst die Spalte ("Leistung in Watt") ausrechnen (über die entspr. Formel).
Danach soll er die Spalte (D5 - D9) addieren und ins Feld D11 schreiben
Danach soll er wiederrum dieses Ergebnis aus D11 durch die Anzahl der vorher addierten Zeilen teilen. (Quasi den Mittelwert aus D5-D9 bilden)
Dann gibt es noch eine Formel die er nachher auf den Wert der in D11 steht anwenden soll.
Der witz bei der Sache ist, das das dieses File ja nur ein Beispiel ist.
Die Werte können einmal 5 stück sein, ein ander mal aber auch über 100.
Ich möchte mir einfach die Zeit sparen, alles händisch einzutragen, sondern einfach markieren, und danach soll das passende Ergebnis rauskommen
Anzeige
AW: Berechnung über Markierung
23.10.2008 15:10:21
David
Hallo Alex,
das kriegt man auch per Formel hin.
Gruß
David
;

Forumthreads zu verwandten Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Diagramm löschen
Bernd

Hallo Gemeinde,
ich wollte in einem Blatt ein Diagramm mitsamt den umgebenden Zeilen löschen.
Nun erscheint das Diagramm als schmaler, nicht anklickbarer Strich und es macht mir lauter Probleme - wie die Fehlermeldung "die Formel enthält einen ungültigen Bezug zu einer externen Tabell...
08.08.2008 15:06:00
Thread-ID: 1000313
6 Beiträge
Sudoku Kontexmenü-Rechts [evtl. Hajo]
Matthias

Hallo
(Level bitte nicht ganz so ernst nehmen)
Folgendes:
In Diese Arbeitsmappe
Option Explicit 'nach einer Idee von Hajo Ziplies 'https://www.herber.de/forum/ _ archiv/972to976/t972675.htm Private Sub Workbook_BeforeClose(Cancel As Boolean) KontextmenueZuruecksetzen End Sub P...
08.08.2008 21:58:35
Thread-ID: 1000418
10 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Hilfe Kompatibilitätsproblem
christian

Hallo liebe Excel Gemeinde,
ich habe leider immer noch das Kompatibilitätsproblem!
Zum Verständnis nochmal die Anforderungen an den Code:
Importieren aller in einem Ordner befindlichen Textdateien (Messwerte) in neue Tabellenblätter
Das funktioniert auch alles super, da hat Rud...
11.08.2008 15:48:30
Thread-ID: 1000895
13 Beiträge
Formel für nur Zahlen addieren?
Tom

Hi,
ich schreib mir gerade ein kleines Kostenformular. Dazu schreib ich in Zeile 5 das Datum und in Zeile 6 den Betrag.
5: 6.7.2008
6: 300€
Gibt es jetzt eine Möglichkeit mit VBA oder lieber ohne, nur die Eurobeträge zu addieren ohne die Datums Zahlen? Also das € Zeichen kann re...
11.08.2008 16:29:04
Thread-ID: 1000906
5 Beiträge
Makro läuft nicht
alifa

Hallo VBA Gemeinde,
obwohl nur zehn Ziffern, kommt die Meldung: Überlauf. Habe schon alles versucht, Currency, Double. Long hört bei mir bei 2147483467 auf. Decimal nimmt er irgendwie nicht an. Kann jemand helfen?
Sub Alifa() Dim a(0 To 9) As Byte, i As Byte, t As Single For i = 0 To...
11.08.2008 17:39:00
Thread-ID: 1000935
7 Beiträge
Kombinationen mit Zurücklegen ohne Reihenfolge
Christian

Hallo zusammen,
ich suche eine VBA Lösung für folgende Aufgabe:
Gezogen werden "k" Kugeln aus einer Los-Trommel. Die Trommel enthält "n" Kugeln. Die gezogenen Kugeln werden anschließend zurückgelegt. Gesucht sind die möglichen Kombinationen der Ziehungen. Dabei kommt es nicht auf die Re...
11.08.2008 22:53:00
Thread-ID: 1001022
10 Beiträge
Wie müsste die Schleife aussehen?
Captain

Hi,
habe folgenden Code:
Private Sub lst_Gruppe_Detail_AfterUpdate() With Me .lst_Monate.AddItem "Januar" .lst_Monate.AddItem "Februar" .lst_Monate.AddItem "März" .lst_Monate.AddItem "April" .lst_Monate.AddItem "Mai" .lst_Monate.AddItem "Juni" .lst_Monate.AddItem "Juli" .lst_Monate.Ad...
12.08.2008 09:59:00
Thread-ID: 1001083
11 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Erweiterung der Schleife für mehrere Spalten
Fred


Hallo zusammen
Ich habe eine Schleife gefunden, die für meine Zwecke fast perfekt ist. Leider führt sie Ihre Funktion nur in einer Spalte aus. Ich würde diese Funktion gerne auf andere Spalten erweiter.
Also ausgeführt wird die Such und auswertfunktion in Spalte D. Ich bräuchte die...
12.08.2008 13:57:31
Thread-ID: 1001195
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige