Re: Text trennen



Hi Josef,

On 9 Mai, 17:21, "Josef Kovach" <josefkovachS...@xxxxxxxxxxx> wrote:
Hallo XL-Freunde,
A1: Maximinus Thrax 235-238 Denar 140   100
A2: Maximus 236-238 Denar 340   250
A3: Balbinus Februar-Mai 238 Antoninian 350   350
Wie kann ich die letzten zwei Zahlen am Schluss des Textes trennen?
zB..
A1: Maximinus Thrax 235-238 Denar  B1: 140   C1: 100
A2: Maximus 236-238 Denar B2: 340   C2: 250
A3: Balbinus Februar-Mai 238 Antoninian B2: 350 C3:  350

Am Einfachsten mit einer eigenen kleinen Funktion.

Function Trenne(Text As String) As Variant
Trenne = Split(Text, " ")
End Function

Die einzelnen Argumente liest Du dann in der Exceltabelle aus mit:

=INDEX(trenne($A1);SPALTE(A$1))

und nach rechts kopieren.

Etwas umständlich wird es, da Du wohl auch noch andere Sonderzeichen
(160) als das Leerzeichen (32) verwendest. Die vorletzte Zahl ist
daher das DRITTletzte Element.

--
Grüße Boris
.



Relevant Pages

  • Re: Code to delete/unlink Linked tables
    ... Public intLinkODBCTables As Variant, intLinkDB2Tables As Variant ... Public strLinkBackendDB As String, strLinkDSNname As String, strLinkLibName ... ' MsgBox "This database is in MDE format...I will delete/recreate ODBC ... Public Sub fncLinkDB2Table() ...
    (microsoft.public.access.modulesdaovba)
  • Re: OPENFILENAME A P I. User cancels ?
    ... The variable FName will be a Boolean False if no file was selected or a String containing the fully qualified file name if the user selectes a file. ... Const ahtOFN_OVERWRITEPROMPT = &H2 ... Function GetOpenFile(Optional varDirectory As Variant, ... Dim strFilter As String ...
    (microsoft.public.excel.programming)
  • RE: multi-select file dialog
    ... strCustomFilter As String ... Global Const ahtOFN_OVERWRITEPROMPT = &H2 ... Dim strFilter As String ... Function GetOpenFile(Optional varDirectory As Variant, ...
    (microsoft.public.access.modulesdaovba)
  • Re: Replace space in text file
    ... In four of the above cases you have specified which type of variable you want VB to create (Integer, Long, String or whatever). ... in the case of vChars you have not specified the required variable type and VB will therefore create it as a Variant. ... For example, if vChars was an Integer then VB would read two bytes from the file, and if it was a Long it would read four bytes, and if it was a standard variable length String which currently contained nine characters then it would read nine characters from the file and if it was a String that currently contained just one character then it would read one character from the file. ...
    (microsoft.public.vb.general.discussion)
  • RE: multi-select file dialog
    ... strCustomFilter As String ... Global Const ahtOFN_OVERWRITEPROMPT = &H2 ... Dim strFilter As String ... Function GetOpenFile(Optional varDirectory As Variant, ...
    (microsoft.public.access.modulesdaovba)