geht es ohne macro eine Art von loop mit dem sverweis zu erstellen?
es gibt
-eine Namensliste mit Nachnamen
-eine Spalte Freitext, wo der Freitext ab-und-zu einen Nachnamen aus der NamensListe beinhaltet
Habe es versucht mit geschachtelten IF(SEARCH(B6,D6,1)>0,B6,"") Formeln zu machen um pro Freitextzeile die gesamte Namensliste durchzuchecken, aber geklappt hat es leider nicht...
22.08.2019, 10:30 (Dieser Beitrag wurde zuletzt bearbeitet: 22.08.2019, 10:42 von Klaus-Dieter.)
Hallo,
mit VBA wäre das kein Problem. Darf es so etwas sein?
Hallo,
hier das Makro. Die Bezüge musst du noch anpassen.
Code:
Sub suche()
Dim intZeile As Integer
Dim zelle As Range
Dim ersteAdresse As String
For intZeile = 6 To 13
With Tabelle1.Range("D6:D13")
Set zelle = .Find(Cells(intZeile, 2), LookIn:=xlValues, lookat:=xlPart)
If Not zelle Is Nothing Then
ersteAdresse = zelle.Address
Do
Cells(zelle.Row, 6) = Cells(intZeile, 2).Text
Set zelle = .FindNext(zelle)
Loop While Not zelle Is Nothing And zelle.Address <> ersteAdresse
End If
End With
Next intZeile
End Sub
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden