Ich muss aus Textdateien Daten einlesen und eine Trennung von Wert und Name vornehmen. Die datei sieht grösstenteils so aus "KC1_ist=0.81236". Nun habe ich vorher schon murks produziert. Das problem ist das teile des Murkscodes aufeinmal bei mir in spalte 3 geschrieben werden. Ausserdem gibt er mir einen 1004 fehler beim ausführen des codes.
Ach und bitte ignoriert die zwischenvariable, die war nur zum testen.
Ach und nochwas, wenn ich testweise statt right lieft nehme, dann funktioniert das ganze. Liegt das an right?
Dim zelle As Range
Dim istgleich As Long
Dim sarray As String
Dim zwischenvariable As Long
Workbooks.OpenText Filename:="C:\*\10A0D29CA0000062.kkd"
For Each zelle In ActiveSheet.UsedRange
istgleich = InStr(zelle, "_ist=")
If istgleich > 0 Then
zelle.Offset(0, 2).Value = Left(zelle.Value, istgleich + 3)
zwischenvariable = Len(zelle.Value) - istgleich - 3
zelle.Offset(0, 3).Value = Right(zelle.Value, zwischenvariable)
End If
Next zelle
Für jedweden input wäre ich sehr dankbar.