|
Hallo, könnten wir diese Programmierung nochmal etwas abändern?
und zwar ist die Datenbank um 1 Spalte gewachsen also 4 Spalten.
In meiner Tabelle in der ich arbeite ist die Range von D bis G
also D =SN E=ID F=Equi und G= MQ
hiernochmal der Code für 3 Spalten:
Private Sub Worksheet_Change(ByVal Target As Range)
' Für drei 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) \ 3) * 3 + 1
Sp = Chr$((.Column + 65 - xBeginn))
iZeile = Application.WorksheetFunction.Match(.Value, _
WSh.Range(Sp & ":" & Sp), 0)
If iZeile > 0 Then
Cells(.Row, xBeginn).Resize(, 3).Value = WSh.Cells(iZeile, 1).Resize(, 3).Value
End If
End With
End Sub
vielen Lieben Dank Für die Hilfe
|