Gruppe
Ereignis
Problem
Wie kann ich einen Datensatz nach Eingabe eines Kurzbegriffes abrufen? Wenn ich beispielsweise "web" eingebe, soll die Anschrift der Firma Weber GmbH & Co. KG eingetragen werden.
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet
Dim var As Variant
Dim iRow As Integer
If Target.Address <> "$A$1" Then Exit Sub
Set wks = Worksheets("Datenbank")
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
If IsEmpty(Target) Then
Range("A1:A4").ClearContents
Else
var = Application.Match( _
"*" & Target.Value & "*", wks.Columns(1), 0)
If Not IsError(var) Then
For iRow = 1 To 3
Cells(iRow, 1).Value = wks.Cells(var, iRow).Value
Next iRow
Cells(4, 1).Value = wks.Cells(var, 4).Value & " " & _
wks.Cells(var, 5).Value
Else
Range("A1:A4").ClearContents
End If
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub