ich steh im Moment ein bissel auf dem Schlauch und hoff ihr könnt mir helfen.
Mit folgendem Code hab ich aus einer .txt Datei eine Zeichenkette ausgelesen.
sub aus()
Open "c:\zs\pt11.txt" For Input As #1
Do Until EOF(1)
Line Input #1, txt
If InStr(txt, "Summe Erzeugnisart") Then
Summe = Right(txt, Len(txt) - 103)
summe1 = Left(Summe, Len(Summe) - 9)
End If
Loop
Close
KZ.Range("M4").Value = summe1
End sub
Das Ergebnis von dieser Aktion ist eine Zahl mit zwei Nachkommastellen. Was muß ich machen damit ich mit dieser Zahl weiterrechnen kann? Wie wandel ich per VBA die Zeichenkette (Zahlenkette) in eine Zahl um? In der Recherche bin ich irgendwie nicht fündig geworden.
Ich hoff einer von euch hat einen guten Tipp für mich!
Vielen Dank!
Franz