Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zelle auf Inhalt prüfen

Zelle auf Inhalt prüfen
Lisa
Hallo zusammen, zum WE habe ich noch ein Anliegen.
Ich möchte gern ein Zellprüfung habe die besagt, wenn Zelle leer, dann geht's nicht weiter!
Also:
If Cells(1, 1) "" Then
MsgBox " Bitte Eingabe prüfen "
cells(1, 1). Activate
Elseif Cells(1, 1) "" Then
' Exit oder wie auch immer
end if
Ich habe keinen Schimmer wie ich das in meinem Tabellenblatt anstellen muss!
Hat jemand für mich eine Hilfestellung? In meiner Recherche komme ich immer wieder auf Datengültigkeit aber wie funktioniert es auf diesem Wege
Danke und ein schönes WE LISA
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Zelle auf Inhalt prüfen
21.10.2011 14:23:53
Hajo_Zi
Hallo Lisa,
schreibe
If Cells(1, 1) ="" Then

AW: Zelle auf Inhalt prüfen
21.10.2011 14:57:36
Lisa
Hallo Hajo, danke für die schnelle Antwort!
Wenn ich mit diesem Makro arbeite, dann bekomme ich zwar eine Meldung, siehe Box, aber ich kann die Zelle verlassen!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A1")
If Cells(1, 1) = "" Then
MsgBox "bitte Eingabe prüfen", vbCritical, " Eingabefehler"
End If
End Sub
Activiere ich die Zelle so wie u.g. dann bekomme ich die Meldung zweimal!
Ich kann es mir nicht erklären, hast du evtl eine Idee?
Wahrscheinlich einmal wenn ich die Zelle verlasse und einmal wenn sie neu aktiviert wird!?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A1")
If Cells(1, 1) = "" Then
Cells(1, 1).Activate
MsgBox "bitte Eingabe prüfen", vbCritical, " Eingabefehler"
End If
End Sub
LG Lisa
Anzeige
AW: Zelle auf Inhalt prüfen
21.10.2011 15:03:51
Hajo_Zi
Hallo lisa,
davon das Die Zele nicht verlassen werden soll Stand nichts im Beitrag oder Habe ich das überlesen?
Der Code sah im ersten Beitra auch noch anders aus, oder habe ich das Falsch in Erinnerung?

Option Explicit                             ' Variablendefinition erforderlich
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'    Dim Bereich As Range
'    Set Bereich = Range("A1")
If Cells(1, 1) = "" Then
MsgBox "bitte Eingabe prüfen", vbCritical, " Eingabefehler"
Application.EnableEvents = False
Range("A1").Select
Application.EnableEvents = True
End If
'    Set Berich = Nothing
End Sub

Gruß Hajo
Anzeige
AW: danke und Entschuldigung für die späte Antwort
27.10.2011 08:56:57
Lisa
Hallo Hajo, danke für die Antwort, es klappt wie gewünscht!
Ich habe vergessen dir zu Antworten! Ich war vertieft in meiner Arbeit! Entschuldigung dafür!
LG Lisa
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zelle auf Inhalt prüfen in Excel


Schritt-für-Schritt-Anleitung

Um in Excel eine Zelle auf ihren Inhalt zu prüfen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Anleitung, um dies zu erreichen:

  1. Öffne die Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle das entsprechende Arbeitsblatt im Projektfenster aus.

  3. Füge den folgenden Code in das Codefenster ein:

    Option Explicit
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Cells(1, 1) = "" Then
           MsgBox "Bitte Eingabe prüfen", vbCritical, "Eingabefehler"
           Application.EnableEvents = False
           Cells(1, 1).Select
           Application.EnableEvents = True
       End If
    End Sub
  4. Schließe den VBA-Editor und teste die Funktion, indem Du die Zelle A1 leer lässt und versuchst, sie zu verlassen.

Dieser Code überprüft, ob die Zelle A1 leer ist und gibt eine Fehlermeldung aus, wenn Du versuchst, sie zu verlassen. Gleichzeitig wird die Zelle wieder aktiviert.


Häufige Fehler und Lösungen

  • Fehler: Meldung erscheint mehrmals

    • Lösung: Achte darauf, dass Du Application.EnableEvents korrekt verwendest. Setze es auf False, bevor Du die Zelle aktivierst, und auf True, nachdem Du die Zelle aktiviert hast.
  • Fehler: Zelle kann verlassen werden

    • Lösung: Der Code muss so angepasst werden, dass er die Zelle beim Verlassen sofort wieder auswählt. Siehe das Beispiel oben.

Alternative Methoden

Wenn Du keine VBA-Programmierung verwenden möchtest, kannst Du auch die Datenüberprüfung nutzen:

  1. Wähle die Zelle A1 aus.
  2. Gehe zu Daten > Datenüberprüfung.
  3. Wähle Benutzerdefiniert und gebe folgende Formel ein: =ISTTEXT(A1).
  4. Aktiviere die Option, um eine Eingabemeldung anzuzeigen, wenn die Zelle leer ist.

Dadurch wird die Eingabe in der Zelle A1 eingeschränkt und eine Warnmeldung angezeigt, wenn sie leer bleibt.


Praktische Beispiele

Hier sind einige Beispiele für die Verwendung der Zellprüfung in Excel:

  • Beispiel 1: Wenn Du eine Liste von Artikeln hast und sicherstellen möchtest, dass die Artikelnummern eingegeben werden, kannst Du den oben genannten VBA-Code verwenden, um sicherzustellen, dass die Zellen nicht leer sind.

  • Beispiel 2: Für die Überwachung der Füllmenge in einem Lagerbestand, kannst Du die Zellen so konfigurieren, dass sie nur Zahlen akzeptieren. Dies kannst Du ebenfalls über die Datenüberprüfung erreichen.


Tipps für Profis

  • Nutze Fehlerbehandlungsroutinen in deinem VBA-Code, um unvorhergesehene Probleme zu vermeiden.
  • Füge Kommentare in deinen Code ein, um die Lesbarkeit und Wartbarkeit zu verbessern.
  • Teste deinen Code gründlich, um sicherzustellen, dass er unter allen Bedingungen funktioniert.

FAQ: Häufige Fragen

1. Wie kann ich die Zellprüfung auf mehrere Zellen anwenden? Du kannst den Code anpassen, indem Du die If-Bedingung für einen Bereich von Zellen erweiterst, z.B. If Application.CountA(Range("A1:A10")) < 10 Then.

2. Kann ich die Meldung anpassen? Ja, Du kannst den Text in der MsgBox ändern, um spezifischere Anweisungen zu geben.

3. Welche Excel-Versionen unterstützen diesen VBA-Code? Der Code funktioniert in den meisten modernen Excel-Versionen, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365.

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