Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

in VBA Null, "", und 0 richtig erkennen

Forumthread: in VBA Null, "", und 0 richtig erkennen

in VBA Null, "", und 0 richtig erkennen
04.07.2008 19:45:00
Karsten
Hallo VBA Freaks,
in meiner Tipprundentabelle soll allen Mannschaften, die noch nicht gespielt haben, 0 Punkte zugewiesen werden. die Zellen sind als Zahl ohne Dezimalstellen formatiert. Nun versuche ich, genau diese Konstellation abzufragen (Erster teil der If Abfrage). Der zurückgegebene Wert ist aber immer 0. Somit wird dieser Teil der Abfrage immer übersprungen. Hat jemand eine Lösung?
Hier nun die Zeilen meines VBA-Codes (zum Verständnis etwas vereinfacht)
'Bei Spieltagen , die nur zum Teil gespielt sind (Freitag ein Spiel, Samstag 6 Spiele, Sonntag 2 Spiele)
'die Punkte der Mannschaften auf Null setzen, die noch nicht gespielt haben
If IsNull(Zelle1)) Then
Punkte1 = 0
Punkte2 = 0
Else
'Punkte berechnen
If TG1 > TG2 Then Punkte1 = 3
If TG1 If TG1 = TG2 Then
Punkte1 = 1
Punkte2 = 1
End If
End If
Vielen Dank für die Anregungen/Lösungen im Vorraus
Gruß Karsten

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in VBA Null, "", und 0 richtig erkennen
04.07.2008 20:04:23
Reinhard
Hi Karsten,

Punkte1 = (1 - 2 * (TG1 > TG2) - 2 * (TG2 > TG1)) * ((Range("A1") * 1  0) * -1)
Punkte2 = Punkte1


Gruß
Reinhard

AW: in VBA Null, "", und 0 richtig erkennen
04.07.2008 20:15:30
Karsten
Hallo Reihard,
ich verstehe diese Formel nicht. Kannst Du das mal inmeinen Code einbauen?
Gruß Karsten

Anzeige
AW: in VBA Null, "", und 0 richtig erkennen
04.07.2008 20:20:08
Reinhard
Hi Karsten,
in deinen Code einbauen geht nicht, der Zweizeiler ersetzt deinen Code
Gruß
Reinhard

AW: in VBA Null, "", und 0 richtig erkennen
04.07.2008 20:50:42
Karsten
Hallo Reinhard,
hier nun etwas ausführlicher.
Ich lese aus bestimmten Zellen die Ergebnisse des aktuellen Bundesligaspieltages aus und übergebe diese an ein Array. Beim Auslesen der Ergebnisse bekomme ich dann für diejenigen Begegnungen , die noch nicht gespielt wurden und ich auch keine Werte im Sheet eingetragen habe immer eine 0 zurück.
Wenn eine Spielpaarung noch nicht stattgefunden hat, dann soll meine VBA-Prozedur 0 Punkte für die Vereine x und Vereine y im Array speichern. Hier speichert mir die VBA-Prozedur aber immer die Ziffer 1. Weil diese beiden Nullen (0) ein Unentschieden vortäuschen, für ein Spiel, welches noch gar nicht stattgefunden hat. Somit wird für beide Vereine eine 1 als Punkt vergeben.
Das soll nicht sein, Ich erwarte hier eine 0 als Punkt für die beiden Vereine.
ich weiß nicht, ob der VBa-Code filfreich ist, aber ich stelle ihn mal zur Verfügung.

Public Function Spieltage_lesen(a, b, c, d, f)
'Spieltage 1 bis zum aktuellen Spieltag vom Sheet "Master" lesen
Debug.Print "k", "Spt", "TG", "TK", "TD", "Verein"
If Sheets("Master").Visible = False Then
Sheets("Master").Visible = True
Aktuelles_Sheet_ausblenden
'Sheets("Master").Select
End If
'Spiele vom Sheet Master einlesen
If a = 1 Then 'Spieltage 1-17 bzw. 18-34
a = 1
Else
a = 18
End If
k = 1 'Variablen innerhalb eines Spieltages auf eins setzen
For x = 4 To 220
With myErgebnis(a)
.Verein(k) = Cells(x, b)
.TG(k) = Cells(x, d)
.TK(k) = Cells(x, f)
.TD(k) = .TG(k) - .TK(k)
Debug.Print k, a, .TG(k), .TK(k), .TD(k), .Verein(k)
k = k + 1 'Variablen innerhalb eines Spieltages um eins erhöhen
.Verein(k) = Cells(x, c)
.TG(k) = Cells(x, f)
.TK(k) = Cells(x, d)
.TD(k) = .TG(k) - .TK(k)
Debug.Print k, a, .TG(k), .TK(k), .TD(k), .Verein(k)
'Nur bis zum aktuellen Spieltag einlesen
'fehlt noch
'Bei Spieltagen , die nur zum Teil gespielt sind (Fr/Sa/So)
'die Punkte auf Null setzen, bei den Mannschaften, die noch nicht gespielt haben
If IsNull(.TG(k - 1)) Then
.Punkte(k - 1) = 0
.Punkte(k) = 0
Else
'Punkte berechnen
If .TG(k - 1) > .TG(k) Then .Punkte(k - 1) = 3
If .TG(k - 1)


Anzeige
AW: in VBA Null, "", und 0 richtig erkennen
08.07.2008 14:23:50
ede
hallo,
dann schau Dir mal die Funktion IsEmpty() an!
Aus der Hilfe:
IsEmpty-Funktion (Beispiel)
In diesem Beispiel wird die IsEmpty-Funktion verwendet, um zu bestimmen, ob eine Variable initialisiert wurde.
Dim Var1, Test1
Test1 = IsEmpty(Var1) ' Liefert True.
Var1 = Null ' Null zuweisen.
Test1 = IsEmpty(Var1) ' Liefert False.
Var1 = Empty ' Empty zuweisen.
Test1 = IsEmpty(Var1) ' Liefert True.
Gruss
FE
Anzeige
;

Forumthreads zu verwandten Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Win8_Office2013: Zugriff auf Access per VBA Excel
Heinrich

Hallo liebe Herbers-Forum-Gemeinde!
Unter Win7 und mit Office 2010 funktioniert der folgende Code wunderbar, um per VBA Excel auf eine Access DB (.mdb) zuzugreifen (in diesem Fall einen Datensatz einfügen).
Unter Win8 und mit Office 2013 bekomme ich jedoch eine Fehlermeldung "Provider n...
28.05.2014 08:47:02
Thread-ID: 1363771
6 Beiträge
VBA excel Makro If-Schleife kürzen,if>30,rot mark
braun

Guten Morgen,
ich habe folgende zwei Makros erstellt:
Sub Makro15_Differenzen_markieren() 'Markiert Zellen rot, wenn Differenzen > 30 ActiveSheet.Select 'Startzeile startzeile = 3 'Spalte die geprüft wird Spalte = 83 startzeile2 = 3 Letzte_Zeile = Range(Cells(65536, Spalte), Cells(65...
09.12.2014 11:38:16
Thread-ID: 1396958
7 Beiträge
Null und Bindestrich ergänzen für richtige Nummer
Bekks

Hallo zusammen,
ich habe eine Excel-Liste in der Handynummern stehen.
Dabei sind einige Eingaben mit einer Null und ohne Bindestrich gemacht worden, sodass Excel die Null am Anfang entfernt.
Nun würde ich gerne mittels VBA die Spalte überprüfen und anpassen lassen.
Inhaltlich wü...
16.07.2016 18:12:28
Thread-ID: 1504897
5 Beiträge
VBA If Then für 120 Namen
Becker

