String zeichenweise ansprechen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: String zeichenweise ansprechen
von: Stefan
Geschrieben am: 17.06.2002 - 10:45:27

Hallo,

Ich habe in einem String Hannover96abc stehen.
aus diesem String möchte ich alle Zahlen in eine integer Variable schreiben..
ich würde auch gerne ein String zeichenweise ansprechen und auswerten.

Kann mir jemand helfen?


nach oben   nach unten

string zerlegen
von: axel.meyer
Geschrieben am: 17.06.2002 - 11:01:58

hi stefan,

hier ein paar befehle, mit denen du vielleiht voran kommst:

t = Range("a1").Value
t = Left(t, InStr(t, ",") - 1)
hier wird im string t der teil (inklusive) links vom komma genommen, eine stelle abgezogen und der variable t wieder zugeordnet. voraussetzung ist natürlich, daß man weiß, daß ein komma vorkommt. aber mit left(...) findest du in der hilfe bestimmt näheres.

TextLaenge = Len(t)
hiermit ermittelst du die textlänge



Sub teilen()
Dim strTest As String
Dim var1 As String
Dim var2 As String
Dim var3 As String
  strTest = "MAN200GRT"
  'strTest =Range("A1")
  var1 = Left(strTest, 3)
  var2 = Mid(strTest, 4, 3)
  var2 = Right(strTest, 3)
End Sub

was dieses makro macht kannst du dir ja mal ansehen. dann kannst du ja über alle befehle dein stringziffern einzeln über eine schleife ablaufen lassen und die bereiche des strings finden, die nummerisch sind, zb über:

IsNumeric

viel spaß beim basteln,
gruß, axel

nach oben   nach unten

Re: String zeichenweise ansprechen
von: Andreas
Geschrieben am: 17.06.2002 - 11:05:12

Hallo Stefan,

hier mal ein Beispiel:

Private Function ZiffernAusText(strWert$) As Long
Dim i&, strZahl$

strZahl = ""
For i = 1 To Len(strWert)
    If IsNumeric(Mid(strWert, i, 1)) Then _
        strZahl = strZahl & Mid(strWert, i, 1)
Next i
ZiffernAusText = CLng(strZahl)
End Function

Sub Test()
MsgBox ZiffernAusText("Hannover96abc")
End Sub


Einfach in ein Modul einfügen und Test() ausführen!
Wenn Du mit Strings arbeiten willst, dann schau Dir mal die Hilfe zu den Funktionen Mid(), Left(), Right() und Len() an!

Viel Spaß,
Andreas

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "String zeichenweise ansprechen "