Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Werte aus Textdatei via Makro verrechnen und in Feld einfügen (Excel2007)

Frage Microsoft Microsoft Office

Mitglied: cosphi

cosphi (Level 1) - Jetzt verbinden

26.12.2010 um 17:21 Uhr, 4846 Aufrufe, 2 Kommentare

Hallo,
es wird hier von einem Tool automatisch eine Logdatei erzeugt.

Der Inhalt der Datei könnte so aussehen:
Log.txt
-3.5
-3.7
-7.4
-0.2
0
1.2
3.4
-4.5
usw...
Die Anzahl der Werte ist Variabel!

So sollte der Ablauf später aussehen:
1) Zelle markieren (hier soll später ein Wert eingefügt werden)
2) Makro starten (entweder über Button oder über Tastenkombination)
3) Dialog zum Logdatei auswählen soll sich öffnen
4) Mittelwert aus den Zahlen in der Datei bilden. (Achtung! Werte werden mit einem Punkt als Dezimaltrenner ausgegeben nachher benötige ich eine Komma)
5) Wert in die unter 1) Markierte Zelle schreiben

Ich habe jetzt ewig probiert. Alles was ich bisher hin bekommen habe ist, dass er die Werte aus der Datei in ein neues Tabellenblatt schreibt.
Ich würde mich super freuen, wenn mir hier jemand unter die Arme greifen kann. Eigentlich ließt sich das ja ganz unkompliziert - ich bin nur zu doof ^^

Mit freundlichen Grüßen und guten Rutsch
Stephan
Mitglied: bastla
26.12.2010 um 18:22 Uhr
Hallo cosphi und willkommen im Forum!

Etwa so:
01.
Sub HoleMittelwert() 
02.
Dateipfad = Application.GetOpenFilename("Log-Dateien (*.txt), *.txt") 
03.
If Dateipfad = False Then 
04.
    MsgBox "Keine Datei gewählt!" 
05.
    Exit Sub 
06.
End If 
07.
Set Datei = CreateObject("Scripting.FileSystemObject").OpenTextFile(Dateipfad) 
08.
Do While Not Datei.AtEndOfStream 
09.
    Wert = Replace(Datei.ReadLine, ".", ",") 
10.
    If IsNumeric(Wert) Then 
11.
        Summe = Summe + CDbl(Wert) 
12.
        Anzahl = Anzahl + 1 
13.
    End If 
14.
Loop 
15.
Datei.Close 
16.
ActiveCell.Value = Summe / Anzahl 
17.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: cosphi
26.12.2010 um 19:11 Uhr
Dankeschön!
Das ist es.

Wünsche nochmals allen ein schönes neues Jahr 2011!

Stephan
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Datenbanken
Mit sql eine Zeile einfügen, select und feste Werte (9)

Frage von helmuthelmut2000 zum Thema Datenbanken ...

Batch & Shell
Text in neue 1. Zeile in Textdatei einfügen (4)

Frage von FuxxLi zum Thema Batch & Shell ...

Batch & Shell
gelöst Powershell - In Textdatei suchen und ersetzen (5)

Frage von Raaja89 zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (22)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...