GRuß 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
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
als Dateityp kann auch TXT stehen
Gruß Hajo