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

HAllo Monty

Schau dir auch mal dies an:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function machs(zelle) As String
Dim RegEx
Set RegEx = CreateObject("Vbscript.regexp")
With RegEx
.Pattern = "[0-9]+ Knochen"
.Global = False 'Nur das Erste Auftreten wird gelöscht
' .Global = True 'Jedes Auftreten wird gelöscht
machs = .Replace(zelle.Value, "")
End With
End Function


Der Aufruf geht dann so:

Tabelle1

	A	B
1	Der Hund hat 3 Knochen, die er vergräbt.	Der Hund hat , die er vergräbt.
2	Ein Mensch hat mehr als 200 Knochen, die auch irgendwann vergraben werden.	Ein Mensch hat mehr als , die auch irgendwann vergraben werden.

Zelle	Formel
B1	=machs(A1)
B2	=machs(A2)

Excel Tabellen im Web darstellen >>

 

Hallo Monty,

ich habe die min. mit den davorstehenden Zahlen rausgeworfen.
Prüf das einmal.

Gruß Peter

 

Hallo ransi

So etwas ähnliches hattest Du mir schon einmal geschickt, aber das funktioniert bis heute nicht...

Gruß

- Monty Burns -

 

Hallo Peter

Die Mappe enthält irgendwas mit London, Paris und Berlin... Vermutlich hast Du mir die falsche geschickt...

Gruß

- Monty Burns -

 

Hallo MOnty,

da gibt es doch tatsächlich noch eine Mappe mit Namen Monty - in einem anderen Ordner.

Hier also die richtige.

Gruß Peter

 

Hallo Peter

Jaaaa! So muß´n Makro ausseh´n, dann klappt´s auch mimm Nachbarn. Muß ich denn immer erst schimpfen?

Vielen Dank!

Ich weiß nicht, für welchen Monty die andere Mappe ist/war. Ich hab ja schon allen möglichen Blödsinn gefragt, aber sowatt - näh!

Schönen Abend noch...

Gruß

- Monty Burns, das Original -