AW: sverweis klappt nicht
29.03.2005 12:11:28
Hajo_Zi
Hallo Max
Option Explicit
Private Sub CommandButton1_Click()
With Worksheets("Tabelle1")
TextBox4.Value = WorksheetFunction.VLookup(.Cells(2, 4), .Range("D5:E10000"), 2, False)
End With
End Sub
Private Sub TextBox4_AfterUpdate()
' erstellt von Hajo.Ziplies@web.de 12.04.03, 29.03.05
Dim Found As Range
Dim LoLetzte As Long
With Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Range("D65536")), .Range("D65536").End(xlUp).Row, 65536)
Set Found = .Range("D5:D" & LoLetzte).Find(.Cells(2, 4), .Range("D" & LoLetzte), , xlPart, , xlNext)
If Found Is Nothing Then Exit Sub 'falls nicht gefunden wird Sub verlassen
Range(Found.Address).Offset(0, 1) = TextBox4
End With
End Sub
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.