Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Kurzfrage zu Val - Reststring
#1
Hallo Freunde,

mit der Val Funktion lassen sich ja prima einem String vorangestellte Zahlen isolieren.

Mich würde der umgekehrte Fall interessieren. Wenn ich "99Exeloffice" habe, wie

bekomme ich dann möglichst schnell den Reststring, also bei diesem Beispiel hier "Exceloffice".

Danke wie immer im voraus für eure Bemühungen.
Antworten Top
#2
Moin!
Schaue mal auf die letzte Funktion hier.

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#3
Danke Ralf für deine superschnelle Antwort, aber ich brauch dazu unbedingt einen VBA Code.
Will das Ganze in ein kleines Programm von mir einbinden.
Antworten Top
#4
Nichts einfacher als dies …  :19:
Sub RPP()
Const Murks As String = "99Exeloffice"
Dim Anfang&
For Anfang = 1 To Len(Murks)
   If Not IsNumeric(Mid(Murks, Anfang, 1)) Then Exit For
Next
MsgBox Mid(Murks, Anfang, 9 ^ 9)
End Sub

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#5
Hallöchen,

oder, um mal noch etwas bei Val zu bleiben

Code:
Sub RPP()
Const Murks As String = "99Exeloffice"
Dim lenMurks%
lenMurks = Val(Murks)
MsgBox Mid(Murks, Len(lenMurks) + 1, 9 ^ 9)
End Sub
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#6
Auch Hallo in die Runde,

oder so:

Code:
Sub RPP()
Const Murks As String = "99Exeloffice"
MsgBox Replace(Murks, Val(Murks), "")
End Sub
Gruß Atilla
Antworten Top
#7
Hallo atilla,
Eventuell das replace noch mit,1,1 ergänzen, falls hinten dran noch mal eine 99 kommt oder Mitten drin.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#8
Hallo atilla,
Eventuell das replace noch mit,1,1 ergänzen, falls hinten dran noch mal eine 99 kommt oder Mitten drin.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#9
Hallo Andre,

ok, aber warum noch ein mal jetzt?
Gruß Atilla
Antworten Top
#10
Hallo atilla,
Ich bin mir keiner Schuld bewußt.Nicht dass da irgendwo was im Cache war...
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste