Office: (Office 2007) Zahlen aus String löschen

Helfe beim Thema Zahlen aus String löschen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Ich habe in der Spalte A einer Tabelle Werte, die aus Wörtern und Zahlen bestehen. Beispiel: Der Hund hat 3 Knochen, die er vergräbt Ein Mensch... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Monty Burns, 2. Februar 2009.

Seite 1 von 2

MONTY BURNS

Monty Burns

Zahlen aus String löschen

Hallo

Ich habe in der Spalte A einer Tabelle Werte, die aus Wörtern und Zahlen bestehen.
Beispiel:
Der Hund hat 3 Knochen, die er vergräbt
Ein Mensch hat mehr als 200 Knochen, die auch irgendwann vergraben werden.

Es stehen immer eine Zahl zwischen 1 und 999 vor einem immer gleichen Begriff

Ich möchte nur diese Zahlen - Buchstabenkombination mit VBA für die gesamte Spalte A entfernen.

Wer kann mir helfen?

:)

Monty Burns, 2. Februar 2009

#1
PEFEU

pefeu

Hallo Monty,

vielleicht geht es so:

Option Explicit

Public Sub ZahlenRaus()

Dim lZeile As Long
Dim iLaenge As Integer
Dim sZeichen As String
Dim sNeuwert As String

With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen !
For lZeile = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
sNeuwert = ""
For iLaenge = 1 To Len(.Range("A" & lZeile).Value)
sZeichen = Mid(.Range("A" & lZeile).Value, iLaenge, 1)
If Not IsNumeric(sZeichen) Then
sNeuwert = sNeuwert & sZeichen
End If
Next iLaenge
.Range("A" & lZeile).Value = Replace(sNeuwert, " ", " ")
Next lZeile
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code eingefügt mit

pefeu, 4. Februar 2009

#2
MONTY BURNS

Monty Burns

Hallo Peter

Ich hoffe es geht Dir gut. Vielen Dank für die schnelle Antwort, aber ich glaube, daß geht nicht so, wie ich es vorhabe. Ich habe nämlich in den Strings evtl. noch andere Zahlen. Es wäre besser, wenn man sich auf das immer gleiche Wort beziehen könnte: ...Knochen ( nur als Beispiel ), damit eben alle das, was eine Zahl zwischen 1 und 999 ist, vor dem Wort und das Wort selbst entfernt wird.

Gruß

- Monty Burns -

Monty Burns, 4. Februar 2009

#3
EBS17

ebs17

Zahlen aus String löschen

Weiterer Vorschlag: Die folgende Funktion innerhalb einer zusätzlichen Sub, die die fraglichen Felder durchläuft, aufrufen.
Code:

Function Aussortieren(sText As String) As String

Dim vArr As Variant
Dim i As Long
Dim sRes As String

Aussortieren = ""
vArr = Split(sText, " ")
For i = 0 To UBound(vArr)
If Not IsNumeric(vArr(i)) Then
sRes = sRes & " " & vArr(i)
Else
i = i + 1
End If
Next
If Len(sRes) > 0 Then Aussortieren = Mid(sRes, 2)

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

[Edit] Jetzt hat sich die Aufgabenstellung geändert.

ebs17, 4. Februar 2009

#4
MONTY BURNS

Monty Burns

Glück auf, Ebenhard

Auch Dir vielen Dank. Ich werde das mal ausprobieren, aber das Problem scheint mir ebenfalls da zu liegen, daß ich evtl. noch andere Zahlen in den Strings habe, die allerdings nicht vor dem Schlüsselwort ( hier im Beispiel: Knochen ) stehen.

Gruß

- Monty Burns -

Monty Burns, 4. Februar 2009

#5
EBS17

ebs17

Steht die Kombination Zahl + "Knochen" immer im Text (nicht am Anfang), und kommt diese einmalig im Text vor?

ebs17, 4. Februar 2009

#6
MONTY BURNS

Monty Burns

Hallo Eberhard

Die Kombination Zahl + "Knochen" steht immer im Text (nicht am Anfang), und kommt einmalig im Text vor...genauso einmalig wie ich selbst...

Gruß

- Monty Burns -

Monty Burns, 4. Februar 2009

#7
EBS17

ebs17

Zahlen aus String löschen

Abgewandelt (ist aber sehr auf die beschriebene Anforderung zugeschnitten, also fehleranfällig bei abweichenden Vorgaben):
Code:

Function Aussortieren(sText As String, sFehltext As String) As String

Dim vArr As Variant
Dim i As Long
Dim m As Long
Dim sRes As String

Aussortieren = ""
vArr = Split(sText, " ")
For i = 0 To UBound(vArr)
If IsNumeric(vArr(i)) Then m = i
If vArr(i) sFehltext And i > m And m > 0 Then Exit For
Next
For i = 0 To UBound(vArr)
If i < m Or i > m + 1 Then sRes = sRes & " " & vArr(i)
Next
If Len(sRes) > 0 Then Aussortieren = Mid(sRes, 2)

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17, 4. Februar 2009

#8
MONTY BURNS

Monty Burns

Hallo Eberhard

Vielen Dank. Ich probier´das nachher mal aus.

Gruß

- Monty Burns -

Monty Burns, 4. Februar 2009

#9
PEFEU

pefeu

Hallo Monty,

so sollte es bei einem gleichbleibenden Suchwort (du kannst es im Makro angeben) funktionieren:

Public Sub ZahlenRaus_I()

