Zelle auswählen & Wert aus anderer Tabelle einfüge
30.03.2017 12:29:17
Rudi
Hallo,
evtl so?
Sub Suchen()
Dim strSuch As String, strErg As String
Dim rngErg As Range, lQuelle As Long, lAktuell As Long
Dim wksPlan As Worksheet
strSuch = Cells(ActiveCell.Row, 2)
lAktuell = ActiveCell.Column
Set wksPlan = Workbooks("MeineArbeitsmappe.xls").Worksheets("MeineTabelle")
Select Case lAktuell
Case 10: lQuelle = 17
Case 11: lQuelle = 16
Case 13: lQuelle = 13
Case 14: lQuelle = 23
'etc
End Select
Set rngErg = wksPlan.Columns(2).Find(strSuch, , , xlWhole)
If Not rngErg Is Nothing Then 'wenn es gefunden wurde
strErg = wksPlan.Cells(rngErg.Row, lQuelle)
MsgBox strErg
Else
MsgBox "nicht gefunden"
End If
End Sub
Gruß
Rudi