instr Suche in einer Spalte
25.05.2021 17:51:36
Tim
ich komme gerade nicht weiter und benötige bitte eure Hilfe.
Ich habe eine Tabelle, die in Spalte "C" verschiedene Nummern hat, die durch ein Komma getrennt sind.
In Spalte "B" ist die jeweilige Bezeichnung zu den verschiedenen Nummern, die ich anschließend benötige.
Jetzt möchte ich gern verschiedene Nummern aus der Spalte "D" in Spalte "C" via instr durchsuchen und bei einem Treffer, die dazugehörige Bezeichnung aus Spalte "B" in Spalte "E" übernehmen, jedoch funktioniert das nicht.
Die Grundlage dazu habe ich im Netz gefunden, jedoch scheitere ich an der entsprechenden Anpassung:
https://www.herber.de/bbs/user/146364.xlsm
Private Sub CommandButton1_Click()
Dim lngZeile As Long
Dim lngZeileMax As Long
Dim lngZZmax As Long
Dim VarDat As Variant
Dim i As Integer
With Tabelle1
lngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row
lngZZmax = .Range("C" & .Rows.Count).End(xlUp).Row
VarDat = .Range("D2:D" & lngZeileMax)
For lngZeile = 2 To lngZeileMax
For i = 1 To UBound(VarDat)
If InStr(LCase(.Range("C" & lngZeile).Value), LCase(VarDat(i, 1))) > 0 Then
.Range("E" & lngZeile).Value = .Range("B" & lngZeile).Value
MsgBox lngZeile
Exit For
End If
Next i
Next lngZeile
End With
End Sub