Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable - wenn leer dann was anderes machen

Forumthread: Variable - wenn leer dann was anderes machen

Variable - wenn leer dann was anderes machen
23.11.2005 10:42:06
Darren
Ich habe eine Variable N die manchmal ein Wert "leer" ausgibt, d.h. es war nichts in der Zelle zu finden die importiert werden soll.
Gibt es einen Code der nur dann was macht, wenn es eintritt?
Z.B. möchte ich, wenn die Variable N leer ist, also kein Wert hat, dann soll die Variable i = 4 sein.
Sollte er aber ein Wert in der Variable haben, dann soll er i = 5 setzen
Vielleicht trifft sowas wie der Befehl "Case" ein ?
Grüße
Darren
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variable - wenn leer dann was anderes machen
23.11.2005 10:58:40
Born
probier mal: =wenn(istleer(N);i=4;i=5)
AW: Variable - wenn leer dann was anderes machen
23.11.2005 11:01:40
Darren
Hi,
sorry, dass kann ich nciht so richtig versehen. Ist das ein VBA-Code oder rein Excel?
Ich brauche einen für VBA in Excel.
GRüße
AW: Variable - wenn leer dann was anderes machen
23.11.2005 11:12:42
Mag
N = Sheets("Tabelle1").Cells(1, 1).Value
If N = "" Then i = 4 Else i = 5
Anzeige
AW: Variable - wenn leer dann was anderes machen
23.11.2005 11:15:27
Harald
Hi,
so vielleicht ?

Sub test1()
N = Cells(1, 1).Value
If IsEmpty(N) Then
i = 4
Else: i = 5
End If
MsgBox i
End Sub

Gruss Harald
gelöst
23.11.2005 11:25:52
Darren
Danke!
Danke für Rückmeldung und die Variante
23.11.2005 11:33:21
Harald
...mit Select Case

Sub test2()
N = Cells(1, 1)
Select Case N
Case Is = "", " "
i = 4
Case Is <> 0
i = 5
End Select
MsgBox i
End Sub

Gruss Harald
Anzeige
nochmals DANKE
23.11.2005 11:49:18
Darren
Super, ´danke für den Nachschub mit dieser Variante! Danke!
;

Forumthreads zu verwandten Themen

Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
wenn a1 leer, dann ganze zeile löschen
Hajo
Hallo Andreasich vermute mal Du kennst Dich mit VBA aus und kannst eins der folgenden Makros Dir anpassen.129. löschen wenn Spalte A kein Datum enthält
folgender Vorschlag (die Spalte A wird auf Datumsinhalte überprüft):
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step –1
If Not IsDa...
16.04.2002 20:58:38
Thread-ID: 113877
5 Beiträge
Anzeige
Wenn übernomme Zelle leer - dann Ziel auch leer
Werner

