Office: Überflüssige Daten entfernen

Hallo Leute,

Ausgangssituation:
Ich hab eine Excelsheet, welches aus mehreren anderen zusammengefügt ist. Dadurch steht in der neuen Liste dann oftmal Datensätze doppelt. Oder einfach auch Falsche.

Nun sollen alle überflüssigen Daten aus einer Zelle rausgeschmissen werden. Wenn zum Beispiel in einer Zelle steht: 192.168.1.2; 160.25.78.03
Dann soll nur die 160.25.78.03 drin stehen bleiben.

Hoffe ihr könnt mir weiterhelfen.

Gruß,

Kasimir

 

Hallo!

Diese Formel lässt nur das übrig, was hinter dem Semikolon steht:

=TEIL(A1;1+FINDEN(";";A1);999)

 

das is ja schon mal gut!
allerdings hätte ich vllt erwähnen sollen, dass es auch irgendwo in der Zelle stehen kann und nicht immer zum schluss!

Also die nötige IP Adresse kann irgendwo in einem Gewusel von anderen IP Adressen stehen. Das einzige was immer gleich bleibt:
es sind alle durch ein Semikolon getrennt!
und die erste Ziffer:
also die 160.xxx.xxx.xxx ist immer gleich!

Da denk ich is eher ein Makro gefordert.

Danke im Voraus,

Kasimir

 

Hallo!

Dann vielleicht so:

Code:

Sub test()
Dim Arr, Ele
Dim Bereich As Range, Zelle As Range
Dim Spalte As Integer
Set Bereich = Range("A1:A100")
For Each Zelle In Bereich
Spalte = 1
Arr = Split(Zelle, ";")
For Each Ele In Arr
If Left(Ele, 3) = "160" Then
Spalte = Spalte + 1
Cells(Zelle.Row, Spalte) = Ele
End If
Next Ele
Next Zelle
End Sub

Die "160"er-Nummern werden in der Spalte daneben eingetragen.