Sub Auswertung()
 
Dim Datei As String
Dim Pfad As String
Dim Dateipfad As String
 
Dim Zeile As String
Dim Ueberschrift As String
Dim Datum As String
Dim Kessel_Ist As String
Dim Kessel_Soll As String
Dim Solarspeicher As String
Dim Warmwasser_Ist As String
Dim Warmwasser_Soll As String
Dim Raum_Soll As String
Dim Raum_Ist As String
Dim Aussen As String
Dim Aussen_ged As String
Dim Kollektor As String
Dim Brennerleistung As String
Dim Brenner_Std As String
Dim Brennerstarts As String
 
Ueberschrift = "Datum;Kessel Ist;Kessel Soll;Solarspeicher;Warmwasser" & _
  "Soll;Warmwasser Ist;Raum Soll;Raum Ist;Aussen;Aussen" & _
  "ged.;Kollektor;Brennerleistung;Brenner Std.;Brennerstarts"
 
Datum = Now
Kessel_Ist = "Kessel_Ist_Wert"
Kessel_Soll = "Kessel_Soll_Wert"
Solarspeicher = "Solarspeicher_Wert"
Warmwasser_Ist = "Warmwasser_Ist_Wert"
Warmwasser_Soll = "Warmwasser_Soll_Wert"
Raum_Soll = "Raum_Soll_Wert"
Raum_Ist = "Raum_Ist_Wert"
Aussen = "Aussen_Wert"
Aussen_ged = "Aussen_ged_Wert"
Kollektor = "Kollektor_Wert"
Brennerleistung = "Brennerleistung_Wert"
Brenner_Std = "Brenner_Std_Wert"
Brennerstarts = "Brennerstarts_Wert"
 
Zeile = Datum & ";" _
        & Kessel_Ist & ";" _
        & Kessel_Soll & ";" _
        & Solarspeicher & ";" _
        & Warmwasser_Ist & ";" _
        & Warmwasser_Soll & ";" _
        & Raum_Soll & ";" _
        & Raum_Ist & ";" _
        & Aussen & ";" _
        & Aussen_ged & ";" _
        & Kollektor & ";" _
        & Brennerleistung & ";" _
        & Brenner_Std & ";" _
        & Brennerstarts
 
Pfad = "d:\irgendwas\"
Datei = Format(Now, "yyyyMMdd") & ".csv"
Dateipfad = Pfad & Datei
 
If Dir(Dateipfad) = "" Then
Call DateiNeu(Dateipfad, Ueberschrift)
Else
Call DateiAnhang(Dateipfad, Zeile)
End If
 
 
End Sub
 
Private Sub DateiNeu(ByVal Dateiname As String, ByVal ZuSchreibenderText As _
  String)
Dim ff As Integer
ff = FreeFile()
 
Open Dateiname For Output As ff
Print #ff, ZuSchreibenderText
Close ff
 
End Sub
 
 
Private Sub DateiAnhang(ByVal Dateiname As String, ByVal ZuSchreibenderText As _
  String)
Dim ff As Integer
ff = FreeFile()
 
Open Dateiname For Append As ff
Print #ff, ZuSchreibenderText
Close ff
End Sub

EALA FREYA FRESENA