Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1432to1436
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
1432to1436
1432to1436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gleiche Zahlen nicht als gleich erkannt

Gleiche Zahlen nicht als gleich erkannt
04.07.2015 15:06:04
Flori

Hallo zusammen,
ich schreibe gerade ein Programm zur Notenverwaltung, und dort soll je nach erreichter Punktezahl die Note berechnet werden.
Die erreichten Punkte werden in der Variable punkte gespeichert, der Punktebereich für jede Note liegt zwischen note_von und note_bis.
Dies funktioniert bei allen Noten einwandfrei, nur bei Note 5 klappts einfach nicht!
Wenn ich zur Kontrolle folgende Ausgabe anschaue:
MsgBox punkte
MsgBox note5_von
MsgBox punkte = note5_von
dann zeigt es an: 7 - 7 - Falsch
Wie ist denn das möglich? Die beiden Zahlen stimmen genau überein! Und bei allen anderen Noten funktionierts ja auch?
Wäre sehr dankbar, wenn mir da jemand weiterhelfen könnte! :)

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gleiche Zahlen nicht als gleich erkannt
04.07.2015 15:11:15
Hajo_Zi
bei mir wird Wahr angezeigt. 
Option Explicit
Sub Note()
Dim Punkte As Integer
Dim Note5_Von As Integer
Punkte = 7
Note5_Von = 7
MsgBox Punkte
MsgBox Note5_Von
MsgBox Punkte = Note5_Von
End Sub

zeig den gesammten Code! o.T.
04.07.2015 15:22:10
Sepp
Gruß Sepp

zeig den gesammten Code! o.T.
04.07.2015 15:22:11
Sepp
Gruß Sepp

AW: Gleiche Zahlen nicht als gleich erkannt
04.07.2015 16:49:42
Flori
Hallo,
ich muss wohl erst mal den ganzen Coder der Funktion posten.. :)
Function BerechneNote(zelle As Range) As Integer
Dim punkte As Double
Dim note As Integer
punkte = zelle.Value
'Punkte zu jeder Notenstufe bzw. Punktestufe zuordnen
Dim note1_von As Double
Dim note1_bis As Double
Dim note2_von As Double
Dim note2_bis As Double
Dim note3_von As Double
Dim note3_bis As Double
Dim note4_von As Double
Dim note4_bis As Double
Dim note5_von As Double
Dim note5_bis As Double
Dim note6_von As Double
Dim note6_bis As Double
With Worksheets("Notenschlüssel")
note1_bis = .Range("C6").Value
note1_von = .Range("D6").Value
note2_bis = .Range("C7").Value
note2_von = .Range("D7").Value
note3_bis = .Range("C8").Value
note3_von = .Range("D8").Value
note4_bis = .Range("C9").Value
note4_von = .Range("D9").Value
note5_bis = .Range("C10").Value
note5_von = .Range("D10").Value
note6_bis = .Range("C11").Value
note6_von = .Range("D11").Value
End With
With Worksheets("Notenschlüssel")
MsgBox punkte
MsgBox note5_von
MsgBox punkte = note5_von
'Bewertung mit Notenskala
If Tabelle2.OptionButton1 = True Then
If punkte >= note6_von And punkte <= note6_bis Then
note = 6
End If
If punkte >= note5_von And punkte <= note5_bis Then
note = 5
End If
If punkte >= note4_von And punkte <= note4_bis Then
note = 4
End If
If punkte >= note3_von And punkte <= note3_bis Then
note = 3
End If
If punkte >= note2_von And punkte <= note2_bis Then
note = 2
End If
If punkte >= note1_von And punkte <= note1_bis Then
note = 1
End If
Select Case punkte
Case note6_von To note6_bis
note = 6
Case note5_von To note5_bis
note = 5
Case note4_von To note4_bis
note = 4
Case note3_von To note3_bis
note = 3
Case note2_von To note2_bis
note = 2
Case note1_von To note1_bis
note = 1
End Select
End If
End With
BerechneNote = note
End Function

Anzeige
AW: Gleiche Zahlen nicht als gleich erkannt
04.07.2015 16:58:08
Sepp
Hallo Flori,
sorry, die Funktion ist doch Nonsens! Innerhalb einer Tabellen-Funktion fix auf ein anderes Blatt zu verweisen ist ja gruselig, wenn schon, dann werden die Bereiche als Argument übergeben.
Außerdem ist deine Aufgabe mit ganz einfachen Formeln zu lösen, wozu eine eigene UDF?
Zu deinem ursprünglichen Problem: Im Blatt "Notenschlüssel", Zelle D10 liegt wohl dein Problem.
Gruß Sepp

Z. B. so.
04.07.2015 17:08:46
Sepp
Tabelle1

313 Forumthreads zu ähnlichen Themen

gleiche Zahlen nicht gleich in VBA?
Christian

Guten Tag,
ich habe hier zwei Zahlen, die meiner Meinung nach gleich sind, aber laut VBA dann doch wieder nicht.....
Ein Vergleich im Tabellenblatt mit folgender Formel zeigt mir, das die Zahlen gleich sind:
=WENN(C5'zahlen alt'!C5;"nicht gleich";"gleich")
Per Makro sind die gle...
26.01.2009 17:09:00
Thread-ID: 1043950
3 Beiträge
Anzeige
Zählenwenn mit 2 Bedingungen, aber Text | Herbers Excel-Forum
Jack
Hallo zusammen,
ich habe da ein Problem, was für die Profis unter euch sicherlich leicht zu lösen ist, mir aber seit gestern Abend Kopfzerbrechen bereitet:
Wie in der Überschrift beschrieben, möchte ich, dass in einem definiertem Feld ein Zählung vorgenommen wird, sofern die Kombination 2 b...
12.01.2010 10:43:11
Thread-ID: 1129091
4 Beiträge
wenn nicht eine Textbox mehr als 0, dann Msg.Box
Wolfgang

Hallo,
ich versuche folgendes Problem in den Griff zu bekommen, schaffe es aber mit verschied. Ansätzen nicht:
Ich würde gerne bei Klicken einer Schaltfläche zunächst überprüft haben, ob nicht zumindest eine Textbox von den Textboxes13-16 mehr als 0 enthält, wenn nein, Abbruch. Wäre für...
22.02.2010 18:36:04
Thread-ID: 1140459
11 Beiträge
Anzeige
zählenwenn geht nicht
ray

Hallo,
ich möchte zählen, wieviel zellen leer sind:
So geht es nicht:
=ZÄHLENWENN(Q3:Q1295;"=""")
ergebnis ist "0". Es gibt aber in dem Bereich Zellen, wo nix drin steht.
Was mach ich falsch?
Viele Grüße aus dem sonnigen Hamburg bei 17,5 Grad
Ray
01.06.2010 14:56:55
Thread-ID: 1159844
6 Beiträge
Wenn bzw. Zählenwenn mit drei Werten
Stefan

Hallo,
ich habe jetzt schon einige Stunden hier im Forum verbracht und bin auch schon fast am Ziel. Aber eben nur fast. Mein Problem:
Ich habe eine CSV Datei, in Zelle D2 soll einer von drei Werten stehen. Geprüft werden soll die Zelle P2
D2 P2
15-08-13 Mu...
04.08.2010 22:15:33
Thread-ID: 1170532
5 Beiträge
Zählenwenn (aus nicht miteinan. verb. Zellen)
Joerschi

Hallo liebe Community,
wahrscheinlich habe ich grad einen kleinen Blackout :-(
Ich möchte aus mehreren Zellen (die nicht direkt miteinander verbunden sind/nebeneinander liegen) mit der Zählenwenn-Formel einen Wert zählen lassen. Irgendwie bekomme ich aber die Formel nicht hin...
Bsp...
07.08.2010 10:18:20
Thread-ID: 1171013
7 Beiträge
Zählen Wenn Datum und Feld nen Wert hat
anton

Hallo Zusammen,
ich möchte ein Fehlzeitenliste machen.
In einer Zeile stehen die Wochentage eines halben Jahres.
In der darunter eventuell eine Eintragung wenn jemand gefehlt hat.
Da er aus verschiedenen Gründen gefehlt haben kann, wird dort ein Kürzel eingetragen.
v für ve...
02.09.2010 22:13:32
Thread-ID: 1175547
3 Beiträge
Zählenwenn und "MittelwertWenn"
Dietmar

Hallo allerseits,
suche bisher erfolglos zwei Formeln zur berechnung von diversen Spalten (hier im Beispiel nur eine)
Einmal für die Zählung der Häufigkeit (also Anzahl2) und
einmal für die Berechnung eines Mittelwertes ... jedesmal wenn zwei Bedingungen erfüllt sind.
Rahmenbedi...
03.11.2010 16:38:30
Thread-ID: 1185025
5 Beiträge

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
2
6
3
10
3
5
4
6
2
4
5
3
3
14
4
4
4
4
4
4
3
2
5
4
2