AW: Dropbox, Übernahme aus der 2. Spalte
15.01.2016 11:25:51
Sepp
Hallo Norbert,
mit VBA z. B. so.
In das Modul der Tabelle 'Eingabe_Liste'.
' **********************************************************************
' Modul: Tabelle4 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varRet As Variant
On Error GoTo Errhandler
Application.EnableEvents = False
If Not Intersect(Target(1, 1), Range("D2:D23")) Is Nothing Then
With Target(1, 1)
varRet = Application.Match(.Value, Sheets("Auswahllisten").Range("B:B"), 0)
If IsNumeric(varRet) Then
.Value = Sheets("Auswahllisten").Range("C:C").Cells(varRet, 1)
End If
End With
End If
Errhandler:
Application.EnableEvents = True
End Sub
Gruß Sepp