Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Leere Zelle überspringen

Forumthread: Leere Zelle überspringen

Leere Zelle überspringen
21.11.2015 21:46:46
Dmytro Renner

Hallo Liebe Gemeinde.
Habe mir eine Schleife zurecht gemacht die den Wert aus Zellen einer Variable nacheinander zuordnet.
Option Explicit
Public Anr As Double
Public ST1 As integer
Public LT As Date
For ART = 3 To 500
Worksheets("Forecast").Select
For s = 9 To 20
On Error GoTo ende
ST1 = Cells(ART, s).Value
Ende:
Next
Next
leider sind manche Zellen leer(Exportdatei). Dann bekomme ich ein Typenunverträglichkeitsproblem da sich der integer mit der leeren Zelle nicht verträgt.
Meine Idee ist zu überprüfen ob die Zelle Leer ist.
If Cells(ART, s).Value = Empty Then
GoTo ende
End If
leider klappt das mit der Erkennung nicht.
Habt Ihr eine Idee wie das Problemchen zu lösen ist???
Vielen Dank!!!

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zelle überspringen
21.11.2015 21:56:11
Sepp
Hallo Dmytro,
die Schleife scheint mir ziemlich sinnbefreit!
Was möchtest du den erreichen?
Gruß Sepp

AW: Leere Zelle überspringen
21.11.2015 22:17:04
Dmytro Renner
Hallo Sepp.
Sorry habe nur die Problemstelle abgebildet.
Die Schleife soll in einer Tabelle erst die Artikelnummern und die Stückzahlen auslesen. Anschließend werden diese in weiteren Modulen verarbeitet.
bei den Stückzahlen ST1 sind manche Zellen leer und dann kommt der Fehler 13
Gruß
Dmytro

Anzeige
AW: Leere Zelle überspringen
21.11.2015 22:50:12
Sepp
Hallo Dmytro,
dann prüfe auf Zahlen.
With Worksheets("Forecast")
  For ART = 3 To 500
    For s = 9 To 20
      If IsNumeric(.Cells(ART, s)) Then
        ST1 = .Cells(ART, s).Value
        '...
      End If
    Next
  Next
End With

Gruß Sepp

Anzeige
AW: Leere Zelle überspringen
21.11.2015 23:08:46
Dmytro Renner
Hallo Sepp,
Super Lösung.!!!
Habe kurz getestet und alles lief Fehlerfrei!!!
Vielen Dank für die schnelle und sehr kompetente HILFE!!
Gruß
Dmytro Renner

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Leere Zellen in Excel überspringen


Schritt-für-Schritt-Anleitung

Um in Excel leere Zellen zu überspringen und damit Fehler wie Typenunverträglichkeitsprobleme zu vermeiden, kannst du folgendermaßen vorgehen:

  1. Öffne dein Excel-Dokument und gehe zu dem Arbeitsblatt, in dem du die Daten verarbeiten möchtest.

  2. Öffne den VBA-Editor (drücke ALT + F11).

  3. Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (dein Dokument)" > Einfügen > Modul.

  4. Gib den folgenden Code ein:

    Option Explicit
    Public Anr As Double
    Public ST1 As Integer
    Public LT As Date
    
    Sub LeereZellenUeberspringen()
       Dim ART As Long
       Dim s As Long
    
       With Worksheets("Forecast")
           For ART = 3 To 500
               For s = 9 To 20
                   If IsNumeric(.Cells(ART, s).Value) Then
                       ST1 = .Cells(ART, s).Value
                       ' Hier kannst du weitere Verarbeitung hinzufügen
                   End If
               Next s
           Next ART
       End With
    End Sub
  5. Schließe den VBA-Editor und führe das Makro aus, um die leeren Zellen zu überspringen.


Häufige Fehler und Lösungen

  • Fehler 13: Typenunverträglichkeit: Dieser Fehler tritt auf, wenn der Code versucht, einen Wert einer leeren Zelle zuzuweisen. Stelle sicher, dass du mit IsNumeric überprüfst, ob die Zelle einen Wert enthält.

  • Leere Zellen werden nicht erkannt: Achte darauf, dass du die If-Bedingung korrekt platzierst, um leere Zellen zu überspringen.


Alternative Methoden

Wenn du eine alternative Methode zum Überspringen leerer Zellen ausprobieren möchtest, kannst du auch die Filter- oder Sortierfunktion von Excel verwenden, um nur die nicht leeren Zellen anzuzeigen. Eine weitere Möglichkeit ist, eine Formel zu verwenden, die nur nicht-leere Zellen in eine separate Liste überträgt.


Praktische Beispiele

  1. Daten über Artikelnummern und Stückzahlen: Angenommen, du hast eine Liste von Artikelnummern in Spalte A und Stückzahlen in Spalte B. Du kannst das oben genannte VBA-Skript modifizieren, um nur Stückzahlen zu verarbeiten, die nicht leer sind.

  2. Dynamische Bereiche: Wenn du mit dynamischen Bereichen arbeitest, kannst du die UsedRange-Eigenschaft verwenden, um sicherzustellen, dass du nur die relevanten Zellen in deinem Arbeitsblatt bearbeitest.


Tipps für Profis

  • Makros optimieren: Reduziere die Anzahl der Selektierungen in deinem Code (Worksheets("Forecast").Select), um die Ausführungsgeschwindigkeit zu erhöhen.

  • Fehlerbehandlung: Implementiere eine Fehlerbehandlungsroutine, um unerwartete Fehler elegant abzufangen. Zum Beispiel:

    On Error Resume Next
  • Verwendung von Application.ScreenUpdating: Setze Application.ScreenUpdating = False, um das Flackern des Bildschirms während der Ausführung des Makros zu vermeiden.


FAQ: Häufige Fragen

1. Was mache ich, wenn ich eine andere Excel-Version habe? Die oben genannten Schritte funktionieren in den meisten modernen Excel-Versionen (Excel 2010 und neuer). Bei älteren Versionen kann es zu Abweichungen kommen.

2. Wie kann ich leere Zellen in einer bestimmten Zeile ignoriere? Du kannst die Schleife so anpassen, dass sie nur die relevanten Zeilen durchläuft, indem du die Start- und Endwerte änderst.

3. Wie kann ich die Ergebnisse in einer neuen Tabelle speichern? Du kannst den Code anpassen, um die Ergebnisse in eine neue Tabelle zu schreiben, indem du die Worksheets.Add-Methode verwendest.

Beliebteste Forumthreads (12 Monate)

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