Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Automatische Nummerierung -ich steh auf´m Schlauch

Automatische Nummerierung -ich steh auf´m Schlauch
13.10.2005 11:31:11
Dirk
Hallo Zusammen,
kann mir jemand sagen, wie man am schnellsten
eine automatisch Nummerierung hinbekommt?
zur erläuterung:
Habe eine Vorlage, die wenn sie aufgerufen wird,
eine neue nummer vergeben soll.
was noch toll wäre, wenn diese nummer dann mit in
den dateinamen übernommen werden könnte.
vielen dank schon mal im vorraus für eure mühe.
gruss dirk

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Nummerierung -ich steh auf´m Schlauch
13.10.2005 11:50:18
Torsten
wenn du irgendwo ne Zelle frei hast :)
dann machs so :
in die Zelle(X,Y) : "1"
Code:
Zaehler = cells(x,y)
...
...
cells(x,y) = Zaehler +1
' beim Dateinamen erstellen :
open "dein Dateiname" +str(Zaehler)+"Deine Endung" ....
....
AW: Automatische Nummerierung -ich steh auf´m Schlauch
13.10.2005 12:35:00
Dirk
hallo torsten,
danke für die schnelle antwort, aber wo und wie muss
ich das eingeben? ich kapierst grad nciht.
danke & gruss dirk
AW: Automatische Nummerierung -ich steh auf´m Schlauch
13.10.2005 12:52:21
Torsten
ertsmal fragen vorne weg :
wird dein formular aus einer Tabellenseite erstellt?
soll die Nummer auf dem Formular auftauchen?
also mein Lösungsvorschlag (für die Fall dass du die Nummer nicht auf dem Formular haben willst und du das formular aus einer Tabelle erzeugst):
1. du erzeugst ein weiteres Tabellenblatt(vermute mal es gibt nun 2)
2. eintrag in die erste Zelle : 0
so der rest kommt nun in den Code deines Programmes :
dim Zaehler as integer
Zaehler = worksheets(2).cells(1,1)
...
dein programm
...
worksheets(2).cells(1,1) = Zaehler + 1
end
dort wo den Dateinamen erzeugst einfach ein +str(Zaehler)+ einfügen
hoffe konnte dir weiterhelfen. Wenn nicht formuliere die Frage genauer und kopiere den entsprechenden Code Teil hier rein ;)
Anzeige
AW: Automatische Nummerierung -ich steh auf´m Schl
13.10.2005 11:52:54
Peter
Servus,
da gibts ein paar Möglichkeiten.
Die erste und einfachste wäre die Nummer irgendwo in die Vorlage zu schreiben. Die zweite in eine seperate Datei *.ini oder *.txt, die du dann aber immer mit der Vorlage weitergeben musst.
Bei allen Möglichkeiten muss im Workbook_Open Ereignis, die Nummer um eins erhöht werden (Bei jedem öffnen der Mappe) und bei Workbook_bevorSave der neue Dateiname übermittelt werden.
Reicht das schon oder benötigst du genauere Hilfe?
MfG Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige