Supportnet / Forum / Tabellenkalkulation
buchstaben entfernen
Frage
hallo
ich hab eine spalte wo abwechselnd buchstaben und ziffern ind den zeilen sind. jetzt brauch ich aber nur die zahlen und die buchstaben sollen gelöscht werden.
kann mir da jemand helfen?
gruß,
adrian
Antwort 1 von Saarbauer
Hallo,
könnest du mal ein Beispiel hier einstellen, könnte vielleicht mit Rechts(), Links() oder Teil() funktionieren.
Sonst wahrscheinlich mit VBA
Gruß
Helmut
könnest du mal ein Beispiel hier einstellen, könnte vielleicht mit Rechts(), Links() oder Teil() funktionieren.
Sonst wahrscheinlich mit VBA
Gruß
Helmut
Antwort 2 von adrian1
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
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
Antwort 3 von coros
Hallo Adrian,
kopiere nachfolgendes Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche.
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
die Spaltenbezeichnung "A" ändern und in Zeile
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.
kopiere nachfolgendes Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche.
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 SubMit 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
For i = Range("A65536").End(xlUp).Row To 1 Step -1die Spaltenbezeichnung "A" ändern und in Zeile
If Not IsNumeric(Cells(i, 1)) = True Then Rows(i).Deletedie 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.
Antwort 4 von adrian1
Super!
vielen Dank!!! dann will ich mich da mal ranmachen...
super sache das forum hier! danke leute!
gruß,
adrian
vielen Dank!!! dann will ich mich da mal ranmachen...
super sache das forum hier! danke leute!
gruß,
adrian