Doppelten Zelleninhalt unterbinden
19.09.2022 10:44:55
Blaupolanski
ich habe bereits den ganzen Morgen versucht Antworten für mein Problem im Forum zu finden, leider erfolglos. Ich habe folgendes Problem ich importiere mit einem Makro Daten in meine Excelliste in die Spalte G. Hier landen bis zu drei Namen, welche ich mit einem zweiten Makro über den Befehl Text in Spalten auf die Spalten H, I und J verteile. Dieses Makro ist recht einfach gehalten und sieht aus wie folgt:
Sub Namen_trennen (mZ As Long)
Application.DisplayAlerts = False
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("H" & mZ), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
Application.DisplayAlerts = True
End Sub
Nun kann es unter Umständen dazu kommen, dass ein Name zweimal vorkommt. Dem würde ich gerne entgegenwirken, indem ich das Makro noch etwas erweitere. Ich stelle mir sowas vor wie Prüfe in der aktiven Zeile ob Spalte J und I den selben Inhalt haben, wenn ja dann Inhalt Spalte J löschen. UND Prüfe in der aktiven Zeile ob Spalte I und H den selben Inhalt haben, wenn ja dann Inhalt Spalte I löschen.
Ich vermute das lässt sich mit einer IF-Funktion machen, aber ich steh da gerade ziemlich auf dem Schlauch.
Wäre über jede Hilfe dankbar!