Überflüssige Daten entfernen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Überflüssige Daten entfernen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Kasimir
Newbie
Newbie

Anmeldedatum: 17.10.2007
Beiträge: 25

Verfasst am: 04.03.2008, 14:03

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 04.03.2008, 14:10

Hallo!

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

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

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

Kasimir
Newbie
Newbie

Anmeldedatum: 17.10.2007
Beiträge: 25

Verfasst am: 04.03.2008, 15:08

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 04.03.2008, 15:34

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.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Daten aus Spalten von Tabellenblatt 1...	leenie	Microsoft Excel Hilfe	2	14.11.2008, 10:52
	Daten aus html-Tabelle in Excel impor...	eis33	Microsoft Excel Hilfe	2	13.11.2008, 16:08
	Daten in andere Datei übernehmen	Harro	Microsoft Excel Hilfe	11	11.11.2008, 15:28
	Daten (Zahlen) ersetzen in zwei versc...	Bratwurst	Microsoft Excel Hilfe	4	11.11.2008, 11:41
	Passwort vorhanden PW schutz lässt si...	exeljunkie	Microsoft Excel Hilfe	0	05.11.2008, 16:36

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de