Hallo,
ich habe eine hoffentlich einfache Frage:
Wenn ich in Zelle B10 schreibe =B6, so wird ja der Inhalt von B6 übernommen.
Wenn B6 aber leer ist, dann soll in B10 keine null erscheinen sondern diese soll auch leer bleiben.
Wie kann ich dies tun (außer über die Einstellungen v...
01.03.2010 11:58:44
Thread-ID: 1142333
3 Beiträge
Wenn alle TextBox leer dann Exit Sub
frank

Hallo
Bei wenigen TextBox prüfe ich den Inhalt so
If TextBox3.Text = "" And _
TextBox4.Text = "" And _
TextBox32.Text = "" And _
TextBox33.Text = "" Then
Exit Sub
Bei vielen TextBox wird es doch eine lange Liste.
Die Prüfung mit einer Schleife krieg ich nicht hin...
13.12.2010 17:49:31
Thread-ID: 1191269
6 Beiträge
Wenn Zelle leer dann rechte Zelle
Eva-Maria

Hallo ihr Spezialisten,
Ich habe da mal eine Frage.
Gibt es eine Formel für folgende Ausgangslage:
Wenn in Tabelle2 ein Datum von C3 bis P3 steht das mit Tabelle1 C4 überein stimmt dann soll in der Tabelle1 ZelleA7 eine Zahl erscheinen die in Tabelle2 C3 steht. Wenn P3 erreicht ist...
08.05.2011 23:34:16
Thread-ID: 1213567
6 Beiträge
Anzeige
Wenn Wert in Spalte A sich aendert dann Leer Zeile
buliwyf

Hallo Freunde,
ich hoffe erneut ihr koennt mir helfen. Fuer mich eine nicht wirklich leichte Aufgabe.
Mit wenn...Funktionen komme ich da nicht weit.
Folgendes: ich habe ein Macro:
Sub Auto_open() Dim strDatei As String, strPfad As String, sFile As String Dim strText, arrHeader,...
12.09.2011 12:26:49
Thread-ID: 1229453
9 Beiträge
wenn Zeile nicht leer Dann ausgeben
TobHan

Guten Tag,
ich habe nun meine Excel-Datenbank verfeinert und habe nun folgendes Problem.
Anlage:
https://www.herber.de/bbs/user/77768.xls
Ich gebe die Privatkm nur aus, wenn KM mehr als 0.
Auf dem Sheet "Privatkm" entstehen dann aber auch leerzeilen.
Ich will nun auf ei...
01.12.2011 12:59:18
Thread-ID: 1240234
3 Beiträge
Wenn Combobox1 click, dann Combobox 2&3 leeren
Ingo

Hallo liebe Excelprofis,
ich habe auf UF1 drei Comboboxen, die mir nach Auswahl, die Listbox1 und verschiedene Textboxen füllt.
Wenn ich zuerst Combobox1 anklicke steht dann ein Wert zur Auswahl und die dazugehörigen Daten werden in Listbox1 geschrieben, wenn ich allerdings Combobox 2 o...
06.01.2012 15:43:46
Thread-ID: 1244933
6 Beiträge
VBA Wenn Zelle Leer dann
Philipp

Hallo,
ich habe eine Tabelle und möchte daraus automatisch eine Liste generieren.
Die Tabelle sieht in etwa so aus
A B C
1 XYZ ABC
2 Bla 23%
3 Blub 2% 7%
4 ...
Das Makro soll nun schauen ob in der Spalte A...
12.07.2012 16:29:13
Thread-ID: 1270809
3 Beiträge
Wenn-Dann-Formel mit 0 und Leerzellen
MikeM

Hallo zusammen,
ich brauche mal wieder eine zündende Idee.
Ich habe eine Wenn-Dann-Formel:
=wenn(und(A1=0;B1=0;C1=0);"x";"")
So, wenn nun aber in A1,B1,C1 ein Leerzeichen ist, verhält es sich so als wäre eine 0 drin. Aber genau das möchte ich eigentlich nicht.
0 und Leerzell...
14.03.2013 10:18:57
Thread-ID: 1303892
7 Beiträge
Bereich(Wenn Zelle leer dann Text)
Steffen

Guten Morgen,
ich hoffe Ihr könnt mir weiterhelfen.
In meiner Excel Datei möchte ich einen Bereich prüfen lassen, sobald hier eine
Formel gelöscht wird und keine Text eingegeben wurde, soll die Formel wieder gesetzt werden.
Bis jetzt sieht mein Code so aus: Private Sub Workshe...
17.10.2013 12:03:15
Thread-ID: 1334731
3 Beiträge
Anzeige
Wenn Berich leer dann Messagebox
Hans

Hallo Leute,
ich komme an einer Stelle, mal wieder, nicht weiter.
Ich möchte in VBA eine If Abfrage machen.
"WENN Bereich "TEXT" Leer dann Msgbox "Keine EIngabe im Textbereich"
Kann mir jemand weiterhelfen?
16.11.2013 09:39:02
Thread-ID: 1338746
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Variable - Wenn leer dann was anderes machen

Schritt-für-Schritt-Anleitung

  1. Öffne das VBA-Editor-Fenster: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (deine Datei)", gehe auf "Einfügen" und wähle "Modul".

  3. Kopiere den folgenden Code in das Modul:

    Sub test1()
    Dim N As Variant
    Dim i As Integer

    N = Sheets("Tabelle1").Cells(1, 1).Value
    If IsEmpty(N) Then
        i = 4
    Else
        i = 5
    End If

    MsgBox i
End Sub

  4. Führe das Makro aus: Klicke auf „Run“ oder drücke F5, um das Makro zu testen. Das Ergebnis wird in einer MessageBox angezeigt.

Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden"

    • Lösung: Stelle sicher, dass der Blattname in Sheets("Tabelle1") korrekt ist und das Blatt existiert.

  • Fehler: "Typenkonflikt"

    • Lösung: Achte darauf, dass die Variable N als Variant deklariert ist, um unterschiedliche Datentypen zuzulassen.

  • Fehler: Die MessageBox zeigt nicht das erwartete Ergebnis.

    • Lösung: Überprüfe, ob die Zelle, auf die du zugreifst, tatsächlich leer ist oder einen Wert enthält.

Alternative Methoden

Eine alternative Methode zur Überprüfung, ob eine Zelle leer ist, ist die Verwendung von Select Case:

Sub test2()
    Dim N As Variant
    Dim i As Integer

    N = Sheets("Tabelle1").Cells(1, 1).Value
    Select Case N
        Case Is = "", " "
            i = 4
        Case Is <> 0
            i = 5
    End Select

    MsgBox i
End Sub

Diese Methode kann in komplexeren Szenarien nützlich sein, wenn Du mehrere Bedingungen prüfen möchtest.

Praktische Beispiele

  • Beispiel 1: Wenn eine Zelle in Excel leer ist, kannst du mit wennleer eine benutzerdefinierte Nachricht ausgeben:

    If IsEmpty(Sheets("Tabelle1").Cells(1, 1).Value) Then
    MsgBox "Die Zelle ist leer!"
End If

  • Beispiel 2: Du kannst auch eine Funktion erstellen, die eine Variable leeren kann:

    Sub LeereVariable()
    Dim N As Variant
    N = ""

    If N = "" Then
        MsgBox "Die Variable N ist leer."
    End If
End Sub

Tipps für Profis

  • Verwende Option Explicit am Anfang deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind. Das hilft, Fehler zu vermeiden.
  • Setze Kommentare in deinem Code, um den Überblick über die verschiedenen Schritte zu behalten.
  • Nutze Debug.Print, um Variablenwerte während der Laufzeit zu überprüfen, bevor du eine MessageBox verwendest.

FAQ: Häufige Fragen

1. Wie kann ich eine VBA-Variable leeren? Um eine Variable in VBA zu leeren, setze sie einfach auf "" oder Empty.

2. Was ist der Unterschied zwischen IsEmpty und If N = ""? IsEmpty überprüft, ob eine Variable tatsächlich keinen Wert hat, während N = "" überprüft, ob der Wert der Variablen gleich einem leeren String ist.

Beliebteste Forumthreads (12 Monate)

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