Per Makro Datei öffnen und Inhalt in Excel einfügen

Option Explicit

Sub Erhoehen()
Const strDatei As String = "D:\Nummer.txt"  
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim fso As Object, objDatei As Object, lngNummer As Long
Set fso = CreateObject("Scripting.FileSystemObject")  

If fso.FileExists(strDatei) Then
    Set objDatei = fso.OpenTextFile(strDatei, ForReading)
    lngNummer = objDatei.ReadLine
    objDatei.Close
    Set objDatei = Nothing
Else
    lngNummer = 0
End If
lngNummer = lngNummer + 1

Set objDatei = fso.OpenTextFile(strDatei, ForWriting, True)
objDatei.WriteLine lngNummer
objDatei.Close
Set objDatei = Nothing
Set fso = Nothing

Worksheets("Tabelle1").Range("D5").Value = lngNummer  
End Sub