HERBERS Excel-Forum - die Beispiele

Thema: Wassergeldabrechnung automatisieren

Home

Gruppe

Allgemein

Problem

Wie kann ich für eine Gruppe von Verbrauchern die monatliche Wassergeldabrechnung ohne VBA-Einsatz automatisieren?

Lösung
Nur anhand einer Beispielarbeitsmappe darstellbar.
StandardModule: Modul1

Sub TestFileOpen()
   Dim iOpen As Integer
   Dim sFile As String
   sFile = InputBox("Path and Filename:", , "c:\test\test.xls")
   If sFile = "" Then Exit Sub
   Do While TestOpen(sFile) = 1
   Loop
   Workbooks.Open sFile
End Sub

Private Function TestOpen(sPath As String) As Integer
   If Dir(sPath) = "" Then
      TestOpen = 2
   Else
      On Error GoTo ERRORHANDLER
      Open sPath For Random Access Read Lock Read Write As #1
      Close #1
   End If
ERRORHANDLER:
   If Err = 70 Then TestOpen = 1
End Function

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bearbeiten

Geschlossene Excel-Datei bearbeiten? bearbeiten von tabelle
Bearbeiten Suchen Allgemeine Frage zur Fehlerbehandlung
Beitrag vom 4.6.2008 bearbeiten allgemeine Fragen zu einer Datenbank
Bearbeiten--Erstzen: '= durch = ersetzen VBS: Excel-Datei bearbeiten
Textfile bearbeiten in einem Bereich Zelle für Zelle bearbeiten ...
Gruppierung bearbeiten trotz Blattschutz Dropdown text bearbeiten
allgemein Bearbeiten von Abfrage nicht möglich
Datei im Internet bearbeiten ComboBox Bearbeiten
Pers Makro bearbeiten. allgemein: VBA lernen?
Hide-Methode-Allgemeine Frage Formelassistent allgemein
txt-Datei einlesen-bearbeiten-txt erstellen OWC Diagramm bearbeiten
allgemeingültig Blattschutz aufheben Userform Menü Datei.. bearbeiten .. Untermenüs
Zelle nur zum Bearbeiten freigeben Daten direkt in der Userform bearbeiten
Datei nach bearbeiten schliesen .. speichern mehrere Dateien öffnen und bearbeiten.
allgemeine Frage... mehrere Arbeitsblätter gleichzeitig bearbeiten
Solver - allgemein Solver - allgemein
mit optionButton eine Textbox bearbeiten Frage zum Forum allgemein
Allgemeine Frage - Finanz-Planungsmodell CSV Daten trennen zum bearbeiten
Fußzeile bearbeiten Pivoteingrenzung Formel verallgemeinern
geschützte Tabellen trotzdem mit VBA bearbeiten Arbeitsblatt nur mit Userform bearbeiten
Bearbeiten vor dem Export makro verallgemeinern
Befehlsschaltfläche bearbeiten Office allgemein, bitte hilfe
allgemein Legende eines Diagrammes bearbeiten
Liste für Import bearbeiten Commandbutton bearbeiten
Auto ausfüllen / bearbeiten "falsche" Angaben Text.txt Datei mit VBA bearbeiten?