Wert aus Textdatei als Dezimalwert
12.12.2016 09:20:52
BuStue
Du hattest mir bereits folgendes Script zur Verfügung gestellt. Es funktioniert tadellos. Leider bekomme ich nur Ganzzahlen aus der Txt-Datei. Wert in Textdatei 197,22 Importierter Wert 197,00.
Besteht die Möglichkeit das Script zu ändern?
Private Sub Workbook_Open()
Dim TB, Pfad As String, Filename As String, Wert As String
Set TB = Sheets("Basis")
Pfad = "Pfad\"
Filename = "ERTRAG.TXT"
Close #1
Open Pfad & Filename For Input As 1
Input #1, Wert 'Ertrag
Input #1, Wert
Close #1
TB.Range("B10") = Wert
End Sub
Burghard