Guten Tag
ich komme nicht mehr weiter und hoffe jemand kann mir weiterhelfen oder einen Tip in die richtige Richtung geben.
Ich müsste den Inhalt einer Zelle bestehend aus Zahlen und Texten aufteilen. Die erste Zahl soll jeweils in die Spalte B und und der Text mit weiteren Zahlen in Spalte C kopiert werden. Die Ermittlung der ersten Zahl konnte ich lösen. Der Code dazu steht weiter unten. Der Inhalt der Zelle, die ich trennen muss sieht etwa so aus: "55.34 xxxx yyyy 745" oder "155322 xxxx yyyy zz12z". Die Versuche mit Text in Spalte haben bis anhin nichts gebracht, da die Trennung nur nach der ersten Zahl und nicht nach jedem Wort erfolgen soll. Die Trennzeichen zwischen den Teilen sind nur Leerzeichen.
Sub Zahl_Text_trennen()
Dim Zelle As Range
Dim s, Counter, iZeile1 As Integer
' Tabellenende ermitteln
Range("A1").Select
iZeile1 = Selection.End(xlDown).Row
' Zahl in Zelle Spalte B schreiben
For Each Zelle In Worksheets("Tabelle1").Range("A1:A" & iZeile1)
s = Mid(Zelle.Value, 1, InStr(1, Zelle.Value, " "))
Counter = Counter + 1
If s <> "" And IsNumeric(s) Then
s = s * 1
Cells(Counter, Zelle.Column + 1).Select
Selection.NumberFormat = "0.00"
Cells(Counter, Zelle.Column + 1).Value = s
End If
Next
End Sub
Vielen Dank im Voraus für jegliche Tips.
Mit freundlichen Grüssen, Urs Schmid
ich komme nicht mehr weiter und hoffe jemand kann mir weiterhelfen oder einen Tip in die richtige Richtung geben.
Ich müsste den Inhalt einer Zelle bestehend aus Zahlen und Texten aufteilen. Die erste Zahl soll jeweils in die Spalte B und und der Text mit weiteren Zahlen in Spalte C kopiert werden. Die Ermittlung der ersten Zahl konnte ich lösen. Der Code dazu steht weiter unten. Der Inhalt der Zelle, die ich trennen muss sieht etwa so aus: "55.34 xxxx yyyy 745" oder "155322 xxxx yyyy zz12z". Die Versuche mit Text in Spalte haben bis anhin nichts gebracht, da die Trennung nur nach der ersten Zahl und nicht nach jedem Wort erfolgen soll. Die Trennzeichen zwischen den Teilen sind nur Leerzeichen.
Sub Zahl_Text_trennen()
Dim Zelle As Range
Dim s, Counter, iZeile1 As Integer
' Tabellenende ermitteln
Range("A1").Select
iZeile1 = Selection.End(xlDown).Row
' Zahl in Zelle Spalte B schreiben
For Each Zelle In Worksheets("Tabelle1").Range("A1:A" & iZeile1)
s = Mid(Zelle.Value, 1, InStr(1, Zelle.Value, " "))
Counter = Counter + 1
If s <> "" And IsNumeric(s) Then
s = s * 1
Cells(Counter, Zelle.Column + 1).Select
Selection.NumberFormat = "0.00"
Cells(Counter, Zelle.Column + 1).Value = s
End If
Next
End Sub
Vielen Dank im Voraus für jegliche Tips.
Mit freundlichen Grüssen, Urs Schmid