ich habe Nummer in Tabelle1 in einer Reihe. In Tabelle2 sind mehrere Nummer in einer Spalte und in der nächsten Spalte dann die Bezeichnungen .
Nun möchte ich, dass die Nummer der Tabelle1 in Tabelle2 gesucht werden. Wenn ein Treffer erfolgt, soll die Bezeichnung in Tabelle1 über der Nummer eingefügt werden.
Sub Finden2()
Dim Nummer As Long
Dim Bezeich As Long
For Nummer = 1 To Sheets("Tabelle1").Cells(2, Columns.Count).End(xlUp).Row
For Bezeich = 1 To Sheets("Tabelle2").Cells(Rows.Count, 3).End(xlUp).Row
With Sheets("Tabelle1")
If .Cells(2, Nummer) = Worksheets("Tabelle2").Cells(Bezeich, 3) Then
.Cells(1, Nummer) = Worksheets("Tabelle2").Cells(Bezeich, 4)
End If
End With
Next Bezeich
Next Sensor
End Sub
Viele GrüßeTorde