leider nicht, also so bekomme ich zumindest eine Zuordnung wenn ich die SN in Spalte D eingebe:
Private Sub Worksheet_Change(ByVal Target As Range)
' Für vier aufeinanderfolgende Spalten
Dim WSh As Worksheet, iZeile As Long, xBeginn As Integer, Sp As String
Set WSh = Sheets("Datenbank")
On Error Resume Next
With Target
If .Value = "" Then Exit Sub
xBeginn = ((.Column - 1) \ 4) * 4
Sp = Chr$((.Column + 65 - xBeginn))
iZeile = Application.WorksheetFunction.Match(.Value, _
WSh.Range(Sp & ":" & Sp), 0)
If iZeile > 0 Then
Cells(.Row, xBeginn).Resize(, 4).Value = WSh.Cells(iZeile, 1).Resize(, 4).Value
End If
End With
End Sub
allerdings bekomme ich keine zuordnung für die ID nummer in Spalte 5 aus der Datenbank.
|