Zähler in externer Textdatei führen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Zähler in externer Textdatei führen
von: Werner Prothmann
Geschrieben am: 17.06.2002 - 12:59:31

ich möchte in einem EXCEL-Formular einen Zähler eintragen, dessen Wert in einer externen Textdatei gehalten wird.
Wie öffne, lese, schreibe und schließe ich diese Datei?

GRuß Werner


nach oben   nach unten

Re: Zähler in externer Textdatei führen
von: Hajo
Geschrieben am: 17.06.2002 - 13:03:01

Hallo Werner

ich Vermute mal Du kennst Dich mit VBA aus. Hier mal eine Anleitung, ich glaube von Jörg Lorenz

255. INI Datei Rechnungsnummer
'Nummer aus Textbox in ini schreiben:
Private Sub CommandButton1_Click()
Open "c:\eigene dateien\lfdNr.ini" For Output As #1
Print #1, TextBox1.Text
Close
End Sub
'Nummer aus ini lesen:
Private Sub CommandButton2_Click()
On Error Resume Next 'falls Datei nicht existiert
Open "c:\eigene dateien\lfdNr.ini" For Input As #1
Input #1, txt
Close
TextBox1.Text = txt
End Sub
'Nummer in Textbox um 1 erhöhen:
Private Sub CommandButton3_Click()
TextBox1.Text = TextBox1.Text + 1
End Sub


Gruß Hajo

nach oben   nach unten

Re: Zähler in externer Textdatei führen
von: Werner Prothmann
Geschrieben am: 17.06.2002 - 13:25:37

Hallo Hajo,

vielen Dank. Ich habe ein veraltetes VBA-Handbuch in dem gesagt wird, daß *.ini-Dateien nur unter Word funktionieren.
Jetz habe ich noch eine Frage:

wie bekomme ich es im nachfolgenden Code gebacken, daß der Monat 2-stellig übergeben wird?

strActMonth = Month(Now())

Gruß Werner

nach oben   nach unten

Re: Zähler in externer Textdatei führen
von: Hajo
Geschrieben am: 17.06.2002 - 13:28:24

Hallo Werner

als Dateityp kann auch TXT stehen


Sub b()
    Dim strActMonth
    strActMonth Format(Month(Now()), "00")
End Sub

Gruß Hajo


nach oben   nach unten

Re: Danke
von: Werner Prothmann
Geschrieben am: 17.06.2002 - 14:07:22

Danke Werner!

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zähler in externer Textdatei führen"