AW: dann müsstest Du aufzeigen ...
26.11.2015 17:39:31
Peter
Hallo Markus,
wenn es denn auch VBA sein darf, findest du hier 3 Varianten, um deine Teilstücke zu separieren
Option Explicit
Public Sub abschneiden()
Dim lZeile As Long
Dim vTemp As Variant
Dim iTemp As Integer
With ThisWorkbook.Worksheets("Tabelle1")
' alle Zellen ab Zeile 2 bis zur letzten belegten Zeile in Spalte 1 = A
For lZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
' gibt es in der Zelle einen "/"?
If InStr(.Range("A" & lZeile).Value, "/") > 0 Then
' denn splitte den Text an den "/"
vTemp = Split(.Range("A" & lZeile).Value, "/")
' und gib den rechtesten Split in Spalte C aus
.Range("C" & lZeile).Value = vTemp(UBound(vTemp))
' oder so:
' suche den "/" von rechts und gib den rechten Wert ab "/" + 1 in Spalte D aus
.Range("D" & lZeile).Value = Mid(.Range("A" & lZeile).Value, InStrRev(.Range("A" & _
lZeile).Value, "/") + 1)
' oder so:
' suche den "/" von rechts und gib den rechten Wert ab "/" in Spalte E aus
.Range("E" & lZeile).Value = Right(.Range("A" & lZeile).Value, _
Len(.Range("A" & lZeile).Value) - InStrRev(.Range("A" & lZeile).Value, "/"))
End If
Next lZeile
End With
End Sub
Gruß Peter