Hallo,
meinst du das so:
Sub settings()
Dim strPfad As String
Dim strDatei As String
Dim TxtDatei
Dim arrDatei(5, 1) As Variant
Dim Arr As Variant
Dim Tmp As Variant
Dim i As Integer
Dim t As Integer
'Pfad und Name der Datei - anpassen
strPfad = "C:\Users\Unbekannt\Documents\Settings.txt"
'Textdatei auslesen
Set FSO = CreateObject("Scripting.FilesystemObject")
Set TxtDatei = FSO.OpentextFile(strPfad)
strDatei = TxtDatei.readall
TxtDatei.Close
'Nach Datensätzen splitten
Arr = Split(strDatei, vbCrLf)
'nun die einzelnen Datensätze splitten; Trennzeichen = Gleichheitszeichen
For i = LBound(Arr) To UBound(Arr)
Tmp = Split(Arr(i), "=")
For t = LBound(Tmp) To UBound(Tmp)
'hier werden die einzelnen gesplitteten Datensätze in
arrDatei(intZaehler, t) = Tmp(t)
'Zahlenwert um 1 erhöhen
If t = 1 Then arrDatei(intZaehler, t) = arrDatei(intZaehler, t) + 1
Next t
intZaehler = intZaehler + 1
Next i
'Daten auf aktivem Blatt ausgeben - ohne Überschrift
For t = LBound(arrDatei, 1) + 1 To UBound(arrDatei, 1)
Cells(t + 1, 1) = arrDatei(t, 0)
Cells(t + 1, 2) = arrDatei(t, 1)
Next t
'neue Daten in Settingsdatei zurückschreiben
'Ggfs. vorhandene Ausgabedatei löschen
If Dir(strPfad) <> "" Then Kill (strPfad)
'Datei Öffen zur Ausgabe
Open strPfad For Output As #1
For t = LBound(arrDatei, 1) To UBound(arrDatei, 1)
If t = 0 Then
'Überschrift
Print #1, arrDatei(t, 0)
Else
'übrige Daten
Print #1, arrDatei(t, 0) & "=" & arrDatei(t, 1)
End If
Next t
Close #1 'Datei schliessen
End Sub
Den Pfad sowie die Zellen für die Ausgabe in die Exceldatei musst du natürlich noch anpassen.
Kopiere das Makro in ein Standardmodul deiner Excel-Datei.
Gruß
M.O.