Dim lZeile As Long
Dim iPosit As Integer
Dim iLaenge As Integer
Dim sZeichen As String
Dim aZahlen() As Variant
Dim iIndex As Integer
Dim sZahlen As String
Dim sSuchwort As String

sSuchwort = " Knochen" ' mit führender Leerstelle angeben !!!

With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen !
For lZeile = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
iPosit = InStr(.Range("A" & lZeile).Value, sSuchwort)
If iPosit > 0 Then
Erase aZahlen
iIndex = 0
For iLaenge = iPosit - 1 To 1 Step -1
sZeichen = Mid(.Range("A" & lZeile).Value, iLaenge, 1)
If IsNumeric(sZeichen) Then
ReDim Preserve aZahlen(iIndex)
aZahlen(iIndex) = sZeichen
iIndex = iIndex + 1
Else
Exit For
End If
Next iLaenge
sZahlen = ""
If UBound(aZahlen) = 0 Then
sZahlen = aZahlen(0)
Else
For iIndex = UBound(aZahlen) To LBound(aZahlen) Step -1
sZahlen = sZahlen & aZahlen(iIndex)
Next iIndex
End If
sZahlen = sZahlen & sSuchwort
.Range("A" & lZeile).Value = Replace(.Range("A" & lZeile).Value, sZahlen, "")
End If
Next lZeile
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code eingefügt mit

pefeu, 4. Februar 2009

#10
MONTY BURNS

Monty Burns

Hallo Peter,

ich habe gerade das Makro ausprobiert. Aus einer Liste mit 89 Zeilen in Spalte A wird der Teil ( Zahl + Knochen ) nicht vollständig entfernt. Mehr als die Hälfte bleibt... 4 Durchläufe..immer das gleiche Ergebnis.

Gruß

- Monty Burns -

Monty Burns, 4. Februar 2009

#11
PEFEU

pefeu

Hallo Monty,

dann solltest du deine Daten hier hochladen, damit man damit testen kann.

Gruß Peter

pefeu, 4. Februar 2009

#12
SEBASTIAN SCHULZ

Sebastian Schulz

Zahlen aus String löschen

Hallo Mr. Burns,

wenn du uns die Daten zur Verfügung stellst, können wir dies auch daran testen.

[EDIT] Browser nicht aktualisert. *frown.gif* [/EDIT]

Sebastian Schulz, 4. Februar 2009

#13
CHRIS-KAISER

chris-kaiser

Hallo

vielleicht geht dieses Makro

Code:

Sub knochen_aus_SpalteA_entfernen()
Columns(1).Replace "Knochen", "", xlPart
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser, 4. Februar 2009

#14
MONTY BURNS

Monty Burns

Hallo

Hier ist eine Mappe mit einigen Beispielen.
Es soll jeweils ( in diesen Beispielen ) die Zeit ( z.B.: 45 min ) herausgeschnippelt werden.

Hinweis:
Diese Beispiele sind bereits mit Peters Programm bearbeitet worden.

Gruß

- Monty Burns -

Monty Burns, 4. Februar 2009

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Zahlen aus String löschen

Die Seite wird geladen...

Zahlen aus String löschen - Similar Threads - Zahlen String löschen
Zählen wenn und XVerweis, mit ggf. WENN
in Microsoft Excel Hilfe
Zählen wenn und XVerweis, mit ggf. WENN: guten Morgen, Ich habe zwei Listen In einer ist Kundennummer und in der anderen sind die Rechnungsempfänger. Kundennummern können einen oder mehrere Rechnungsempfänger haben. Also zb. bei...
Suchwörter suchen und Name und Anzahl ausgeben
in Microsoft Access Hilfe
Suchwörter suchen und Name und Anzahl ausgeben: Hallo zusammen, ich bräuchte mal eure Hilfe bei einer SQL-Auswertung. In der angehängten Datei ist eine IST- und ein SOLL-Tabelle enthalten. Hinter der IST-Tabelle ist eine SQL-Abfrage die mir...
Arbeitsstunden für einen bestimmten Tageszeitraum zählen
in Microsoft Excel Hilfe
Arbeitsstunden für einen bestimmten Tageszeitraum zählen: Hallo,
If-Then-Else...Verständnisfrage zu Kriterium String > Zahl
in Microsoft Access Hilfe
If-Then-Else...Verständnisfrage zu Kriterium String > Zahl: Hallo, ich habe eine Funktion erstellt. Diese wird mit Werten gefüttert, generell Zahlen als String und "echte" Strings. Damit ich mit den Zahlen Vergleiche anstellen kann wandele ich diese mit...
String in Zahl umwandeln
in Microsoft Excel Hilfe
String in Zahl umwandeln: Hallo kann mir jemand sagen wie ich ein string in eine Zahl ulmwandle. bekomm die ganze zeit typen unverträglich. grus Fusel80 230332
Aus einem String Zahlen auslesen
in Microsoft Excel Hilfe
Aus einem String Zahlen auslesen: Hallo Forum, ist es möglich aus einem String zum Bsp: "Hallo 11" oder "Hallo 2" die zahlen auszulesen und dann gegebenfalls in eine Variable zu speichern?? Danke!!! 182244
Integer-Zahl in String (Abfrage) umwandeln
in Microsoft Access Hilfe
Integer-Zahl in String (Abfrage) umwandeln: Hallo Zusammen, könnte mir bitte jemand einen Tip geben, wie ich innerhalb einer Abfrage den Datentyp Zahl in einen String umwandeln kann. Code: SELECT [Fehlende Melder F9].Zentrale, [Fehlende...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden