Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.11.2025 14:48:20
Links funktionieren nur bei ganzer Tabelle, nicht bei Auszug
03.11.2025 12:49:44
Zählenwenn verwenden über VBA mit einem ExcelNamen
03.11.2025 09:55:38
VBA: Notiz zu einer Zelle hinzufügen funktioniert nicht
02.11.2025 19:45:49
VBA Abfrage über Daten aus CSV
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
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zellen ignorieren

Forumthread: Leere Zellen ignorieren

Leere Zellen ignorieren
18.09.2018 09:26:58
alex_de_souza
Hallo,
ich habe folgenden Code, der auch wunderbar funktioniert hat: 
Private Sub Workbook_Open()
Dim rngZelle As Range
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Tuncel")
For Each rngZelle In wks.Range("H3:H40")
If Month(rngZelle.Value) = Month(Date) And Day(rngZelle.Value) = Day(Date) Then
MsgBox rngZelle.Offset(, -5).Value & " hat heute Geburtstag!", vbInformation, " _
Geburtstag!"
End If
Next rngZelle
Set wks = Nothing
End Sub
Seit kurzem erhalte ich jedoch immer einen Laufzeitfehler 13. Ich habe festgestellt, dass der Fehler immer dann kommt, wenn in dem Bereich H3:H40 eine leere Zelle vorhanden ist. Ist mir bisher nicht aufgefallen, da ich keine leere Zelle hatte. Nun ist das jedoch der Fall.
Kann mir jemand helfen, um bei dieser "Abfrage" die leeren Zellen zu ignorieren, damit ich diesen Fehler nicht mehr bekomme?
Vielen Dank im Voraus.
Lg
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zellen ignorieren
18.09.2018 09:36:57
Torsten
Hallo alex,
ich hab das mal nachgestellt. Aber bei mir laeuft es wunderbar auch mit Leerzellen.
Keine Fehlermeldung
Gruss Torsten
Auch bei mir ging es - owT
18.09.2018 09:38:19
Bernd
AW: Auch bei mir ging es - owT
18.09.2018 09:54:45
alex_de_souza
Hallo Torsten,
danke für die Rückmeldung. Ist komisch, bei mir hat es wie beschrieben bis zu der leeren Zelle funktioniert. Seitdem geht es nicht mehr. Wenn ich in die leere Zelle eine 0 eintrage, geht es wieder. Also liegt es definitiv an der leeren Zelle.
Lg
Anzeige
AW: Leere Zellen ignorieren
18.09.2018 09:43:04
Gerd
Hola Alex,
hast du Leerzellen mit Texten verwechselt? 
Private Sub Workbook_Open()
Dim rngZelle As Range
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Tuncel")
For Each rngZelle In wks.Range("H3:H40")
If IsDate(rngZelle.Text) Then
If Month(rngZelle.Value) = Month(Date) And Day(rngZelle.Value) = Day(Date) Then
MsgBox rngZelle.Offset(, -5).Value & " hat heute Geburtstag!", vbInformation, _
"Geburtstag!"
End If
End If
Next rngZelle
Set wks = Nothing
End Sub
Gruß Gerd
Anzeige
AW: Leere Zellen ignorieren
18.09.2018 09:55:39
alex_de_souza
Hallo Gerd,
vielen Dank für die Rückmeldung.
ich habe deinen Code versucht. Leider tut sich nichts. :(
Lg
AW:Gespeichert? o.T.
18.09.2018 10:00:58
Gerd
AW: AW:Gespeichert? o.T.
18.09.2018 10:03:12
Torsten
versuchs mal so:
Sub geburtstag()
Dim rngZelle As Range
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Sheet5")
For Each rngZelle In wks.Range("H3:H40")
If rngZelle Is Nothing Then
GoTo Naechste
Else
If Month(rngZelle.Value) = Month(Date) And Day(rngZelle.Value) = Day(Date) Then
MsgBox rngZelle.Offset(, -5).Value & " hat heute Geburtstag!", vbInformation, "  _
Geburtstag!"
End If
End If
Naechste:    Next rngZelle
Set wks = Nothing
End Sub
Gruss Torsten
Anzeige
AW: AW:Gespeichert? o.T.
18.09.2018 10:04:14
Torsten
sorry, du musst den Tabellennamen wieder abaendern. Hab den geaendert zum Versuch in meiner Tabelle
AW: AW:Gespeichert? o.T.
18.09.2018 10:07:36
Torsten
und nochmal sorry :-)
aendere die Zeile 

If rngZelle Is Nothing Then
um in 

If rngZelle = "" Then

Anzeige
Frage ab If Isdate(rngZelle) then
18.09.2018 10:11:12
Matthias
Hi
For Each rngZelle In wks.Range("H3:H40")
If IsDate(rngZelle) Then
If Month(rngZelle.Value) = Month(Date) And Day(rngZelle.Value) = Day(Date) Then
MsgBox rngZelle.Offset(, -5).Value & " hat heute Geburtstag!", vbInformation, "    _
Geburtstag! """
End If
End If
Next rngZelle
Allerdings funktioniert dein erster Code auch ohne Probleme.
Gruß Matthias
Anzeige
;

Forumthreads zu verwandten Themen

Gültigskeitsprüfung mit leerer Zelle
Franz

Guten Abend!
Habe 9 Spalten mit Dropdowns gefüllt. Wie bekomme ich den nachfolgenden Code (Quelle: Archiv) eleganter hin, dh. ohne for next Schleife und dadurch schneller. Der Datenbereich heistt "Printarea".
Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer For i =...
14.09.2008 20:56:00
Thread-ID: 1009627
11 Beiträge
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Gültigkeitsliste ohne Zellenbereich
Reinhard

Hallo Wissende,
Sub Makro1() With Range("P2").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="a;b;c" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput...
02.11.2008 16:48:00
Thread-ID: 1021179
4 Beiträge
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Zeile mit optisch leerer Zelle löschen
Werner

VBA-Level: befriedigend
Hallo Freunde,
eine Tabelle (Worksheet) hat mehrere Spalten, beginnend ab Spalte A. Spalte A enthält Stringwerte.
Einige der Zellen in Spalte A sind optisch leer.
Nun sollen alle diejenigen Zeilen, bei denen die Zellen in Spalte A optisch leer sind, gelös...
13.03.2009 11:21:32
Thread-ID: 1059795
10 Beiträge
Wert wird nicht angezeigt
Markus

Hallo,
habe folgendes Problem:
Ich lasse mir einen Wert per VBA ausrechnen und dann mit Range... im Tabellenblatt anzeigen.
Das Problem ist, dass der Wert nicht angezeigt wird.
Wenn ich denn Programmcode per Einzelschritt debugge, dann wird der Wert komischerweise angezeigt!
...
20.07.2009 11:00:55
Thread-ID: 1089939
6 Beiträge
Geöffnete Datei wird nicht angezeigt...
Ruediger

Hallo zusammen,
ich habe eine Datei - mit einigen Verknüpfungen auf eine andere Datei - versuchen wollen zu öffnen. Ich werde auf gefragt, ob ich aktualisieren will oder nicht. Drücke ich aktualisieren als auch nicht aktualisieren, wird die Datei zwar geöffnet, aber nicht angezeigt.
Wo...
22.07.2009 17:02:42
Thread-ID: 1090605
3 Beiträge
Anzeige
Userform wird nicht bei allen angezeigt
Rudolf

Hallo
Beim öffnen einer grossen Excel-Arbeitsmappe wird u.a. eine Userform auch geöffnet:
folgender Code:
Private Sub Workbook_Open() On Error Resume Next UserForm2.Show (0) End Sub Leider aber wird diese Userform (die die Navigation und weitere Schaltflächen für die Arbeitsmappe e...
26.01.2010 11:58:02
Thread-ID: 1133017
8 Beiträge
Anzeige
Alle roten zellen ohne Duplikate auflisten
Markus

Hallo zusammen,
ich habe in Tabelle 2 Spalte A, und in Tabelle 3 verstreut Zellen die eine Nummer enthalten.
Wie kann ich sämtliche Felder die rot markiert sind, in Tabelle 3 Spalte M absteigend sortiert ohne doppelte Eintäge auflisten?
Ich hoffe jemand kann helfen.
Gruß Markus<...
18.02.2010 13:54:14
Thread-ID: 1139505
6 Beiträge
Liste ohne Leerzellen
Harald

Hallo zusammen,
folgendes Problem:
In Spalte A:A habe ich in manche Leerzellen.
z.B.:
A1=1234abcd
A2= leer
A3= leer
A4= 4321dcba
A5= leer
usw.
Jetzt möchte ich gern alle gefüllten Zellen in Spalte B:B untereinander stehen haben, also :
B1= 1234abcd
24.02.2010 17:01:25
Thread-ID: 1141194
12 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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