Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1500to1504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1500to1504
1500to1504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahl in Zelle löschen

Zahl in Zelle löschen
30.06.2016 14:37:13
Claudia
Hallo zusammen,
leider bin ich bei der Suche nicht fündig geworden, ich habe folgendes Problem:
IN einer Spalte stehen Text und Zahlen
sddsad 12 fdffsd 12345 dffdfdsf
sddsad 12 fdffsd fdfjdfdfsdfsdfk
12 dhjsahdjhhfdf
gfhjdghsjghfgfagfdhghafh 12345
Jede Zelle sieht anders aus, auch von der Anzahl der Zahlen. Ich müsste jetzt aber die fünfstellige Zahl löschen, der restliche Text aber auch alle anderen Zahlen müssten betstehen bleiben.
Ich bin mir sicher es gibt da eine Lösung für :-)

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahl in Zelle löschen
30.06.2016 15:42:18
Matthias
Hallo Claudia!
Du könntest entweder den Zelleninhalt Zeichenweise durchgehen, prüfen ob es eine Zahl und und die Anzahl an Zahlen mitzählen. Alt. gehts das auch mit der regex. HAbe mich für letzteres entschieden. Im Beispiel geht der Code die Spalte A durch und löscht alle 5stelligen Zahlen. ggf. anhängende bzw. führende Leerzeichen werden ignoriert. Schau mal bitte, ob das hilft. VG

Option Explicit
Sub zahlen_löschen()
Dim i As Long
Dim letzte As Long
Dim zahl As String
'hier die Spalte anpassen, 1 steht für Spalte A , B wär 2 etc.
letzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To letzte
zahl = suche(ActiveSheet.Cells(i, 1)) 'ggf hier und darunter auch anpassen
If zahl  "" Then ActiveSheet.Cells(i, 1) = Replace(ActiveSheet.Cells(i, 1), zahl, "")
Next i
End Sub
Function suche(ByVal myStr As String)
Dim regEx As Object
Dim Treffer As Object
Dim i As Long
Set regEx = CreateObject("Vbscript.Regexp")
With regEx
.Pattern = "[0-9]+"
.Global = True
Set Treffer = .Execute(myStr)
End With
With Treffer
If .Count > 0 Then
For i = 1 To .Count
If Len(.Item(i - 1)) = 5 Then
suche = .Item(i - 1)
End If
Next i
End If
End With
End Function

Anzeige
AW: Zahl in Zelle löschen
30.06.2016 15:50:34
Nepumuk
Hallo,
teste mal:
Option Explicit

Public Sub DeleteNumbers()
    Dim lngRow As Long
    Dim objRegEx As Object
    Set objRegEx = CreateObject("VBScript.RegExp")
    With objRegEx
        .Global = True
        .Pattern = "\w*\d{5}\w*"
        For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row 'Spaltennummer und 1. Datenzeile anpassen
            Cells(lngRow, 1).Value = .Replace(Cells(lngRow, 1).Value, "")
        Next
    End With
    Set objRegEx = Nothing
End Sub

Gruß
Nepumuk

Anzeige
5-stellige Zahl löschen per Arrayformel
30.06.2016 16:04:19
WF
Hi,
der String steht in A1 - in B1 steht folgende Arrayformel:
{=WENNFEHLER(LINKS(A1;VERGLEICH(WAHR;ISTZAHL(TEIL(WECHSELN(A1;" ";"#");SPALTE(A1:AZ1);5)*1);0)-1) &TEIL(A1;VERGLEICH(WAHR;ISTZAHL(TEIL(WECHSELN(A1;" ";"#");SPALTE(A1:AZ1);5)*1);0)+5;99);A1) }
WF

AW: 5-stellige Zahl löschen per Arrayformel
30.06.2016 16:53:55
Claudia
Hallo zusammen,
vielen Dank für Eure Antworten. Die Makros klappen super, einzig bei der Formel passiert irgenddwie nichts, was kann ich da falsch machen?

Arrayformel mit Strg+Umschalt+Enter abschließen...
30.06.2016 17:11:05
Michael
Hallo!
Das ist eine Array-Formel; wenn Du sie in ein Zelle eingibst, musst Du die Eingabe mit Strg + Umschalt + Enter abschließen, statt nur mit Enter - dann werden die {-Klammern autom. erzeugt (diese gibst Du nicht mit ein).
LG
Michael
Anzeige

305 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Zellen- Inhalt auf Zahl 0 zurücksetzen
Lemmi

Hallo zusammen,
ich habe eine Arbeitsliste in der durch eine Drop- Down Menü Auswahl 0,1,2,3 sowie Leerstelle- Auswahl durchgeführt wird. (ab Spalte M6)
In der Spalte ab O6 wird eine Bewertung Durchgeführt. Diese wird auch durch Drop- Down umgesetzt!
Wird nun in der Spalte O di...
02.09.2008 17:35:00
Thread-ID: 1006885
12 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
zahl + text in einer Zelle?
dieter

Hallo Forum,
gibt es wohl ein Möglichkeit in einer Zelle Zahl und text zu haben?
Etwa so: in A1 steht eine zahl; in A3 soll dann der Inhalt aus A1 und der text stehen,z.B. EUR.
(Aus platzgründen kann ich keine neue zelle für den text nehmen)
Danke für Eure Tips
23.10.2008 14:46:00
Thread-ID: 1018660
7 Beiträge
Zellen verbinden & die Zahl 0?
Markus

Hallo,
ich bearbeite gerade meine Telefonliste um diese in die neue Anlage zu übersielen.
Ich habe aber ein paar Probleme:
1. Im Moment steht in einer Zelle z.B. 02134 - 25232 Büro
Diese Nummer kann die Anlage aber nicht lesen, es darf nur die Nummer dort stehen, also 02134252...
01.11.2008 14:21:34
Thread-ID: 1021021
7 Beiträge
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Jede Zahlenwertänderung mit Blinken der Zelle
Steffi

anzeigen.
Ist sowas möglich? HAt jemand eine Idee?
Soll nur einmal blinken, also kein Dauerblinken.
LG
Steffi
07.11.2008 19:28:58
Thread-ID: 1022795
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
7
11
4
11
2
6
6
1
4
2
7
7
9
3
5
4
21
3
2
7
2
1
3
14