Zitat Zitat von jani Beitrag anzeigen
Könntest du mir einen Tipp geben, wie ich aus der Log die Berechnung automatisieren kann??
Hi!

Hier mal ein schnell gegoogeltes und minimal angepasstes Makro für das Importieren der daily.log Datei. Es werden nur die Zeilen, die "SMS wurde erfolgreich verschickt" enthalten importiert. Der Rest sollte mit Excel Bordmitteln (Pivot-Tabelle, SVerweis) oder mit wenigen Zeilen VBA-Code leicht hinzubekommen sein:


Sub Datei_importieren()

Dim Datei As String, Text As String
Dim Zeile As Long

On Error GoTo Fehler

'Quelldatei festlegen
Datei = ThisWorkbook.Path & "\daily.log"

Open Datei For Input As #1 ' Quelldatei öffnen.
Zeile = 1

Do While Not EOF(1) ' Schleife bis Dateiende
Line Input #1, Text ' Text lesen
If InStr(Text, "SMS wurde erfolgreich verschickt") > 0 Then
ActiveSheet.Cells(Zeile, 1) = Text
Zeile = Zeile + 1
End If
Loop

Close #1 'Quelldatei schließen


Exit Sub

Fehler:
Close #1
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "da ist leider ein Fehler aufgetreten"
End Sub