Eingabewert aus Inputbox mit Zellwert vergleichen
Schritt-für-Schritt-Anleitung
Um den Eingabewert aus einer Inputbox mit dem Wert einer Zelle zu vergleichen, kannst Du die folgende VBA-Prozedur verwenden. Diese Anleitung ist für Excel-Nutzer geeignet, die mit VBA (Visual Basic for Applications) vertraut sind.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu starten.
- Klicke auf
Einfügen und wähle Modul, um ein neues Modul zu erstellen.
- Füge den folgenden Code in das Modul ein:
Sub Eingabe_vergleichen()
Dim Eingabe As Variant
Eingabe = InputBox("Bitte Vergleichswert eingeben.")
If CStr(Eingabe) = CStr(Range("A2")) Then
MsgBox "OK", vbOKOnly
Else
ThisWorkbook.Close
End If
End Sub
- Schließe den VBA-Editor und kehre zu Excel zurück.
- Führe das Makro aus, indem Du im Menü
Entwicklertools auf Makros klickst und das Makro Eingabe_vergleichen auswählst.
Das Makro fragt nach einem Wert. Wenn dieser Wert mit dem in Zelle A2 übereinstimmt, wird eine Meldung angezeigt. Andernfalls wird die Datei geschlossen.
Häufige Fehler und Lösungen
-
Fehler: Das Makro schließt die Datei, ohne die Eingabe zu prüfen.
- Lösung: Stelle sicher, dass die Eingabe in der Inputbox korrekt ist und dass Zelle A2 einen Wert enthält.
-
Fehler: Die MsgBox wird nicht angezeigt.
- Lösung: Überprüfe, ob der Code im richtigen Modul eingefügt wurde und korrekt ausgeführt wird.
Alternative Methoden
Wenn Du keine VBA-Lösung verwenden möchtest, kannst Du auch eine einfache Excel-Formel nutzen, um Eingabewerte zu vergleichen:
-
Schreibe in eine Zelle die Eingabeformel:
=IF(A1=A2, "OK", "Nicht OK")
Hierbei wird der Wert in A1 mit A2 verglichen.
-
Um die Eingabe zu tätigen, kannst Du die Zelle A1 manuell ausfüllen.
Praktische Beispiele
Angenommen, Du hast in Zelle A2 den Wert 5 und möchtest überprüfen, ob der Benutzer 5 eingibt. Mit dem VBA-Code wird bei der Eingabe der Zahl 5 die MsgBox "OK" angezeigt. Bei einer anderen Zahl wird die Excel-Datei geschlossen.
Tipps für Profis
- Nutze die Möglichkeit, mehrere Bedingungen in den Vergleich einzubeziehen, indem Du
ElseIf verwendest.
- Du kannst auch die
InputBox anpassen, um klare Anweisungen oder Hinweise zur Eingabe zu geben.
- Experimentiere mit verschiedenen Datentypen, um sicherzustellen, dass der Vergleich auch für andere Werte (z.B. Text) funktioniert.
FAQ: Häufige Fragen
1. Wie kann ich das Makro automatisch beim Öffnen der Datei ausführen?
Du kannst das Makro im Workbook_Open-Ereignis platzieren, um es beim Öffnen der Datei automatisch auszuführen.
2. Ist dieser Code auch in Excel Online verfügbar?
Leider funktioniert VBA nicht in Excel Online. Du musst die Desktop-Version von Excel verwenden, um diese Funktionalität zu nutzen.