Re: Wert finden
20.03.2003 10:12:15
Klaus-Dieter
Hallo Erich,ich war davon ausgegangen, dass die Eintragung bei der aktuellen Eingabe vervollständigt wird. Wenn du die Daten aus einer anderen Umgebung bekommst, oder eine schon vorhandene Tabelle vervollständigen willst, kann man das natürlich auch lösen.
Hier ist mal ein Ansatz:
Option Explicit
Sub eintrag2()
Dim nam(500)
Dim r%, s%
For r = 2 To Range("B65536").End(xlUp).Row
nam(Cells(r, 2)) = Cells(r, 3)
Next r
For s = 2 To Range("A65536").End(xlUp).Row
Cells(s, 4) = nam(Cells(s, 1))
Next s
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite