Hallo und guten Tag, ich bin heute etwas früher als sonst, da ich das tolle Wetter noch nützen will. Das Video ist zumindest für mich wieder sehr hilfreich. Vielen Dank. Interessant wäre für mich, wie es sich bei anderen Rechenfunktionen verhält (mit VBA). Vielleicht kannst Du ja in der Richtung noch etwas weitermachen. Ich wünsche ebenfalls einen schönen Sonntag und eine schöne Woche. mfg PeterPan
Zeile wäre dann: Zeile = 3 Was du noch tuen musst ist die Spalte anzupassen. Das heißt überall wo "cells(Zeile, 1)" steht, änderst du die 1 auf 3. Die 1 steht für die Spalte also "A", wenn du die Spalte "C" möchtest dann 3.
Hey, deine Videos sind super und helfen mir bei der Klausurvorbereitung. Wir lösen die Aufgaben allerdings ein wenig anders, indem wir über range gehen. Dabei benenne ich dann immer die entsprechenden Zellen. Sprich in der Lösung von mir ist range("alter") die Zelle wo die Überschrift "Alter" drin steht. Die Zelle range("summe") ist dann die Zelle, wo die Summe ausgegeben werden soll. Bei uns sollen die Tabellen immer dynamisch sein, sodass jederzeit neue Tabelleneinträge gemacht werden können. Von daher hier meine Lösung: Private Sub CommandButton1_Click() Dim i As Integer Dim summe As Double Range("summe") = "" summe = 0 i = 1 Do While Range("alter").Offset(i, 0) "" summe = summe + Range("alter").Offset(i, 0) i = i + 1 Loop Range("summe") = summe End Sub
Hallo danke für dein tolles Video. Ich konnte es einfach nachvollziehen. Kannst du eventuell auch eine laufende (kumulierte) Summe ein einer extra Spalte erklären? Ich weiß, dass es für die kumulierte Summe einen Formel gibt, dann ist leider die Zelle aber nicht leer wenn die Formel kein Ergebnis bringt und das führt zu Fehlern in dynamischen Diagrammen.
Hallo kannst du mir bitte bei einem mini Problem helfen, es geht um dieses Thema: Es geht um Personen anzahl x: ich habe z.b. D4 stehen soll und daneben e4 =7; d12 steht soll E12=9 usw. Was ich jetzt unbedingt brauche ist das zb in E20 seht =e4+e12; Ich kann hier nicht anwenden Summe wenn das die D Spalten hin und wieder überschrieben werden und somit dann meine Rechnung nicht mehr korrekt ist. Es gibt Dabellenblätter Januar bis Dezember und jedes Monat hat verschiedene anzahlen von Personen. Kurz gesagt überall wo soll steht sollt die danehbenstehende zahl aufsumiert werden.
Danke Dir 🙏 Zu Deiner Frage: Ist keine andere Eigenschaft angegeben, wird automatisch ".Value" verwendet. Um Zahlenbeträge als Währung zu addieren sollten diese vom Typ Currency sein. Hier kannst Du beispielsweise die Funktion "CCur" nutzen. Beste Grüße André
Hallo zusammen, das Video ist sehr einfach und verständlich gemacht! Super! Eine Frage habe ich aber dazu: Bei mir ergibt sich immer eine Ganzzahl, ohne Nachkommastellen. Ich habe die Ausgabe so angepasst, dass sie mit "0.00" ausgibt. Aber die Zahl stimmt nicht, es wird immer noch mit Ganzzahl gerechnet. Wie muss die Funktion angepasst werden, dass 1.5 +1 = 2.5 und nicht 3 ergibt? Grüsse Urs
Woher weiß vba, dass du bei „Cells(Zeile,1)“ den Zellinhalt bzw. Wert haben möchtest? Ich dachte immer, das macht man mit „.Value“. Mein Weltbild wankt.
In VBA ist .value das Standardargument. Das kann man also dazuschreiben, muss man aber nicht. Das gilt sowohl für .cells als auch für z.B. Recordsets bei Datenbankabfragen. Spart ein bisschen Getippe...
'Summe eines bestimmten Bereichs bilden, nicht variabel Sub SummeBilden() Dim Summe As Variant Summe = Application.Sum(Range("C4:C10")) Range("C11") = Summe Range("C11").Cells.Interior.ColorIndex = 6 Range("C11").Cells.Font.Underline = xlUnderlineStyleDouble End Sub
hallo noch mal, ich habe mit entsetzen gesehen, dass sich Jemand an meinen Kommentar gehängt hatte, der gar nichts mit mir und Excel zu tun hat. Vielen lieben Dank, dass Du das gelöscht hast! mfg Peter Pan
Hallo und guten Tag,
ich bin heute etwas früher als sonst, da ich das tolle Wetter noch nützen will.
Das Video ist zumindest für mich wieder sehr hilfreich. Vielen Dank. Interessant wäre für mich, wie es sich bei anderen Rechenfunktionen verhält (mit VBA). Vielleicht kannst Du ja in der Richtung noch etwas weitermachen.
Ich wünsche ebenfalls einen schönen Sonntag und eine schöne Woche.
mfg
PeterPan
Ich freue mich wieder von Dir zu lesen Peter :) ein weiteres Beispiel folgt dann am kommenden Sonntag!Beste Grüße
Welchen Wert muss ich der Variable Zeile zuweisen wenn ich z.b. ab Zelle C3 nach unten alles addieren möchte, Zeile = ???
Zeile wäre dann: Zeile = 3
Was du noch tuen musst ist die Spalte anzupassen.
Das heißt überall wo "cells(Zeile, 1)" steht, änderst du die 1 auf 3.
Die 1 steht für die Spalte also "A", wenn du die Spalte "C" möchtest dann 3.
Hey, deine Videos sind super und helfen mir bei der Klausurvorbereitung. Wir lösen die Aufgaben allerdings ein wenig anders, indem wir über range gehen. Dabei benenne ich dann immer die entsprechenden Zellen. Sprich in der Lösung von mir ist range("alter") die Zelle wo die Überschrift "Alter" drin steht. Die Zelle range("summe") ist dann die Zelle, wo die Summe ausgegeben werden soll. Bei uns sollen die Tabellen immer dynamisch sein, sodass jederzeit neue Tabelleneinträge gemacht werden können. Von daher hier meine Lösung:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim summe As Double
Range("summe") = ""
summe = 0
i = 1
Do While Range("alter").Offset(i, 0) ""
summe = summe + Range("alter").Offset(i, 0)
i = i + 1
Loop
Range("summe") = summe
End Sub
Servus!
Meine Lösung ist die Nächste:
Sub meine()
Dim i, size As Integer
Dim sum As Integer
sum = 0
size = WorksheetFunction.CountA(Worksheets(1).Columns(3))
For i = 4 To size + 3
sum = sum + Worksheets(1).Cells(i, 3).Value
Next i
MsgBox sum
End Sub
Mit freundlichen Grüßen aus Ungarn
Hallo danke für dein tolles Video. Ich konnte es einfach nachvollziehen. Kannst du eventuell auch eine laufende (kumulierte) Summe ein einer extra Spalte erklären? Ich weiß, dass es für die kumulierte Summe einen Formel gibt, dann ist leider die Zelle aber nicht leer wenn die Formel kein Ergebnis bringt und das führt zu Fehlern in dynamischen Diagrammen.
wie setze ich das in access um?
Hallo kannst du mir bitte bei einem mini Problem helfen, es geht um dieses Thema:
Es geht um Personen anzahl x:
ich habe z.b. D4 stehen soll und daneben e4 =7; d12 steht soll E12=9 usw.
Was ich jetzt unbedingt brauche ist das zb in E20 seht =e4+e12; Ich kann hier nicht anwenden Summe wenn das die D Spalten hin und wieder überschrieben werden und somit dann meine Rechnung nicht mehr korrekt ist. Es gibt Dabellenblätter Januar bis Dezember und jedes Monat hat verschiedene anzahlen von Personen.
Kurz gesagt überall wo soll steht sollt die danehbenstehende zahl aufsumiert werden.
Super Video. Nur wie kann ich Währungen aufaddieren? Du hast ja letztlich auch kein .Value verwendet
Danke Dir 🙏
Zu Deiner Frage:
Ist keine andere Eigenschaft angegeben, wird automatisch ".Value" verwendet. Um Zahlenbeträge als Währung zu addieren sollten diese vom Typ Currency sein. Hier kannst Du beispielsweise die Funktion "CCur" nutzen.
Beste Grüße
André
Hallo zusammen,
das Video ist sehr einfach und verständlich gemacht! Super!
Eine Frage habe ich aber dazu: Bei mir ergibt sich immer eine Ganzzahl, ohne Nachkommastellen. Ich habe die Ausgabe so angepasst, dass sie mit "0.00" ausgibt. Aber die Zahl stimmt nicht, es wird immer noch mit Ganzzahl gerechnet. Wie muss die Funktion angepasst werden, dass 1.5 +1 = 2.5 und nicht 3 ergibt?
Grüsse Urs
Und soeben die Lösung selbst gefunden: Dim Wert As Double
Woher weiß vba, dass du bei „Cells(Zeile,1)“ den Zellinhalt bzw. Wert haben möchtest? Ich dachte immer, das macht man mit „.Value“. Mein Weltbild wankt.
In VBA ist .value das Standardargument. Das kann man also dazuschreiben, muss man aber nicht. Das gilt sowohl für .cells als auch für z.B. Recordsets bei Datenbankabfragen. Spart ein bisschen Getippe...
'Summe eines bestimmten Bereichs bilden, nicht variabel
Sub SummeBilden()
Dim Summe As Variant
Summe = Application.Sum(Range("C4:C10"))
Range("C11") = Summe
Range("C11").Cells.Interior.ColorIndex = 6
Range("C11").Cells.Font.Underline = xlUnderlineStyleDouble
End Sub
Danke fürs teilen 🤙
hallo noch mal,
ich habe mit entsetzen gesehen, dass sich Jemand an meinen Kommentar gehängt hatte, der gar nichts mit mir und Excel zu tun hat. Vielen lieben Dank, dass Du das gelöscht hast!
mfg
Peter Pan