Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
904to908
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
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige