Aufteilung von Zelleninhalten nach Zahlen

Hallo,

ich komme bei folgendem Problem nicht so richtig weiter:

Ich erhalte regelmäßig Excel-Files,
in der Inhalte in folgender Form vorliegen:
Bsp.
Nokia 3310i
Druckerpatrone XY12A315
Haribo Lakritze Produktnummer 312XVTIFG
usw.

Nun muss ich die Inhalte, dieser Zellen so verändern,
dass nach der jeweiligen ZAHL (bei dem Nokia Handy war es 3310, bei der Druckerpatrone war die Zahl 12)
ein Leerzeichen eingefügt wird.
Das Ergebnis dieses wäre somit:
Nokia 3310 i
Druckerpatrone XY12 A315
Haribo Lakritze Produktnummer 312 XVTIFG
Das jeweils einzeln zu machen ist Mega-Aufwendig.

Kann mir jmd mit einem Makro oder einer Formel weiterhelfen,
die das automatisch trennt?
Und wenn hinter der Zahl nichts mehr steht (Bsp: "Nokia 3310" ohne "i")
dann soll kein Leerzeichen angefügt werden.

Vielen Herzlichen Dank im Voraus,
Jennifer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ZahlenAufteilung() Dim changeCell, originalValue, newValue, x For Each changeCell In Selection originalValue = changeCell.Value newValue = "" For x = 1 To Len(originalValue) - 1 newValue = newValue & Mid(originalValue, x, 1) If IsNumeric(Mid(originalValue, x, 1)) And _ Not IsNumeric(Mid(originalValue, x + 1, 1)) And _ Not Mid(originalValue, x + 1, 1) = " " Then newValue = newValue & " " End If Next newValue = newValue & Right(originalValue, 1) changeCell.Value = newValue Next End Sub

Wenn du beide Funktionen in einem haben willst, sieht das ganze so aus:


Sub ZahlenAufteilung()
Dim changeCell, originalValue, newValue, x
For Each changeCell In Selection
originalValue = changeCell.Value
newValue = ""
For x = 1 To Len(originalValue) - 1
newValue = newValue & Mid(originalValue, x, 1)
If Not Mid(originalValue, x + 1, 1) = " " And _
Not Mid(originalValue, x, 1) = " " Then
' Abfrage für Text folgend auf Zahl
If IsNumeric(Mid(originalValue, x, 1)) And _
Not IsNumeric(Mid(originalValue, x + 1, 1)) Then
newValue = newValue & " "
Else
' Abfrage für Zahl folgend auf Text
If Not IsNumeric(Mid(originalValue, x, 1)) And _
IsNumeric(Mid(originalValue, x + 1, 1)) Then
newValue = newValue & " "
End If
End If
End If
Next
newValue = newValue & Right(originalValue, 1)
changeCell.Value = newValue
Next
End Sub

Wenn Du nur eine Funktion haben willst, lösche einfach die entsprechende Abfrage.
Gruß
Marko

Beliebteste Forumthreads (12 Monate)

Aufteilung von Zelleninhalten nach Zahlen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aufteilung von Zelleninhalten nach Zahlen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread