Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Find VBA Funktion bei Zelleneingabe

Forumthread: Find VBA Funktion bei Zelleneingabe

Find VBA Funktion bei Zelleneingabe
10.09.2007 15:11:00
Domtsgi
Hallo zusammen.
Folgendes Problem:
ich möchte nach der Eingabe in einer Zelle diesen Wert in einem 2. Tabellenblatt überprüfen. Fals dieser Wert nicht forhanden ist soll die Eingabe gelöscht werden.
so in etwa sollte der VBA aussehen:
Eingabe in Tabelle1 A2
If dieser Wert der in der Tabelle2 A1:a50 nicht vorhanden
then lösche die Eingabe.
Habe die Hilfe "Find" studiert, aber verstehe es nicht.
Vielen Dank für eine Lösung.
mit freundlichen Grüssen
Domtsgi

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Find VBA Funktion bei Zelleneingabe
10.09.2007 15:43:38
Beverly
Hi,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim raZelle As Range
If Target.Address  "$A$2" Then Exit Sub
Set raZelle = Worksheets("Tabelle2").Range("A1:A50").Find(Target, lookat:=xlWhole)
If raZelle Is Nothing Then
Application.EnableEvents = False
Target = ""
Target.Select
Application.EnableEvents = True
End If
End Sub


Code in das Codefenster der Tabelle1.
________________________________________

Anzeige
AW: Find VBA Funktion bei Zelleneingabe
10.09.2007 15:52:00
Domtsgi
Perfekt! Funktioniert bestens.
Herzlichen Dank für diese Lösung
mit freundlichen Grüssen
domtsgi
;

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