Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Mittelwert aus Datei

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Mittelwert aus Datei (1457 mal gelesen)
DrCNC
Mitglied



Sehen Sie sich das Profil von DrCNC an!   Senden Sie eine Private Message an DrCNC  Schreiben Sie einen Gästebucheintrag für DrCNC

Beiträge: 96
Registriert: 04.01.2011

erstellt am: 09. Aug. 2012 20:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von daniu an!   Senden Sie eine Private Message an daniu  Schreiben Sie einen Gästebucheintrag für daniu

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für DrCNC 10 Unities + Antwort hilfreich

Hallo

Ich versteh ehrlich gesagt nur Bahnhof.

Du möchtest eine Datei mit einem Makro in Excel auswerten und wo soll jetzt der Dateiname übergeben werden?

Was hat das mit Access zu tun?

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

DrCNC
Mitglied



Sehen Sie sich das Profil von DrCNC an!   Senden Sie eine Private Message an DrCNC  Schreiben Sie einen Gästebucheintrag für DrCNC

Beiträge: 96
Registriert: 04.01.2011

erstellt am: 10. Aug. 2012 11:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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



Sehen Sie sich das Profil von Axel.Strasser an!   Senden Sie eine Private Message an Axel.Strasser  Schreiben Sie einen Gästebucheintrag für Axel.Strasser

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für DrCNC 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für DrCNC 10 Unities + Antwort hilfreich

Hey Doc,
klingt prinzipiell machbar. Schmeiß' doch mal den Makro-Recorder an. Mittelwert ist als Formel in Excel bekannt, oder - irgendwie Englisch - in VBA. Öffne eine beliebige Datei, drücke Stopp. Beispielmappe? Office-Version?

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

DrCNC
Mitglied



Sehen Sie sich das Profil von DrCNC an!   Senden Sie eine Private Message an DrCNC  Schreiben Sie einen Gästebucheintrag für DrCNC

Beiträge: 96
Registriert: 04.01.2011

erstellt am: 11. Aug. 2012 14:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für DrCNC 10 Unities + Antwort hilfreich

Guten Abend,

sollte aber?! Setz mal bei Kollektor=... einen Haltepunkt. Das Ergebnis der Function (!) kannst Du in eine Variable oder in eine Zelle schreiben, siehe Unterschied Sub Function VBA. Im Debug wird doch hoffentlich was ausgegeben?

Bei Excel4-Makros muss ich passen. Welche Office-Version nutzt Du denn? Älter als 2003?

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

DrCNC
Mitglied



Sehen Sie sich das Profil von DrCNC an!   Senden Sie eine Private Message an DrCNC  Schreiben Sie einen Gästebucheintrag für DrCNC

Beiträge: 96
Registriert: 04.01.2011

erstellt am: 12. Aug. 2012 11:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für DrCNC 10 Unities + Antwort hilfreich

Moin,
Code:
[...]Debug.Print Kollektor
Range("A1") = Kollektor
End Function
(ungetestet) schreibt den Wert von Kollektor in Zelle A1. Ggf. Adresse anpassen.
Zitat:
habe aber keine passende Funktion für das Auslesen einer geschlossenen Datei gefunden
Öffnen, Auslesen, Schließen? Wie gesagt: Bei Excel4 bin ich 'raus ;-(.

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz