Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahl in Zelle löschen

Forumthread: 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 :-)

Anzeige

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?

Anzeige
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
;

Forumthreads zu verwandten 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
unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
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
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 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
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
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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