String nach best. Kriterium Teilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi.
Die Version von WF noch etwas verbessert... Leerzeichen und Länge der Zahlen sind egal, es muss nur vor der Zahl ein Gleicheitszeichen stehen, das Komma als Trennzeichen verwendet werden und die B/T/H müssen in dieser Reihenfolge sein. Ach ja, und die Werte müssen ganzzahlig sein... sonst müßte man das etwas anders machen (und Du brauchst auch ein anderes Trennzeichen).
Der Text steht in A2
Für B:
=TEIL(A2;SUCHEN("=";A2)+1;SUCHEN(",";A2)-SUCHEN("=";A2)-1)*1
oder
=TEIL(ERSETZEN(A2;SUCHEN("T";A2);999;);SUCHEN("=";A2)+1;999)*1
Für T:
=TEIL(A2;SUCHEN("=";A2;SUCHEN("T";A2))+1;SUCHEN("H";A2)-SUCHEN("=";A2;SUCHEN("T";A2))-1)*1
oder
=TEIL(ERSETZEN(A2;SUCHEN("H";A2)-1;999;"");SUCHEN("=";A2;SUCHEN("T";A2))+1;999)*1
Für H:
=TEIL(WECHSELN(A2;"m";);SUCHEN("=";A2;SUCHEN("H";A2))+1;999)*1
Gruss, Jogy

Sub sbSplit() Dim lstrInhalt As String, lstrSplit() As String, liDurchlauf As Integer lstrInhalt = Range("A1").Value lstrSplit = Split(lstrInhalt, ",") For liDurchlauf = 0 To UBound(lstrSplit) Select Case liDurchlauf Case LBound(lstrSplit) Cells(1, liDurchlauf + 1).Value = Val(lstrSplit(liDurchlauf)) Case UBound(lstrSplit) Cells(1, liDurchlauf + 1).Value = lstrSplit(liDurchlauf) Cells(1, liDurchlauf + 1).Value = Replace(Cells(1, liDurchlauf + 1).Value, " mm", "") Cells(1, liDurchlauf + 1).Value = Val(Right(lstrSplit(liDurchlauf), Len(lstrSplit( _ liDurchlauf)) - 5)) Case Else Cells(1, liDurchlauf + 1).Value = Val(Right(lstrSplit(liDurchlauf), Len(lstrSplit( _ liDurchlauf)) - 4)) End Select Next End Sub

Hallo Eddie,
hier eine weitere Möglichkeit, einmal für den Ausgangstext in A1:

Sub Splitten()
Dim iCol As Integer
Dim sTxt As String
sTxt = Range("A1").Value
sTxt = NurZahlenUndKomma(sTxt)
iCol = 1
Do While InStr(sTxt, ",")
iCol = iCol + 1
Cells(1, iCol).Value = Left(sTxt, InStr(sTxt, ",") - 1)
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, ","))
Loop
Cells(1, iCol + 1).Value = sTxt
End Sub

Function NurZahlenUndKomma(Text As String) As String
Dim i%, tmp$
For i = 1 To Len(Text)
If IsNumeric(Mid(Text, i, 1)) Or Mid(Text, i, 1) = "," Then tmp = tmp & Mid(Text, i, 1)
Next i
NurZahlenUndKomma = tmp
End Function

Gruß
Heinz

Function AUFTEILEN(myText As Range, nuM As Long) As Variant Dim regEx Set regEx = CreateObject("vbscript.regexp") regEx.Pattern = "[^0-9]" regEx.Global = True AUFTEILEN = _ CDbl(Split(Evaluate("=TRIM(""" & regEx.Replace(myText.Value, " ") & """)"), " ")(nuM - 1)) End Function

Beliebteste Forumthreads (12 Monate)

String nach best. Kriterium Teilen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread