Thema Datum  Von Nutzer Rating
Antwort
04.11.2011 13:07:30 Julian
NotSolved
Blau Wert aus String extrahieren
04.11.2011 18:30:55 Till
NotSolved
06.11.2011 19:50:30 Holger
NotSolved
06.11.2011 23:58:06 Till
NotSolved

Ansicht des Beitrags:
Von:
Till
Datum:
04.11.2011 18:30:55
Views:
993
Rating: Antwort:
  Ja
Thema:
Wert aus String extrahieren

Hi,

kannst du so machen:

Option Explicit

Private Sub Beispiel()
Dim EingabeString$

    EingabeString = "abc-cde-12"
    MsgBox extractNumber(EingabeString)

End Sub
Private Function extractNumber(EingabeString$)
Dim I&, Länge&, Buchstabe$
Dim Zähler&

    Länge = Len(EingabeString)
    For I = 1 To Länge
        Buchstabe = Mid(EingabeString, I, 1)
        If Buchstabe = "-" Then
            Zähler = Zähler + 1
            If Zähler = 2 Then
                extractNumber = Right(EingabeString, Länge - I)
                Exit For
            End If
        End If
    Next
    
End Function

 


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
04.11.2011 13:07:30 Julian
NotSolved
Blau Wert aus String extrahieren
04.11.2011 18:30:55 Till
NotSolved
06.11.2011 19:50:30 Holger
NotSolved
06.11.2011 23:58:06 Till
NotSolved