Thema Datum  Von Nutzer Rating
Antwort
Rot Frage zu Dateiverarbeitung
 11.01.2010 13:43:40 Vinn
NotSolved
15.01.2010 09:29:09 Holger
NotSolved

Ansicht des Beitrags:
Von:
Vinn		 Datum:
11.01.2010 13:43:40		 Views:
1603		 Rating:
     
Antwort:
  Ja
Thema:
Frage zu Dateiverarbeitung
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



Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Frage zu Dateiverarbeitung
 11.01.2010 13:43:40 Vinn
NotSolved
15.01.2010 09:29:09 Holger
NotSolved