Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

fortlaufende Nr.

fortlaufende Nr.
28.11.2002 11:45:24
Andi_H
hallo zusammen,

ich habe eine Exceldatei die eine fortlaufende Rechnungsnummer beinhaltet. Diese Nummer möchte ich gerne in einer Textdatei speichern und bei Aktualisierung der rechnungsnr soll diese aus der Textdatei ausgelesen werden.
Gibt es dazu eine Lösung in VBA?
Vielen Dank vorab für die Hilfe
gruesse,
Andi_H

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: fortlaufende Nr.
28.11.2002 14:13:43
Yal
Hallo,

Teil 1:
1. öffne eine Mappe in Excel mit nur eine Tabelle
2. schreib die erste Rechnungsnr in Zelle A1
3. speichern als Textdatei und schliessen

Teil 2:
1. neue Mappe öffnen
2. Aufzeichnung von Makro starten
3. gerade gespeicherte Textdatei in Excel öffnen
4. Rechnungsnr in A1 von Textdatei ändern in RechnNr + 1
5. Rechnungsnr kopieren
6. in die andere Mappe einfügen
7. Datei mit Rechnungsnr als Textdatei wieder speichern und schliessen
8. Aufzeichnung beenden, Code anschauen und analysieren

Damit hast Du alle Bausteine im Hand

Viel Spass beim Probieren

Yal

Anzeige
Re: fortlaufende Nr.
28.11.2002 15:49:22
Hajo
Hallo Andi

vielleicht hilft Dir folgender Ansatz

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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige