Log Datei Auswertung Balkonsolar
#11
Leider bin ich nicht so ein Crack, kannst Du mir bitte erklären, wie ich den Code wo eingeben muß?

Ok, über VBA habe ich das als Makro laufen lassen und bekomme folgende Ausgabe:
   
Wie bekomme ich jetzt nur den letzten Wert eines Tages?
Und, wie in eine Tabelle?
Antworten Top
#12
Hallo

Sorry nehme alles zurück, hatte dich falsch verstanden.
Stimmt nun dein Wunschergebnis??
Und darf Power Query genutzt werden?    
Viele Grüße
PIVPQ
Antworten Top
#13
Code:
Sub M_snb()
  sn = Filter(Split(CreateObject("scripting.filesystemobject").opentextfile("G:\OF\Solar-2023-Auszug.txt").readall, vbLf), "Solar yieldtotal")
 
  For j = 0 To UBound(sn)
    sp = Filter(sn, Left(sn(0), 10))
    c00 = c00 & vbLf & sp(UBound(sp))
    sn = Filter(sn, Left(sn(0), 10), 0)
    If UBound(sn) = -1 Then Exit For
  Next
 
  MsgBox c00
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#14
Sieht beides gut aus  Smile 
   
und kommt zum selben Ergebnis!

Zitat:  Und darf Power Query genutzt werden? [Bild: attachment.php?thumbnail=53337]

Power Query ist mir unbekannt. Wie kann ich das nutzen bzw. läuft das mit meinem Excel 2013 oder aktuellem LibreOffice Calc?

Ich habe mir Power Query runter geladen und in Excel 2013 installiert. Kommt im Menu als extra Band.
Wie geht das?
Antworten Top
#15
PQ = Power Query

Für Excel 2010 und 2013 muss du dir ein kostenloses Addin bei MS laden.
Alle Excel Versionen danach ist PQ schon enthalten.
In Libre Calc ist PQ meines Wissens nicht lauffähig.
Außerdem solltest du nachdenken entweder dir ein neues Excel zu zu legen oder vielleicht direkt ganz auf Linux umsteigen.
Viele Grüße
PIVPQ
Antworten Top
#16
Ich hatte für meinen PC MS-Office mit Excel günstig im MS Home Use Programm (HUP) über meinen Arbeitgeber erwerben können. Leider wurde HUP just als ich es 2020 neu erwerben wollte abgeschaft.

Mein PC ist seit sehr langem Dual Boot und läuft wahlweise mit mittlerweile Win10 oder Debian12. Ein kompletten Umstieg auf Linux Debian hatte ich schon erwogen, aber es gibt liebgewonnene Programme unter Windows von denen ich mich nicht ganz verabschieden will.
Für Win11 würde ich einen neuen PC benötigen. Mal sehen.

Ich habe mittlerweile Power Query installiert.
Wie muss ich es nutzen um zum Ergebnis zu kommen?
Antworten Top
#17
Hallo

Nun die PQ Lösung, bitte zwei mal im Erweiterten PQ- Editor diesen Pfad auf deinen Pfad abändern,"G:\Solar-2023-Auszug.txt".

Debian ist sehr sehr gut hatte ich bis vor einem Monat auch noch auf dem Rechner( Früher hatte ich 8 mal Linux Versionen Drauf und 3 mal Verschiedene Windows Versionen) .
Nun habe ich nicht mehr die Zeit für die ganzen Linux Versionen zu pflegen und testen.
Früher hatte ich auch mal unter einer Linux Version Excel am laufen ist aber schon lange her.


Angehängte Dateien
.xlsx   marco rudin - Kopie ().xlsx (Größe: 17,37 KB / Downloads: 1)
Viele Grüße
PIVPQ
[-] Folgende(r) 1 Nutzer sagt Danke an PIVPQ für diesen Beitrag:
  • HXERm
Antworten Top
#18
Und nun ins Arbeitsblatt:

Code:
Sub M_snb()
  sn = Filter(Split(CreateObject("scripting.filesystemobject").opentextfile("G:\OF\Solar-2023-Auszug.txt").readall, vbLf), "Solar yieldtotal")
 
  For j = 0 To UBound(sn)
    sp = Filter(sn, Left(sn(0), 10))
    c00 = c00 & vbLf & sp(UBound(sp))
    sn = Filter(sn, Left(sn(0), 10), 0)
    If UBound(sn) = -1 Then Exit For
  Next
 
  sn=split(mid(c00,2),vblf)
  sheets(1).cells(1).resize(uboound(sn)+1)=application.transpose(sn)
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
[-] Folgende(r) 1 Nutzer sagt Danke an snb für diesen Beitrag:
  • HXERm
Antworten Top
#19
Zitat:Geschrieben von PIVPQ - 23.09.2024, 17:24
Nun die PQ Lösung, bitte zwei mal im Erweiterten PQ- Editor diesen Pfad auf deinen Pfad abändern,"G:\Solar-2023-Auszug.txt".
Habe ich gemacht. Sieht gut aus:
   
Ich bekomme keine Grafik daraus erstellt. Versuche ich es sieht es so aus:
   

Zitat:Geschrieben von snb - 23.09.2024, 17:31
Und nun ins Arbeitsblatt:
Ich habe das Macro übernommen (war ein Fehler in der vorletzten Zeile drin "uboound" statt "UBound"):
   
Das Diagramm mit yieldtotal habe ich hinbekommen:
   
und mit yieldday:
   
Antworten Top
#20
Hallo

Das war mir bewusst das du kein Diagramm hinbekommst daraus.
Gehe in den PQ-Editor markiere die rechte Total Spalte und ersetze Punkt(.) durch Komma (,) und markiere nun die beiden rechten Spalten und wandele sie Dezimalzahl um, und jetzt klappt es auch mit Diagramm.
Viele Grüße
PIVPQ
[-] Folgende(r) 1 Nutzer sagt Danke an PIVPQ für diesen Beitrag:
  • HXERm
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 4 Gast/Gäste