Hallo,

könnest du mal ein Beispiel hier einstellen, könnte vielleicht mit Rechts(), Links() oder Teil() funktionieren.

Sonst wahrscheinlich mit VBA

Gruß

Helmut

So ein kleiner ausschnitt aus meiner 2000 zeilen tabelle. das waren mal adressen, erste zeile straße 2te zeile PLZ+ort. jetzt hab ich schon den ort überall wegbekommen indem ich nach 5 zeichen die spalte getrennt hab. jetzt brauche ich aber nur die PLZs. also im prinzip nur jede 2te spalte.



Bahnh
88521
Riedl
88605
Grabe
88630
Otter
89079
Lämme
89129
Benzs
89165
Bürge
89168
Theod
89171
Haupt
89179
Einst
89186
Max-E
89275
Indus





gruß

adrian

Hallo Adrian,

kopiere nachfolgendes Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche.

[b]Option Explicit

Sub Löschen()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Not IsNumeric(Cells(i, 1)) = True Then Rows(i).Delete
Next
End Sub[/b]

Mit dem Makro wird Dir die Zeile gelöscht, in der sich in Spalte A nur Buchstaben befinden. Sollten die Daten bei Dir in einer anderen Spalte stehen, musst Du in der Zeile

[b]For i = Range("A65536").End(xlUp).Row To 1 Step -1[/b]

die Spaltenbezeichnung "A" ändern und in Zeile

[b]If Not IsNumeric(Cells(i, 1)) = True Then Rows(i).Delete[/b]

die Zahl hinter dem Wort "Cells". Die Zahl 1 sagt Spalte A aus. Eine 2 würde Spalte B, eine 3 Spalte C usw. aussagen.

Ich hoffe, Du kommst klar.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Super!
vielen Dank!!! dann will ich mich da mal ranmachen...

super sache das forum hier! danke leute!


gruß,
adrian