Moin.
Ich habe angefangen ein Makro zu basteln. Dieses Makro liest nur den Inhalt der ersten Zeile eienr Datei ein, und verarbeitet diese weiter. Und zwar berechent er den arithmetischen Mittelwert.
1. Problem. Er soll alle Zeilen auslesen.
Nachdem er den Mittelwert errechent hat, soll er diesen in eine anderen Datei speichern.
2. Problem: Weiß nicht wie er dieerrechenten DAten von vorher in die Daei schreibt.
3. Problem: Und zum Schluss soll er noch die Daten in Excel in eiern Tabelle ausgeben und daraus dann ein Diagramm erstellen.
Hier erstmal der Code:
Hoffe mir kann eienr helfen.
MFG
Dolphon
Ich habe angefangen ein Makro zu basteln. Dieses Makro liest nur den Inhalt der ersten Zeile eienr Datei ein, und verarbeitet diese weiter. Und zwar berechent er den arithmetischen Mittelwert.
1. Problem. Er soll alle Zeilen auslesen.
Nachdem er den Mittelwert errechent hat, soll er diesen in eine anderen Datei speichern.
2. Problem: Weiß nicht wie er dieerrechenten DAten von vorher in die Daei schreibt.
3. Problem: Und zum Schluss soll er noch die Daten in Excel in eiern Tabelle ausgeben und daraus dann ein Diagramm erstellen.
Hier erstmal der Code:
PHP:
Sub Einlesen()
Dim WKN As String
Dim Kurs As String
Dim Uhrzeit As String
Dim Trennfeld As String
Dim Kurs2 As String
Dim Kurs3 As String
Dim Kurs4 As String
Dim Mittelwert As Double
Dim num As Double
Dim num2 As Double
Dim num3 As Double
Dim num4 As Double
Open "C:\kurs_ein.txt" For Input As 1
Input #1, WKN
Input #1, Kurs
Input #1, Uhrzeit
Input #1, Trennfeld
Input #1, Kurs2
Input #1, Kurs3
Input #1, Kurs4
Close 1
num = Val(Kurs)
num2 = Val(Kurs2)
num3 = Val(Kurs3)
num4 = Val(Kurs4)
Mittelwert = (num + num2 + num3 + num4) / 4
Debug.Print WKN
Debug.Print Kurs
Debug.Print Uhrzeit
Debug.Print Kurs2
Debug.Print Kurs3
Debug.Print Kurs4
Debug.Print Mittelwert
Open "C:\avgkurs.txt" For Output As 2
Print #2, "WKN= AVG= "
Close 2
End Sub
Hoffe mir kann eienr helfen.
MFG
Dolphon