Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA WorksheetFunction SUM

VBA WorksheetFunction SUM
10.11.2021 21:49:56
Hans
Servus zusammen,
ich verzweifle ein wenig. Im folgenden Minimalbespiel soll geprüft werden ob die 4 eingegeben %-Wert zusammen genau 100% ergeben.
https://www.herber.de/bbs/user/149067.xlsm
Das funktioniert auch soweit alles, außer bei folgender Eingabe:
1. 5
2. 80
3. 5
4. 10
Ich weiß nicht woran das liegt. Habt ihr eine Ahnung?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA WorksheetFunction SUM
10.11.2021 22:56:02
ralf_b
du vergleichst integer mit double
versuch mal 

cint(cecksum) > 1
then
Das ist aber sicher keine besonders gute Lösung wenn aus einem Double ein Integer gemacht wird.
du könntest auch einfach die Textboxwerte addieren z.b. 

val = val + (TextBox8.Value * 1)
und mit 

If val > 100 Then
die Prüfung erledigen.
gruß
rb
Anzeige
AW: VBA WorksheetFunction SUM
11.11.2021 16:06:34
Hans
Vielen lieben Dank für die Infos.
Erstaunlich finde ich immer noch dass bei der Eingabe 5,80,5,10 es nicht funktioniert hat bei 5,5,80,10 schon.. naja
Hier ist die Vorgeschlagene Lösung: Getestet und für gut befunden! Danke
If (TextBox6.Value * 1) + _
(TextBox7.Value * 1) + _
(TextBox8.Value * 1) + _
(TextBox9.Value * 1) > 100 Then
MsgBox ("Eingaben sind größer 100%.")
Worksheets("TEST").Range("G31:G34") = 0
GoTo ExitSub
End If
Addition von %% zu vollständigen Davon-Werten ...
11.11.2021 01:55:39
%%
…wird auch bei %-Zahlen mit doppelter Genauigkeit oft keine 100,0% ergeben, Hans;
das ist schon üblichen Rundungsfehlern geschuldet und allgemein bekannt. Die Summe kann nur nahezu 100 sein. Deshalb wdn in statistischen Tabellen mit %-Spalten für diese auch keine Summen gebildet, sondern in einer evtl GesamtSummenZeile (aller Davon-Positionen*) wird stets nur (gerundete) 100 (ohne Dezimalen!) angegeben, auch wenn die %-Zahlen in der Spalte Dezimalen aufweisen.
* Wurden nicht alle aufgeführt, nennt man diese Darunter-Positionen (leider geht's mit diesen beiden Begriffen in der Praxis oft durcheinander), die natürlich insgesamt keine 100 ergeben müssen.
Morhn, Luc :-?
Anzeige

301 Forumthreads zu ähnlichen Themen

WorksheetFunction Match ?
chrissey

Hallo Leut,
versuche einer Variable den Wert der WF.Match zu zuweisen.
e = Application.WorksheetFunction.Match(so, Sheets("WeNr").Range("A2:A4"), 0)
Funktioniert aber nicht, weiss jmd warum ?
p.s.: Habe e als variant definiert, ist integer besser?
Grüße & viele Dank scho...
30.03.2010 09:40:59
Thread-ID: 1149296
4 Beiträge
Anzeige
Fehler bei WorksheetFunction.Match
Michael2010

Hallo allerseits,
ich verzweifel hier bald. Wir haben letzte Woche auf Office 2010 umgestellt und jetzt bleibt eine GANZ Wichtige Tabelle bei folgenden Code hängen
test = WorksheetFunction.Match(i, ArrKW)
Die Dimensonierung
ArrKW = Variant
i = integer, weil es ein Zähler ist...
05.04.2012 08:49:40
Thread-ID: 1257980
5 Beiträge
VBA Fehler abfangen
Peter

Guten Tag an alle Forumsteilnehmer,
ich habe ein kleines Problem mit folgendem Code.
ActiveSheet.Shapes("AutoShape 1").Rotation = Range("A1").Value
Wie schalte ich die Fehlermeldung aus, wenn Zelle A1 leer ist.
Würde mich freuen, wenn Ihr mir weiterhelfen könntet.
Vielen Dan...
03.03.2013 14:33:27
Thread-ID: 1302021
5 Beiträge
Anzeige
VBA Application.WorksheetFunction.Median
Lolaley

Hallo,
Ich wollte mir gern von untereinandergeschriebenen Daten pro Monat (hier jetzt nur die mit 31 Tagen) die Mediane ausrechnen lassen. Dabei kommt jetzt aber immer die Fehlermeldung:
"Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden"
Ich schätze mal, die...
11.11.2014 14:45:27
Thread-ID: 1391676
6 Beiträge
Application.WorksheetFunction.Match
Christoph

Hallo und einen schönen Abend
Meine Excel/VBA Kenntnisse reichen leider wieder einmal nicht aus und so hoffe ich auf Hilfe im Forum:
Ich habe in der Spalte A Datumswerte eingetragen.
10.10.2015
20.12.2016
30.12.2016
31.12.2016
12.01.2017
04.02.2017
06.03.2017...
15.05.2017 19:43:18
Thread-ID: 1558489
4 Beiträge
VBA, WorksheetFunction.SearchB
Rainer Quaas

Hallo Excel-User,die Häufigkeit (H) wie oft String1 in String2 vorkommt, wobei String1 * oder ? als Wildcard enthalten kann, wird durch folgende Funktion berechnet:H = Application.WorksheetFunction.SearchB(String1 , String2 , 1)Bei einer Zeichenanzahl > 32.0000 von String2 ist diese Formel nich...
04.04.2003 11:23:40
Thread-ID: 240294
4 Beiträge
VBA - Application.WorksheetFunction.Index
Markus
Hallo liebe Community,

ich versuche via Application.WorksheetFunction.Index mit Hilfe von zwei Koordinaten (x, y-Wert) Zellen gezielt anzusprechen um Werte (Value)hineinzukopieren.

Ich habe mir mit Hilfe dieser Funktion auch bereits die Werte aus dem ersten Tabellenblatt geholt und...
29.10.2003 10:16:39
Thread-ID: 330289
4 Beiträge
VBA - Application.WorksheetFunction.Index die 2.te
Markus S.
Hallo liebe Community,

ich versuche via Application.WorksheetFunction.Index mit Hilfe von zwei Koordinaten (x, y-Wert) Zellen gezielt anzusprechen um Werte (Value)hineinzukopieren.

Ich habe mir mit Hilfe dieser Funktion auch bereits die Werte aus dem ersten Tabellenblatt geholt und v...
29.10.2003 13:06:21
Thread-ID: 330461
4 Beiträge

Links zu Excel-Dialogen

TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
4
4
3
5
3
3
3
3
6
1
4
2
3
2
11
2
10
6
2
3
6
5
2