Aus Datenschutzgründen gelöscht.
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
MsgBox strErg
ActiveCell.Value = strErg
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen