Abrechnung SMS Guthaben

Hi,

gibt es eine Möglickeit, die SMS Alarme automatisch abzurechnen.

Wir nutzen als Anbieter smsflatrate.net und um den Überblick über das Guthaben jedes Einzelnen zu haben, werden die Alarme und deren Kosten von Hand in einer Exel Tabelle gepflegt. Dies ist bei viel Einsatzaufkommen allerdings irgendwann lästig.

Hat jemand eine Idee, wie man das automatisieren könnte??

Gruß
Jan

Heißt das, bei euch muss jeder einzelne Feuerwehrangehörige "seine" Alarm-SMS auf den Cent genau bezahlen? Oder handelt es sich bei den "Einzelnen" um andere Feuerwehren / Ortsgruppen?

Spontane Idee:

firEmergency-Logdatei von einem Excel-Makro nach den versendeten SMS / Nutzern durchforsten lassen und auswerten lassen?

Hi,

bei uns hat jedes Mitglied einen DME. Daher ist die SMS Info eher als zusätzlicher Service zu sehen. Dementsprechend zahlt jeder der den Service nutzen will, die SMS selber. Die meisten nutzen allerdings die Alarmierung per Smartphone, welche ja kostenlos ist.

Könntest du mir einen Tipp geben, wie ich aus der Log die Berechnung automatisieren kann??

Zitat:

---

Zitat von jani

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