find in Liste anwenden
07.09.2006 10:21:37
JensB
wenn ich einen Eintrag in Spalte A vornehme, soll in Spalte B der dazughörige Wert aus Tabelle2 stehen.
Funktioniert auch richtig, allerdings nur in den festgeschriebenen Zellen A1 und B1.
Wie kann ich die Funktion auf die gesamten Spalten A und B ausdehnen?
Option Explicit
Sub MitFind()
Dim rng As Range
Set rng = Range("Tabelle2!a:a").Find([A1])
If Not rng Is Nothing Then [b1] = rng.Offset(0, 1)
End Sub
Gruß Jens