Excel. Berechnung zwischen 2 definierten Zahlen in einer Spalte

Lukazz · 27.06.2005

Ahoi,

ich möchte gerne das mein excel zwischen 2 Zahlen die ich ihm nenne die Summe addiert
Bsp.
Zwischen zahl 10.000 und 100.000 soll er mir alle Zahlen addieren und ausgeben.
ein anderes mal halt zwischen 5.000 und 6.000
halt variabel, dieses müsste wohl durch ein Makro geschehen.
hoffe man kann mir hier helfen.

bsp. in Spalte A sind 400 einträge, alles zahlen.
ich möchte zwischen zahl 10.000 und 100.000 alles addiert haben.
halt zahlen die ich selber angebe wobei zahlen die drunter und drüber sind nicht berücksichtigt werden.

lg Lukazz

Billy · 27.06.2005

also nochmals verständnisprüfung ^^

du gibst zum Beispiel 10'000 und 20'000 ein

und du hast in der Spalte folgende Zahlen:

Code:

willst du nun, dass 11'000 + 12'000 + 15'000 zusammen addiert werden?

mfg billy

bythom · 27.06.2005

sieh dir mal die Hilfe zu

SUMMEWENN()

an. Das müsste eigentlich das richtige für dich sein.

Lukazz · 27.06.2005

japps billy das möchte ich, eben alles zwichn den bereich alles drüber udn alles drunter soll raus.

Code:
1
4000
50000
11000
12000
15000
16000
17000

da eben alles zwischen 10.000 und 15.000

@bythom, das hatte ich ja schon aber mir fehlt da die bedingung für kleiner als oder ich habe einen massiven syntaxfehler dort.

Billy · 27.06.2005

bythom schrieb:
sieh dir mal die Hilfe zu

SUMMEWENN()

an. Das müsste eigentlich das richtige für dich sein.

ist nicht dynmaisch ^^

ist eine reine excel formel

aber was das andere betrifft ... ich schau mal was ich machen kann =)

ich müsst einfach noch von Lukazz wissen:

1. Wieviele Zahlen sind es insgesammt?
2. In Welcher Spalte befinden sich diese Zahlen?

mfg billy

Billy · 27.06.2005

hi und guten abend ^^

ich hab dir jetzt mal was kleines gemacht ... sollte selbsterklärend sein sonst einfach fragen

Code:

Option Explicit
Sub berechnezwischen2zahlen()
Const bereich = A1:A5->Hier gibst du den Bereich ein, in welchem die Zahlen stehen

'Hier werden die 2 Zahlen abgefragt
Dim zahl1 As Long, zahl2 As Long
zahl1 = Application.InputBox(prompt:=Bitte geben Sie die erste Zahl ein:, Title:=1. Zahl, Type:=1)
zahl2 = Application.InputBox(prompt:=Bitte geben Sie die zweite Zahl ein:, Title:=2. Zahl, Type:=1)

'Kontrolle ob die 1. Zahl wirklich kleiner ist als die 2. Falls nicht, wird gewechselt
If zahl1 > zahl2 Then
 Dim oldzahl1 As Long
 oldzahl1 = zahl1
 zahl1 = zahl2
 zahl2 = oldzahl1
End If

'Hier werden die Zahlen zusammen gezählt welche im obig bestimmten Bereich kleiner/gleich
'als die 2. Zahl und grösser/gleich die 1. Zahl sind
Dim zelle As Range, summe As Long
For Each zelle In ActiveSheet.Range(bereich)
 If zelle.Value >= zahl1 And zelle.Value &lt;= zahl2 Then
  summe = summe + zelle.Value
 End If
Next

'Die Ausgabe per Nachrichtenfenster
MsgBox Summe:  &amp; summe
End Sub

Lukazz · 28.06.2005

Billy schrieb:
1. Wieviele Zahlen sind es insgesammt?
2. In Welcher Spalte befinden sich diese Zahlen?

mfg billy

ahoi billy

))

also zahlen insgesamt sind ca 400 tendenz steigend und die zahlen befinden sich alle in spalte A

Billy · 28.06.2005

oke

da du ja selber geschrieben hast, dass es mehr zahlen werden hab ich es relativ dynamisch gemacht.

Code:

Sub berechnenzwischen2zahlen()
Const spalte = A->Hier gibst du die Spalte ein, wo die Zahlen stehen

'Hier werden die 2 Zahlen abgefragt
Dim zahl1 As Long, zahl2 As Long
zahl1 = Application.InputBox(prompt:=Bitte geben Sie die erste Zahl ein:, Title:=1. Zahl, Type:=1)
zahl2 = Application.InputBox(prompt:=Bitte geben Sie die zweite Zahl ein:, Title:=2. Zahl, Type:=1)

'Kontrolle ob die 1. Zahl wirklich kleiner ist als die 2. Falls nicht, wird gewechselt
If zahl1 > zahl2 Then
 Dim oldzahl1 As Long
 oldzahl1 = zahl1
 zahl1 = zahl2
 zahl2 = oldzahl1
End If

'Hier wird der Bereich angegeben
Dim bereich As String
bereich = spalte &amp; 1: &amp; spalte &amp; ActiveSheet.UsedRange.Rows.Count

'Hier werden die Zahlen zusammen gezählt welche im obig bestimmten Bereich kleiner/gleich
'als die 2. Zahl und grösser/gleich die 1. Zahl sind
Dim zelle As Range, summe As Long
For Each zelle In ActiveSheet.Range(bereich)
 If zelle.Value >= zahl1 And zelle.Value &lt;= zahl2 Then
  summe = summe + zelle.Value
 End If
Next

'Die Ausgabe
MsgBox Summe:  &amp; summe
End Sub

Zum Makro selber:

Ich habe jetzt mal angenommen dass die Zahlen in der Spalte A stehen und ab der Zeile 1 stehen.

Die Summe(als die Ausgabe) ist im moment noch eine Messagebox... ich weiss nicht ob das so gut ist. Musst du mir halt sagen wenns nicht so sein sollte ^^

Ich habe auch noch einen Schutz eingebaut so dass wenn die 1. Zahl grösser ist als die 2. werden die geändert. Weiss gar nicht ob dieser Schutz nötig ist... wenn nicht kannst du den löschen.

mfg billy

Lukazz · 30.06.2005

ahoi Billy,

dein makro funzt super aber ich werde nochmal kurz in kurz versuchen zu sagen wo mein problem ist.

ich versuche in A1 die kleinste zahl einzugeben
in A2 die größte Zahl

nun das problem

die tabelle sieht in etwa so aus

A B C
1kleinste Zahl
2 höchste Zahl
3 teil Kosten Kosten 2
4 1 100? 150?
5 2 200? 250?
6 3 300? 350?
7 .
8 ..

so hoffe ist übersichtlich, weiß net wie man hier tabellen einfügt.
ich möchte nun folgendes.
ich möchte in A1 eingeben das der niedrigste teil z.B. 2 ist also A5, in A2 den höchsten teil also z.B. 3.
anschließend möchte ick das er mir wenn es geht alle kosten zusammenzählt
also denn oben bei B1 und C1 die gesamtkosten, hier halt B1 soll 300? ausgeben und C1 eben 400?

mein vorhaben in A2 den niedrigsten wert zu nehmen und denn einfach ne spalte zu addieren schlug fehlt, kp wie man das macht.
a1 ist der anfang wo er suchen muss in spalte A, A2 das ende, die teile gehen aufwärts also von 1 bis ???, von dieser anfangszeile soll er von gesucht (A1anfang + eine spalte weiter) bis (A2ende + eine spalte weiter) alles summieren in zeile B1 von spalte B *vin anfangswert in spalte A* bis ende des gesuchten wertes in Spalte A

Also ich gebe an von teil 15 bis 100 was denn A17 bis A102 macht, denn soll er mir die summe aus B17 bis B102 berechnen in B1

ist glaube ich etwas komplizierter. wenn es net gehen sollte oder zu komplex ist bitte trotzdem posten, bin für jeden hinweis dankbar.

gruß Lukazz

LukazzBischi79@aol.com · 30.06.2005

P.S. message box ist net schlimm, kann ruhig so bleiben sofern man angeben kann ab wo man was haben will egal ob man nun 15 eingibt und er ab A15 sucht oder gleich A15 eingeben muss.
glaube das kann man denn bei weiteren spalten individuell anpassen.

Billy · 30.06.2005

hi

also wenn ich das richtig verstanden habe (es ist einwenig viel text

) willst du dass man 2 zahlen eingibt und von diesen Zahlen dann in A1 die kleinste und in A2 die grösste Zahl sehen soll.

Zugleich soll in B1 vom Gebiet der der beiden Zaheln die Summe angegeben werden.

Das Selbe in C1.

korrekt?

oder willst du dass in A1 von der ganzen Spalte A die kleinste und in A2 die grösse Zahl steht?

Lukazz · 30.06.2005

japps billy das erstere stimmt.

->also wenn ich das richtig verstanden habe (es ist einwenig viel text ) willst du dass man 2 zahlen eingibt und von diesen Zahlen dann in A1 die kleinste und in A2 die grösste Zahl sehen soll.

Zugleich soll in B1 vom Gebiet der der beiden Zaheln die Summe angegeben werden.

Das Selbe in C1. <---

aber A1 und A2 net.

A1 gebe ich die kleinste zahl ein und A2 die größte.

bsp 2 und 8 was den bereich A10 bis A16 ausmacht.
er soll mir aber die bereiche B10 bis b16 und C10 bis C16 ausrechnen in B1 für spalte B und C1 für Spalte C schreiben.

bei fragen kannst du mich sonst auch im Skype finden unter den Nick Plastikflasche.

gruß Lukazz

Billy · 01.07.2005

|| Kommentar ||

Dieses Thema wurde beendet

Excel. Berechnung zwischen 2 definierten Zahlen in einer Spalte

Lukazz

Billy

bythom

Lukazz

Billy

Billy

Lukazz

Billy

Lukazz

[email protected]

Billy

Lukazz

Billy

Excel. Berechnung zwischen 2 definierten Zahlen in einer Spalte

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums