Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1644to1648
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
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

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

330 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
Ribbon-DropDown-Listenfeld variabel füllen?
Kasimir

Hallo an alle!
Ich habe da mal eine Frage bezüglich der Excel 2007 Ribbons.
Zum Verständnis, ich habe eine xls-Datei, in der ich beim Starten eine neue Symbolleiste erzeuge. Diese neue Symbolleiste hat u.a. ein msoControlComboBox, die ich über eine Schleife mit bestimmten Tabellenblattn...
17.01.2009 07:23:00
Thread-ID: 1040862
3 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

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
10
1
15
3
2
3
2
9
5
2
3
7
2
5
11
3
5
2
5
2
2
6
7
1
2