Hallo Forum Nutzer,
ich habe mir bereits viele Tipps im vba code hier zusammengesucht, da ich ein blutiger Anfänger bin.
Allerdings bin ich nun an meine Grenzen gestossen.
ich habe zwei Spalten, jeweils mit Vor- und Nachname(AA,AB),
weiter habe ich eine Spalte mit Email-Adressen, (Vorname.Nachname@XX.de)(AD),
diese Email-Adressen habe ich in Vor- und Nachname aufgespalten in zwei weiteren Spalten (AF, AG).
Mein Ziel ist es die Namen (aus AA, AB mit AG,AF) zu vergleichen, bei einem Treffer der Nachnamen, die Vornamen zu vergleichen und wenn diese übereinstimmen, dann in der jeweiligen Zeile (For ww) in die erste Spalte die Email-Adresse zu kopieren.
Leider klappt es nicht. Unten sieht man den Code, welchen ich dafür versucht habe.
Über Eure Hilfe wäre ich sehr dankbar.
Beste Grüße
Dim sucheNN As Range
Dim c As Range
Dim Nachname As String
Set sucheNN = ws5.Range("AG1:AG9999")
For ww = 1 To 9999
Set c = sucheNN.Find(ws5.Cells(ww, 28))
If c Is Nothing Then
Else: Nachname = c.Address
Do
If c.Offset(0, -1) = (ws5.Cells(ww, 27)) Then
ws5.Cells(ww, 1).Value = c.Offset(0, -3).Value
Else: Set c = sucheNN.FindNext(c)
End If
Loop While c.Address Nachname
End If
Next