Hallo,
ich möchte aus einer .txt Datei werte ausgegeben bekommen.
Ich habe nun schon einige zeit probiert und recherchiert doch leider kann ich den fehler nicht entgültig finden.
Ich hoffe mal nicht das es an Excel 2007 liegt?
Ich danke für schnelle hilfe.
Option Explicit
Sub vba()
Dim durchschnitt As Double
Dim menge As Double
Dim kumm_menge As Double
Dim summe As Double
Dim nummer As Double
Dim ln As Double
durchschnitt = 0
menge = 0
kumm_menge = 0
summe = 0
Open "C:\Dokumente und Einstellungen\KA2289\Desktop\mappe1vba.txt" For Input As #1
Do While Not EOF(1)
Get #1, nummer, menge
If nummer = ln Then
kumm_menge = kumm_menge + menge
End If
summe = summe + 1
Loop
Close #1
durchschnitt = kumm_menge / summe
Debug.Print "die kumm_Menge ist: " & kumm_menge
Debug.Print "der durchschnitt beträgt: " & durchschnitt
Debug.Print "Anzahl der Elemente insgesamt: " & summe
End Sub
|