title image


Smiley Kein Problem!
Hi McClaus,wenn ich Dein Makro richtig lese, willst Du bei einer Eingabe überprüfen, ob der eingegebene Wert in der Tabelle 2 in Spalte 1 enthalten ist, wenn ja, dann willst Du hinter die aktive Zelle (Target) den Wert rechts neben dem in der Tabelle enthaltenen Wert eintragen.Das kannst Du einfach über das Worksheet_Change- Ereignis realisieren.Du solltest aber nichtmit einer Schleife arbeiten, weil das bei größeren Datensätzen sehr lange dauern kann. Besser, weil erheblich schneller, ist die Anwendung der "Find"- Methode. Etwas so:Private Sub Worksheet_Change(ByVal Target As Excel.Range)Dim SuchZelle As RangeIf Target.Column 4 Then Exit SubSet SuchZelle = Worksheets("Tabelle2").[a:a].Find(Target)If SuchZelle Is Nothing Then Exit SubTarget.Offset(0, 1) = SuchZelle.Offset(0,1)End SubDieses Ereignis müsstest Du fürdie Tabelle, in der Du die Daten eingeben willst, eintragen. ImBeispiel wird immer dann, wenn Du in Spalte etwas eingibst, die Überprüfung vorgenommen, sonst nicht. Das kannst Du durch eine andere Target.Column ändern (s. o.)GrußOle

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: