Thema Datum  Von Nutzer Rating
Antwort
10.07.2008 09:03:34 Kismet77
NotSolved
Blau Aw:Suche von Zahlen in einem String
 11.07.2008 18:33:48 Stempfle Leonhard
NotSolved

Ansicht des Beitrags:
Von:
Stempfle Leonhard		 Datum:
11.07.2008 18:33:48		 Views:
873		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Suche von Zahlen in einem String
Hier ein Beispiel,

Sub NurZahlenAusString()
Application.ScreenUpdating = False
Dim strZahl As Variant
Dim LastUsedRow As Long
LastUsedRow = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Tabelle1").Activate
Range("A1").Select

For a = 1 To LastUsedRow
strZahl = ""
MeinString = ActiveCell.Value
For t = 1 To Len(MeinString)
If IsNumeric(Mid(MeinString, t, 1)) Then
strZahl = strZahl & Mid(MeinString, t, 1)
End If
Next t
ActiveCell.Offset(0, 1).Value = strZahl
ActiveCell.Offset(1, 0).Select
Next a

End Sub

Gruß Leo

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.07.2008 09:03:34 Kismet77
NotSolved
Blau Aw:Suche von Zahlen in einem String
 11.07.2008 18:33:48 Stempfle Leonhard
NotSolved