Texte trennen

Forumthread: Texte trennen

Texte trennen

Verena

Hallo Leute!
Ich habe folgendes Problem zu lösen:
In A2 steht Otto 1 Huber 1
In A3 steht Otto 2 Huber 2
In A11 steht Otto 10 Huber 10
In der Spalte C benötige ich den Vornamen und die Nummer und in der Spalte D den Familiennamen und die Nummer.
Ich habe versucht das Problem mit Suchen des Ersten Leerzeichens zu lösen.
Dabei finde ich jedoch nur das Leerzeichen zw. dem Vornamen und der Zahl.
Wie kann ich das Zweite Leerzeichen finden und mein oben beschriebenes Problem lösen? Gibt es andere Lösungsansätze?
Danke
Verena

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Texte trennen

Nico
AW: Texte trennen

Peter
AW: Texte trennen

UweN
AW: Texte trennen

UweN

AW: Texte trennen

15.11.2004 15:37:12

Nico

Hi Verena
Daten - Text in Spalten...
sollte dir weiterhelfen.
Gruß
Nico

AW: Texte trennen

15.11.2004 16:33:55

Peter

Hallo Verena,
so sollte es gehen:

Sub Namen_separieren()
Dim lZeile    As Long
Dim iIndx     As Integer
Dim iPos      As Integer
Dim sZeichen  As String * 1
Dim iLaenge   As Integer

   For lZeile = 2 To Range("A65536").End(xlUp).Row
      If Not IsEmpty(Cells(lZeile, 1).Value) Then
         iPos = 0
         iLaenge = Len(Cells(lZeile, 1).Value)
         For iIndx = 1 To iLaenge
            sZeichen = Mid(Cells(lZeile, 1).Value, iIndx, 1)
            If Not IsNumeric(sZeichen) Then
               Cells(lZeile, 3).Value = Cells(lZeile, 3).Value & sZeichen
             Else
               Exit For
            End If
         Next iIndx
         iPos = iIndx
         For iIndx = iPos To iLaenge
            sZeichen = Mid(Cells(lZeile, 1).Value, iIndx, 1)
            If IsNumeric(sZeichen) Then
               Cells(lZeile, 3).Value = Cells(lZeile, 3).Value & sZeichen
             Else
               Exit For
            End If
         Next iIndx
         iPos = iIndx
         Cells(lZeile, 4).Value = Mid(Cells(lZeile, 1).Value, iPos + 1, (iLaenge - iPos))
      End If
   Next lZeile
End Sub

AW: Texte trennen

15.11.2004 16:43:32

UweN

Hi Verena,
in diesem Beispiel findest Du eine Lösung mit Formeln:
https://www.herber.de/bbs/user/13503.xls
Viele Grüße
Uwe
P.S. Rückmeldung wäre nett :-)

AW: Texte trennen

15.11.2004 17:43:22

UweN

Hallo Verena,
da ist mir doch ein Fehler unterlaufen.
Hier findest Du die richtige Formel:
https://www.herber.de/bbs/user/13506.xls
Viele Grüße
Uwe

Beliebteste Forumthreads (12 Monate)

Forumthread: Texte trennen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread