Im String ";" vor Zahlen einfügen

Hallo zusammen,
ich habe viele Datensätze in einer Excel-Datei, die leider nicht richtig aufbereitet sind. Ein Datensatz besteht immer aus einer Bezeichnung und einem Schlüssel - d.h. einem Text und einer 5-stelligen Zahl.
Beispiel
3-D-Designer/in 23223
Abfallbeauftragte/r 42324
Abfertigungsbeamt(er/in) Zoll (mittl. Dienst) 73242
Problem ist, dass einige Datensätze mehrfach in einer Zelle vorkommen. D.h. es manchmal sieht das Beispiel auch so aus:
Neonatol. u. pädiatr. Intensivmed 81323 Fachschwester/-pfleger - Neonatologie 81323 Fachschwester/-pfleger - Onkologie 81313 Fachschwester/-pfleger - Operationsdienst81313 Fachschwester/-pfleger - Psychiatrie 81313 Fachschwester/-pfleger - Rehabiltation 81313 Fachseminarleiter/in -
Ziel soll es sein, den Text von den Zahlen zu trennen. Ich wollte dies so lösen, dass ich per VBA Schleife ein ";" vor die Zahlen setze, sodass ich dann eine Trennung mittels "Text in Spalten" vornehmen kann. Ich komme nur bei der Problemlösung nicht weiter. Welche Funktion in VBA ermöglicht mir es dieses Problem zu lösen?
Könnt ihr mir bitte helfen? Die Zellen, in denen mehrfach Datensätze vorkommen, würde ich händisch dann noch einmal anfassen.
Danke euch vorab!
Viele Grüße
Sebastian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Const SEP As String = ";" Dim Wb As Workbook: Set Wb = ThisWorkbook Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1") Dim Texte As Range, C As Range, i As Long, t As String With Ws Set Texte = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) For Each C In Texte With C For i = 1 To .Characters.Count Select Case True Case IsNumeric(.Characters(i, 1).Text) And _ Not IsNumeric(.Characters(i - 1, 1).Text) t = t & SEP & .Characters(i, 1).Text Case Else t = t & .Characters(i, 1).Text End Select Next i Debug.Print t .Value = t End With t = vbNullString Next C Texte.TextToColumns Destination:=.Range("B1"), DataType:=xlDelimited, textqualifier:= _ xlTextQualifierSingleQuote, _ consecutivedelimiter:=False, Tab:=False, Semicolon:=True, comma:=False, Space:= _ False, other:=False End With End Sub

Sub ZahlenVonTextTrennen() Dim rngZelle As Range Dim rngBereich As Range Dim strExtrakt As String Dim strExtraktZahlen As String With Tabelle1 Set rngBereich = .Range("A1:A10") For Each rngZelle In rngBereich strExtraktZahlen = "" strExtrakt = "" For intZ = 1 To Len(rngZelle) Select Case Mid(rngZelle.Value, intZ, 1) Case 0 To 9 If Mid(rngZelle.Value, intZ - 1, 1) = " " Then strExtraktZahlen = strExtraktZahlen & Replace(Mid(rngZelle.Value, intZ - 1, _ 1), " ", ";") intZ = intZ + 1 Else strExtraktZahlen = strExtraktZahlen & Mid(rngZelle.Value, intZ, 1) End If Case Else strExtrakt = strExtrakt & Mid(rngZelle.Value, intZ, 1) End Select Next intZ Next rngZelle End With End Sub

Hallo,
Anton hatte es schon erwähnt.
Mit regulären Ausdrücken ist so eine Aufgabe schnell gelöst.
Schau es dir mal an und teste:
Tabelle1

	A	B
1	3-D-Designer/in 23223	3-D-Designer/in ;23223
2	Abfallbeauftragte/r 42324	Abfallbeauftragte/r ;42324
3	Abfertigungsbeamt(er/in) Zoll (mittl. Dienst) 73242	Abfertigungsbeamt(er/in) Zoll (mittl. Dienst) ;73242
4
5	Problem ist, dass einige Datensätze mehrfach in einer Zelle vorkommen. D.h. es manchmal sieht das Beispiel auch so aus:	Problem ist, dass einige Datensätze mehrfach in einer Zelle vorkommen. D.h. es manchmal sieht das Beispiel auch so aus:
6
7	Neonatol. u. pädiatr. Intensivmed 84323 Fachschwester/-pfleger - Neonatologie 81323	Neonatol. u. pädiatr. Intensivmed ;84323 Fachschwester/-pfleger - Neonatologie ;81323
8	Fachschwester/-pfleger - Onkologie 81313 Fachschwester/-pfleger - Operationsdienst81313	Fachschwester/-pfleger - Onkologie ;81313 Fachschwester/-pfleger - Operationsdienst;81313
9	Fachschwester/-pfleger - Psychiatrie 81313 Fachschwester/-pfleger - Rehabiltation 81313	Fachschwester/-pfleger - Psychiatrie ;81313 Fachschwester/-pfleger - Rehabiltation ;81313
10	Fachseminarleiter/in -	Fachseminarleiter/in -
11

Formeln der Tabelle

Zelle	Formel
B1	=machs(A1)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Das ist die Funktion:

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

Option Explicit

Public Function machs(zelle)
    Dim regex As Object
    machs = zelle.Text
    Set regex = CreateObject("Vbscript.Regexp")
    With regex
        .Pattern = "(?=\d{5})"
        .Global = True
        machs = .Replace(machs, ";")
    End With
End Function

ransi

Beliebteste Forumthreads (12 Monate)

Im String ";" vor Zahlen einfügen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

336 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Im String ";" vor Zahlen einfügen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

336 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread