String in Zahl umwandeln

Computer: Software & Programmierung Visual Basic
#1

Hallo Leute,

ich hab in einer Spalte (mit einigen Zeilen) folgendes als String drinnen stehen: ‚98000 H‘ oder ‚5130 S‘ usw. daraus möchte ich in die Spalte daneben das ‚H‘ oder ‚S‘ stehen haben (das klappt schon) und in der Spalte selber 980,00 (wenn da ein H steht) bzw. -51,30 (wenn da ein S steht) folgendes hab ich schon:

For Zeile = 1 To lastZeile


If (Cells(Zeile, 1).Value Like „H“) Then
Cells(Zeile, 2) = „H“
Cells(Zeile, 1) = Format(Replace(Cells(Zeile, 1).Value, „H“, „“), „#,##0.00“)
End If

If (Cells(Zeile, 1).Value Like „S“) Then
Cells(Zeile, 2) = „S“
Cells(Zeile, 1) = Format(Replace(Cells(Zeile, 1).Value, „S“, „“), „#,##0.00“) 'da muss dann noch ein mal -1
End If

Next Zeile

leider klappt das nicht mit dem Komma - ich müsste da wahrscheinlich den String zerteilen?
Kann mir da jemand von euch helfen?
Vielen Dank.
Roman

#2

ich hab in einer Spalte (mit einigen Zeilen) folgendes als
String drinnen stehen: ‚98000 H‘ oder ‚5130 S‘ usw. daraus
möchte ich in die Spalte daneben das ‚H‘ oder ‚S‘ stehen haben
(das klappt schon) und in der Spalte selber 980,00 (wenn da
ein H steht) bzw. -51,30 (wenn da ein S steht) folgendes hab
ich schon:

Hallo Roman,

vielleicht so, die daten werden in A erwartet.

Option Explicit

Sub nn()
Dim Lastzeile As Long
Lastzeile = 50
Columns("A:B").Insert
Range("A1:A" & Lastzeile).Formula = "=LEFT(C1,LEN(C1)-2)/100\*CHOOSE((B1=""S"")+1,1,-1)"
Range("B1:B" & Lastzeile).Formula = "=RIGHT(C1,1)"
Range("A1:A" & Lastzeile).Formula = "=LEFT(C1,LEN(C1)-2)/100\*CHOOSE((B1=""S"")+1,1,-1)"
Range("A1:A" & Lastzeile).NumberFormat = "#,##0.00"
Range("A1:B" & Lastzeile).Value = Range("A1:B" & Lastzeile).Value
Columns(3).Delete
End Sub

Gruß
Reinhard

#3

Hallo Roman.

leider klappt das nicht mit dem Komma - ich müsste da
wahrscheinlich den String zerteilen?
Kann mir da jemand von euch helfen?

Wenn ich mir die Zahlen so anschaue, und sie immmer so sind wie in Deinem Beispiel, dann könnte vielleicht ein „/100“ schon ausreichen.

VG
Carsten

#4

Vielen Dank hat prima geklappt!

lg
Roman

#5

Hallo Carsten, jetzt hab ich schon die andere Lösung genommen - aber vielen Dank - ich glaub das wäre auch gegangen, da hab ich wohl zu kompliziert gedacht.
lg
roman