Hallo Zusammen,
hoffe es gibt eine Lösung!
Muß ich für jede If Then funktion in VBA eigenen Block schreiben?
es sind insgesamt 120 Namen für die ich If Then benutzen möchte, gibt es eine möglichkeit etwas am Code zu sparen?
hier der Code:
~f Private Sub TextBox1_Exit(ByVal...
14.01.2017 09:06:38
Thread-ID: 1534963
10 Beiträge
VBA Differenz 2010 vs 365
AlterDresdner

Liebe Gemeinde,
beiliegendes Makro (Schaltfläche Drucken unten) funktioniert in 2010 perfekt, die Werte werden in das Blatt Ladenverkauf übertragen.
Unter Excel365 wird nichts übertragen.
Kann bitte jemand die Ursache finden und beheben? Ich habe kein 365.
Dieser Thread ist die...
27.01.2017 20:35:05
Thread-ID: 1537923
5 Beiträge
VBA Kombi If Datum vor 2019 AND ...
Anja

Hallo zusammen,
ich brauche einen VBA Code der mit folgendes Problem löst:
Ich möchte Spalte A (Datum) durchsuchen und Zellen finden, die mit einem Datum vor dem 01.01.2019 deklariert sind. Wenn ich ein solches Datum finde, soll der Code in der Zelle rechts (Spalte B) daneben überprüfen...
07.06.2019 10:07:23
Thread-ID: 1696648
3 Beiträge
VBA: Trendlinie mit erzwungendem Nulldurchgang
Manuela

Hallo zusammen,
meine Frage:
Ich habe zwei Wertebereiche definiert, je mit den X- und den Y-Werten einiger Punkte.
Nun möchte ich gerne einen linearen Trend errechnen lassen, mit erzwungendem Nulldurchgang!
Wichtig ist dieser erzwungende Durchgang und die Ausgabe der Steigung!
...
13.06.2005 16:13:35
Thread-ID: 623472
2 Beiträge
Überschriften per VBA übernehmen
Wolfgang

Hallo*
der folgende "Teilcode" bewirkt wohl, dass die Überschrift in Zeile 1 in ein jeweils zu druckendes Blatt übernommen wird. Wie stelle ich ihn um, wenn ich direkt in der Arbeitsmappe erreichen möchte, dass die Überschrift in ein jeweils (per VBA) neu angelegtes Tabellenblatt übernommen...
25.08.2005 16:47:28
Thread-ID: 658119
3 Beiträge
doppeltet Überschriftenzeilen per VBA löschen
{mskro}

Hallo Excelfreunde,
ich benötige wieder mal eure Hilfe.
Kann mir bitte jemand sagen, wie ich am schnellsten per VBA doppelte Überschriftenzeilen löschen kann. Mit Einlesen der Zelle "A1" und einer Schleife bis "A?" = OK, das bekomme ich hin. Aber geht das vielleicht auch schneller und o...
09.01.2008 13:41:18
Thread-ID: 940066
14 Beiträge
Excel VBA Dropdown if cell is not empty
Clark
Guten Tag,
ich möchte folgendes in VBA umsetzen:
Es soll geprüft werden ob sich im Zellbereich ab D3 etwas befindet, wenn ja soll es ein Dropdown in den Zellbereich ab J3 schreiben.
Jedes mal wenn man in den Zellbereich ab D3 (also D4, D5 usw.) etwas reinschreibt soll automatisch bei der...
13.10.2022 13:53:23
Thread-ID: 1902649
2 Beiträge
vba: iif und nothing
Joschi Witchcraft
Hallo Forum,

warum bringt folgender Befehl einen Laufzeitfehler 91?

Spalte = IIf(FindRange Is Nothing, 0, FindRange.Row)

Wenn die Bedingung "nothing" nicht erfüllt ist, wird der richtige Wert bereitgestellt.

Gruß Joschi

15.03.2023 15:43:41
Thread-ID: 1924179
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Null, "", und 0 in VBA richtig erkennen

Schritt-für-Schritt-Anleitung

Um sicherzustellen, dass Du mit Null, "", und 0 in Excel VBA korrekt umgehst, befolge die nachstehenden Schritte:

  1. Variablen deklarieren: Stelle sicher, dass Du die Variablen in Deinem VBA-Code korrekt deklarierst. Verwende Dim für Variablen wie Punkte, TG, etc.

    Dim Punkte1 As Integer
Dim Punkte2 As Integer

  2. Werte abfragen: Überprüfe, ob eine Zelle leer ist oder einen Nullwert enthält. Verwende dazu die Funktion IsNull() oder IsEmpty().

    If IsNull(Zelle1) Then
   Punkte1 = 0
   Punkte2 = 0
End If

  3. Null-Werte behandeln: Achte darauf, dass Du bei der Verwendung von 0 und Null in VBA den Unterschied verstehst. 0 ist ein numerischer Wert, während Null ein Zustand ist.

  4. Bedingte Abfragen: Implementiere Bedingungen, um sicherzustellen, dass die richtigen Werte zugewiesen werden. Zum Beispiel:

    If TG1 > TG2 Then
   Punkte1 = 3
ElseIf TG1 = TG2 Then
   Punkte1 = 1
   Punkte2 = 1
End If

  5. Debugging: Verwende Debug.Print, um den Status Deiner Variablen während der Ausführung zu überwachen und mögliche Fehler zu erkennen.

Häufige Fehler und Lösungen

  • Fehler: Rückgabe von 0 statt Null
    Wenn Deine Abfrage immer 0 zurückgibt, überprüfe, ob die Zelle tatsächlich Null oder leer ist. Verwende IsEmpty() zusätzlich zu IsNull().

  • Lösung: Null zuweisen
    Wenn Du sicherstellen möchtest, dass 0 als Wert für nicht gespielte Spiele gesetzt wird, solltest Du den Code wie folgt anpassen:

    If IsNull(TG1) Then
   Punkte1 = 0
   Punkte2 = 0
End If

  • Fehler: Falsche Zuweisung bei Unentschieden
    Achte darauf, dass Du die Bedingungen für Unentschieden korrekt überprüfst, um fälschlicherweise 1 Punkte zu vergeben.

Alternative Methoden

  1. Verwendung von IsEmpty(): Statt IsNull() kannst Du auch IsEmpty() verwenden, um festzustellen, ob eine Variable oder Zelle leer ist.

    If IsEmpty(Zelle1) Then
   Punkte1 = 0
End If

  2. Direkte Zuweisung: Anstelle von bedingten Abfragen kannst Du Werte direkt zuweisen, wenn Du sicher bist, dass die Zelle leer ist.

    Punkte1 = IIf(IsNull(Zelle1), 0, Punkte1)

Praktische Beispiele

  • Beispiel für die Punktevergabe:

    If IsNull(.TG(k - 1)) Then
   .Punkte(k - 1) = 0
   .Punkte(k) = 0
Else
   If .TG(k - 1) > .TG(k) Then .Punkte(k - 1) = 3
   If .TG(k - 1) < .TG(k) Then .Punkte(k) = 3
End If

  • Unentschieden prüfen:

    If .TG(k - 1) = .TG(k) Then
   .Punkte(k - 1) = 1
   .Punkte(k) = 1
End If

Tipps für Profis

  • Nutze die Visual Basic-Funktion IsNull() gezielt, um sicherzustellen, dass Du nur mit echten Nullwerten arbeitest.
  • Vermeide die Verwendung von 0# für die Überprüfung von Nullwerten; dies kann zu Verwirrung führen.
  • Halte Deinen Code sauber und gut dokumentiert, um zukünftige Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Was ist der Unterschied zwischen Null und Empty in VBA?
Null repräsentiert einen Zustand, bei dem eine Variable keinen Wert hat, während Empty anzeigt, dass eine Variable noch nicht initialisiert wurde.

2. Wie kann ich überprüfen, ob eine Zelle in Excel VBA leer ist?
Verwende IsEmpty() oder IsNull() in Kombination mit If-Abfragen, um den Status der Zelle zu überprüfen.

3. Was mache ich, wenn mein Code immer 0 zurückgibt?
Überprüfe die Abfragen und stelle sicher, dass die Zellen, die Du überprüfst, tatsächlich den erwarteten Wert enthalten. Verwende Debugging-Methoden, um die Werte während der Ausführung zu beobachten.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige