AW: Text von Zahlen trennen
20.04.2016 01:57:17
Zahlen
Hallo Laser,
ich bitte den nachfolgenden Excel 97 Code einmal zu testen.
Es ist zwar eine alte Programmiertechnik, aber wenn es dir hilft ...
Ich habe deine Beispiel Daten in Spalte A2 geladen, s. Const TextAnf = "A2"
Wenn die Daten bei dir woanders stehen bitte die Adresse manuell aendern.
Ich weiss nicht in welcher Tabelle sie bei dir stehen, bei mir war es Tabelle1
With Worksheets("Tabelle1") -- (Tabelle muss ggf. geaendert werden)
Würde mich sehr freuen wenn das Makro dein Problem lösen kann.
mfg Piet
Option Explicit '19.4.2016 Piet für Herber Forum
Const TextAnf = "A2" 'Anf-Adresse angeben
Sub String_zerlegen()
Dim AC As Object, Edr As String
Dim LStrg As String, RStrg As String
Dim a As Integer, b As Integer
With Worksheets("Tabelle1")
'Text End-Adresse ermitteln
Edr = .Range(TextAnf).End(xlDown).Address
'Schleife zum zerlegen des Text Bereichs
For Each AC In .Range(TextAnf, Edr)
'Len des Anf-Text ermitteln
For a = 1 To Len(AC)
If IsNumeric(Mid(AC, a, 1)) Then Exit For
Next a
LStrg = Mid(AC, a, 100) 'String ohne Anf Text
RStrg = Mid(LStrg, InStr(LStrg, "-") + 1, 100)
LStrg = Left(LStrg, InStr(LStrg, "-") - 1)
'Anf-Text, 1.Zahl, 2. Zahl speichern
AC.Offset(0, 1) = Left(AC, a - 1) 'Anf-Text
AC.Offset(0, 2) = "'" & LStrg 'Left String
AC.Offset(0, 3) = "'" & RStrg 'Right String
Next AC
End With
End Sub