Office: (Office 2010) Mittels VBA Text von Zahl trennen

Abbyex · 20. Januar 2013

Hallo zusammen,

ich habe mal wieder eine Frage:

NameTextfeld = Müller1

NameTextfeldohnenr = Left(NameTextfeld, Len(NameTextfeld) - 1) 'Müller

Das funktioniert an und für sich ganz gut, das Problem an der Sache ist nur, dass wenn hinter dem Namen eine mehrstellige Nummer steht, es dann nicht mehr funktioniert. Leider ist es auch nicht so, dass der Name immer die selbe Anzahl an Buchstaben hat, sonst könnte ich ja sagen "nimm die ersten 6 Buchstaben..."
Wie kann ich den Code entsprechend erweitern?

Vielen Dnak vorab für Tipps und Hilfe *Smilie

:)

OfficeUser · 22. Januar 2013

Hi,

Tabelle1
A B
1 Müller1 1
2 Müller21234 21234
verwendete Formeln
Zelle Formel Bereich
B1 =StringFinden(A1;"[0-9]+")
B2 =StringFinden(A2;"[0-9]+")

Abbyex · 22. Januar 2013

Vielen Dank für deine schnelle und ausführliche Antwort.

Leider muss ich sgaen, dass ich deinen Code überhaupt nicht verstehe. *confused.gif*
Brauche ich die Formel in der Tabelle unbedingt?
Oder ginge es auch ganz ohne die Tabellen?

Danke für deine Mühe. *Smilie

Backowe · 22. Januar 2013

Hi,

teste mal:

Code:

Sub test()
NameTextfeldohnenr = StringFinden(NameTextfeld, "^[A-Za-züäö]+")
End Sub

Function StringFinden(strData As String, Pattern As String) As String
Dim RE As Object, REMatches As Object
Set RE = CreateObject("vbscript.regexp")
With RE
.MultiLine = False
.Global = False
.IgnoreCase = True
.Pattern = Pattern
End With
Set REMatches = RE.Execute(strData)
StringFinden = REMatches(0)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Abbyex · 22. Januar 2013

Nochmals danke.

ich habe es jetzt mal in eine Liste gepackt. Leider ist mein Fachwissen nicht ausreichend genug, um den Fehler selbstständig zu finden.*frown.gif*

Abbyex · 22. Januar 2013

Danke noch mal ich habe es geschafft eine andere lösung zu finden mit if then und schleifen was mein problem anders löst.

*wink.gif*

GMG-CC · 22. Januar 2013

Hallo.

hier eine Alternative, die für Einsteiger vielleicht besser nachvollziehbar ist:
Code:

Sub TestIt()
MsgBox TextOhneZahl("Müller1")
End Sub

Function TextOhneZahl(StrNum As String) As String
'Löscht alle trailing Zahlen und Leerzeichen
'By GMG-CC
Dim i As Integer
Dim Rc As String

If IsNumeric(Right(StrNum, 1)) Then
Pos = 1
For i = Len(StrNum) - 1 To 1 Step -1
If Not IsNumeric(Mid(StrNum, i, 1)) Then Exit For
Next i
Rc = Left(StrNum, i)
Else
Rc = StrNum
End If
TextOhneZahl = Trim(Rc)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Abbyex · 22. Januar 2013

\@ GMG-CC
hey super, hätte gar nicht mehr damit gerechnet, doch noch eine so perfekte Lösung zu bekommen, nochdem ich den Thread schon als erledigt markiert hatte.
Aber jetzt ist der Thread wirklich erledigt, vielen vielen Dank, habe es gerade ausprobiert und an meine Bedürfnisse angepasst.
Es ist wirklich um einiges besser als meine Notlösung.
Danke und dir noch einen schönen Abend"
*top *top *top

GMG-CC · 22. Januar 2013

Na ja,

schau mal auf die Uhrzeit, wann wir gepostet haben. Es können nur Sekunden gewesen sein, die du früher warst ... *Smilie

Abbyex · 24. Januar 2013

Ja stimmt habe ich garnicht gesehen lol*Smilie

Office: (Office 2010) Mittels VBA Text von Zahl trennen

Mittels VBA Text von Zahl trennen

Mittels VBA Text von Zahl trennen

Mittels VBA Text von Zahl trennen

Mittels VBA Text von Zahl trennen

Mittels VBA Text von Zahl trennen - Similar Threads - Mittels VBA Text

Zeilen automatisch sperren mittels VBA (wenn Bedingung erfüllt)

mdb automatisiert mittels VBA in accdb konvertieren

PDF mittels VBA speichern (MacOs 13.1)

farbige Zellen mittels Makro berücksichtigen

Login auf Webseite aus VBA mittels Edge

EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA

Verbindung zu SQL-Server mittels VBA

verwendete Formeln
Zelle	Formel	Bereich
B1	=StringFinden(A1;"[0-9]+")
B2	=StringFinden(A2;"[0-9]+")