Autor
|
Thema: Mittelwert aus Datei (1457 mal gelesen)
|
DrCNC Mitglied
Beiträge: 96 Registriert: 04.01.2011
|
erstellt am: 09. Aug. 2012 20:50 <-- editieren / zitieren --> Unities abgeben:
Hallo, Möchte in einer neuen Datei einen Mittelwert aus einer Excel-Datei (Logdateien von einer Regelung) mit einen Makro berechnen. Bei der Function soll der Dateiname übergeben werden. Habe aber nur mit Access programmiert, vieleicht kann mir jemand helfen. im Voraus besten Dank. mfg Johann Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daniu Mitglied Mechanik-Entwickler
Beiträge: 866 Registriert: 03.11.2004 Intel Xeon W3550 12GB RAM; NVidia Quadro 4000 Win 7 Enterprise 64bit; NX7.5 TeamCenter 8
|
erstellt am: 10. Aug. 2012 09:40 <-- editieren / zitieren --> Unities abgeben: Nur für DrCNC
|
DrCNC Mitglied
Beiträge: 96 Registriert: 04.01.2011
|
erstellt am: 10. Aug. 2012 11:24 <-- editieren / zitieren --> Unities abgeben:
Hallo, In Access habe ich mit VBA programmiert, sonst hat das mit diesem nichts zu tun. Nochmals meine Frage? Ich habe eine Exceldatei (Logdaten von einer Regelung)und möchte einen Mittelwert von einer Spalte in eine neue Exceldatei schreiben (mit einem Makro, da ich wenn möglich automatisieren möchte), die Regelung gibt jeden Tag eine neue Logdatei aus und das möchte ich in dieser Exceldatei auswerten. mfg Johann Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Axel.Strasser Ehrenmitglied V.I.P. h.c. Selbstständig im Bereich PLM/CAx
Beiträge: 4107 Registriert: 12.03.2001 Früher war vieles gut, und das wäre es heute immer noch, wenn man die Finger davon gelassen hätte!
|
erstellt am: 10. Aug. 2012 12:00 <-- editieren / zitieren --> Unities abgeben: Nur für DrCNC
Na sehr viel klarer sind Deine Anforderung nicht geworden . Erwartest Du jetzt dass Du dafür eine fixfertige Lösung hier bekommst ? Versuch doch mal Deine Schritte mit einem Makro aufzunehmen und dann den Code zu verallgemeinern / auszubauen. Da kannst Du dann spezielle Fragen stellen, die wahrscheinlich gerne und konkret beantwortet werden. Axel ------------------ Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de [Diese Nachricht wurde von Axel.Strasser am 10. Aug. 2012 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 10. Aug. 2012 12:00 <-- editieren / zitieren --> Unities abgeben: Nur für DrCNC
|
DrCNC Mitglied
Beiträge: 96 Registriert: 04.01.2011
|
erstellt am: 11. Aug. 2012 14:47 <-- editieren / zitieren --> Unities abgeben:
Habe bereits etwas Erfolg! mit diesem Code funktioniert es bereits Code: Sub Kollektor() Dim Anzahl, tmp, Zelle, i Dim Pfad As String, Datei1 As String, Tabelle As String Pfad = "D:\Daten OG\Peter\Heizung\" Datei1 = "E120801" & ".xls" Tabelle = "UVR1611" Anzahl = 0 tmp = 0 For i = 10 To 40 Zelle = "R" & i & "C2" Anzahl = Anzahl + 1 tmp = tmp + Application.ExecuteExcel4Macro("'" & Pfad & "[" & Datei1 & "]" & Tabelle & "'!" & Zelle) Next ActiveCell.FormulaR1C1 = tmp / Anzahl End Sub
aber ich möchte das eventuell mit einer Funktion erledigen. Code: Function Kollektor(Datei) Dim Anzahl, tmp, Zelle, i Dim Pfad As String, Datei1 As String, Tabelle As String Pfad = "D:\Daten OG\Peter\Heizung\" Datei1 = Datei & ".xls" Tabelle = "UVR1611" Anzahl = 0 tmp = 0 For i = 10 To 40 Zelle = "R" & i & "C2" Anzahl = Anzahl + 1 tmp = tmp + Application.ExecuteExcel4Macro("'" & Pfad & "[" & Datei1 & "]" & Tabelle & "'!" & Zelle) Next Kollektor = tmp / Anzahl Debug.Print Kollektor End Function
wird aber nichts zurückgegeben, was mache ich falsch? mfg Johann Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 11. Aug. 2012 23:19 <-- editieren / zitieren --> Unities abgeben: Nur für DrCNC
|
DrCNC Mitglied
Beiträge: 96 Registriert: 04.01.2011
|
erstellt am: 12. Aug. 2012 11:21 <-- editieren / zitieren --> Unities abgeben:
Guten Tag, Verwende Office 2010 (somit die neueste), habe aber keine passende Funktion für das Auslesen einer geschlossenen Datei gefunden. Im Direktfenster gibt mir die Funktion einen Wert zurück aber nicht in einer Zelle mfg Johann Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 13. Aug. 2012 09:29 <-- editieren / zitieren --> Unities abgeben: Nur für DrCNC
|