Sub Zuordnen()
Dim WkLager As Worksheet
Dim WkTemplate As Worksheet
Dim varSuchwert As Variant
Dim rngGefunden As Range
Dim rngDropdownauswahl As Range
Dim lngLastRowLager As Long
Dim intGefundenSpalte As Integer
Set WkLager = ThisWorkbook.Worksheets("Lager")
Set WkTemplate = ThisWorkbook.Worksheets("Template")
varSuchwert = WkTemplate.Range("B13")
With WkLager.Range("A1:K1")
On Error Resume Next
Set rngGefunden = .Find(What:=varSuchwert, _
LookIn:=xlValues)
If rngGefunden Is Nothing Then MsgBox "Der ausgewählte Wert wurde leider nicht gefunden!", vbCritical, "Wert nicht gefunden!"
intGefundenSpalte = rngGefunden.Column
lngLastRowLager = WkLager.Cells(WkLager.Rows.Count, intGefundenSpalte).End(xlUp).Row
WkLager.Cells(lngLastRowLager + 1, intGefundenSpalte).Value = WkTemplate.Range("E15")
On Error GoTo 0
End With
End Sub