Text trennen

Forumthread: Text trennen

Text trennen

26.05.2006 15:42:38

Herbert brun

Hallo,
ich möchte eine Text, welcher in Zelle A1 steht auswerten. Dieser soll in zwei Teile (Zelle B1; Zelle C1) getrennt werden. Trennungskriterium soll der zweite Bindestrich sein. Über die Option "Text in Spalten" wird bei jedem Bindestrich eine Trennung vollzogen.
Gruß Herbert

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Text trennen

26.05.2006 16:23:12

Peter Feustel
AW: Text trennen

26.05.2006 16:35:48

Peter Feustel
AW: Text trennen

26.05.2006 20:25:00

UweD

AW: Text trennen

26.05.2006 16:23:12

Peter Feustel

Hallo Herbert,
wenn es sich nur um die eine Zelle (A1) handelt, dann so:
Public


Sub Trennen()
Dim iZeichen  As Integer
Dim sZeichen  As String
Dim iZaehler  As Integer
If InStr(Range("A1").Value, "-") > 1 Then
For iZeichen = 1 To Len(Range("A1").Value)
sZeichen = Mid(Range("A1").Value, iZeichen, 1)
Range("B1").Value = Range("B1").Value & sZeichen
If sZeichen = "-" Then iZaehler = iZaehler + 1
If iZaehler = 2 Then
Range("C1").Value = Right(Range("A1").Value, _
Len(Range("A1").Value) - iZeichen)
Exit For
End If
Next iZeichen
End If
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: Text trennen

26.05.2006 16:35:48

Peter Feustel

Hallo Herber,
wenn es sich um mehrere Einträge in Spalte A handel, dann so:
Public


Sub Separieren()
Dim lZeile    As Long
Dim iZeichen  As Integer
Dim sZeichen  As String
Dim iZaehler  As Integer
Application.ScreenUpdating = False
Range("B1:B" & Range("B65536").End(xlUp).Row).ClearContents
For lZeile = 1 To Range("A65536").End(xlUp).Row
If InStr(Range("A" & lZeile).Value, "-") > 1 Then
iZaehler = 0
For iZeichen = 1 To Len(Range("A" & lZeile).Value)
sZeichen = Mid(Range("A" & lZeile).Value, iZeichen, 1)
Range("B" & lZeile).Value = Range("B" & lZeile).Value & sZeichen
If sZeichen = "-" Then iZaehler = iZaehler + 1
If iZaehler = 2 Then
Range("C" & lZeile).Value = Right(Range("A" & lZeile).Value, _
Len(Range("A" & lZeile).Value) - iZeichen)
Exit For
End If
Next iZeichen
End If
Next lZeile
Application.ScreenUpdating = True
End Sub

Du hast nicht geschrieben, was mit dem Bindestrich geschehen soll!
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: Text trennen

26.05.2006 20:25:00

UweD

Hallo
hier einen Formellösung:

Beliebteste Forumthreads (12 Monate)

Forumthread: Text trennen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread