SplitString soll nicht gefunden Wert überspringen

Hallo zusammen,
ich arbeite gerade daran eine Spalte mit mehreren mit dem Schema [ x yyyyyyyy] enthaltenen Werte Stehen und zwar ist das x eine Zahl und das yyyyyyy ist eine beliebige Bezeichnung sowas wie [ 4 Eier] etc...
Klappt: (alle vorhanden) [ 3 Auto ] [ 3 Eier ] [ 2 Fehl ] [ 2 Bahn ] Klappt nicht:

 [ 3 Auto ] [ 3 Eier ] [ 2 Fehl ] [ 2 Bahn ]  [ 1 Haus ]

Meine Idee... so aufteilen über Right(Left(... damit ich nur die Zahl in ner Spalte stehen habe...
Allerdings sobald ein Begriff in einer Spalte nicht vorhanden ist kommt Laufzeitfehler 5 .. wie umgehe ich das? Vlt. mit If right > 1 oder so?

Option Explicit
Sub Aufteilen()
Dim splitString As String
Dim LastRow As Long
Dim splitStringLeft1, splitStringLeft2, splitStringLeft3, _
splitStringLeft4, splitStringLeft5, splitStringLeft6, _
splitStringLeft7, splitStringLeft8, splitStringLeft9 As String
Dim i, Eier, Auto, Bahn, Fehl As Long
LastRow = Worksheets("Tabelle1").Cells(Worksheets("Tabelle1").Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow
splitString = Worksheets("Tabelle1").Range("A" & i)
Eier= InStr(splitString, "Eier")
Auto= InStr(splitString, "Auto")
Bahn = InStr(splitString, "Bahn")
Fehl= InStr(splitString, "Fehl")
splitStringLeft1 = Right(Left(splitString, Eier - 2), 1)
splitStringLeft2 = Right(Left(splitString, Auto - 2), 1)
splitStringLeft3 = Right(Left(splitString, Bahn - 1), 3)
splitStringLeft4 = Right(Left(splitString, Fehl - 2), 1)
Debug.Print splitStringLeft1
Debug.Print splitStringLeft2
Debug.Print splitStringLeft3
Debug.Print splitStringLeft4
Next i
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

sub Fen() y = columns(1).replace("[", "]") for i = 1 to cells(rows.count, "A").end(xlup).row Ret = split(cells(i,"A"), "]") for y = 0 to ubound(Ret) step 2 cells(i,y/2+2) = Ret(y) next y next i end sub

Option Explicit Sub Aufteilen() Dim compareString As String Dim currentString As String Dim lRow As Long, i As Long Dim ws As Worksheet Dim stringLength As Long Dim j As Long On Error Resume Next Set ws = ThisWorkbook.Sheets(1) With ws lRow = .Cells(.Rows.Count, 1).End(xlUp).Row '//alles was eine Zahl von 0 bis 9 hat compareString = "*[0-9]*" For i = 1 To lRow '//momentaner String aus Zelle currentString = .Cells(i, 1).Value '//Wenn Zellwert wie vergleichswert If currentString Like compareString Then '//dann hol dir die Länge des Strings stringLength = Len(currentString) For j = 1 To stringLength '//Wenn position x des Strings Numerisch ist If IsNumeric(Mid(currentString, j, 1)) Then '//Dann ersetzte den String currentString = Mid(currentString, j, 1) End If Next j Debug.Print currentString End If Next i End With End Sub

Hallo,
Geht auch, ist aber etwas komplizierter:
Tabelle1

[ 3 Auto ] [ 3 Eier ] [ 2 Fehl ] [ 2 Bahn ]

Auto

Eier

Fehl

Bahn

#WERT!

[ 3 Auto ] [ 3 Eier ] [ 2 Fehl ] [ 2 Bahn ] [ 1 Haus ]

Auto

Eier

Fehl

Bahn

Haus

#WERT!

Formeln der Tabelle

Zelle	Formel
B1	=machs($A1;SPALTE(A1))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function machs(strText As String, intIndex As Integer)
    Dim regex As Object
    Dim objMatches As Object
    Dim objMatch As Object
    Dim I As Integer
    Redim out(1)
    Set regex = CreateObject("vbScript.Regexp")
    With regex
        .Pattern = "(\[ )(\d+) ([A-ZÄÖÜß]+)"
        .ignorecase = True
        .Global = True
        Set objMatches = .Execute(strText)
        For Each objMatch In objMatches
            Redim Preserve out((objMatches.Count * 2) - 1)
            out(I) = objMatch.submatches(1)
            out(objMatches.Count + I) = objMatch.submatches(2)
            I = I + 1
        Next
    End With
    machs = out(intIndex - 1)
End Function

ransi

Beliebteste Forumthreads (12 Monate)

SplitString soll nicht gefunden Wert überspringen

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

120 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G
1	[ 4 Auto ] [ 3 Eier ] [ 2 Fehl ] [ 2 Bahn ] [ 12 Haus ]	4	3	2	2	12	#WERT!
2	[ 3 Auto ] [ 3 Eier ] [ 2 Fehl ] [ 2 Bahn ]	3	3	2	2	#WERT!	#WERT!

SplitString soll nicht gefunden Wert überspringen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

120 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread