Fortlaufende Nummerierung

[Helga Eibl]

Hy Leute,
ich möchte in meinem Excelshit eine Art fortlaufende Rechnungsnummer
einbauen, welche sich nur auf ein bestimmtes Netzlaufwerk-Verzeichnis
bezieht. Habe mit Makros eigentlich nicht viel am Hut - brauche daher Eure
Hilfe!
Vielen Dank HE

[Daniel Schmitz]

Hi Helga,

Excel gleich als shit zu bezeichnen .... naja ;)

Ich habe Dein Problem allerdings noch nicht verstanden.
Du möchtest auf Deinem Sheet eine Nummer einbauen die
sich auf ein Netzlaufwerk bezieht????
Ich kann mir keinen Reim daraus machen was das heißen
soll.
Bitte beschreib das doch noch ein wenig genauer und dann
kann Dir vielleicht geholfen werden...

Gruß
Daniel

"Helga Eibl" <H.E...@lekkerland.at> schrieb im Newsbeitrag
news:#vvy1rnzBHA.2520@tkmsftngp02...

[Thomas Ramel]

Grüezi Helga

Helga Eibl schrieb:

>
> ich möchte in meinem Excelshit eine Art fortlaufende Rechnungsnummer
> einbauen, welche sich nur auf ein bestimmtes Netzlaufwerk-Verzeichnis
> bezieht. Habe mit Makros eigentlich nicht viel am Hut - brauche daher Eure
> Hilfe!

Folgender Link beschreibt einige Funktionen mit Hilfe einer externen
Datei, in der die laufenden Nummern verwantet werden. Wenn Du die Datei
auf das Netzlaufwerk legst, haben alle Benutzer Zugriff darauf:

http://www.rendar.de/excel/lfdNr.txt

--
Mit freundlichen Grüssen

Thomas Ramel
http://www.4853.ch/Schlesinger
http://www.swissgeo.ch/mapit.php3?www=http//www.4853.ch/Schlesinger&swissgeo_id=241718

[Helga Eibl]

Hello Daniel,
habe ein Excel-Sheet im Abteilungslaufwerk abgespeichert und möchte ab
sofort lfd. Nr. vergeben.

Ich meine damit, dass eine Person mit Zugriffsberechtigung dieses Formular
öffnet und automatisch die nächste freie Nummer erscheint. Ich weiß dass
dies möglich ist, habe es aber anscheinend aus meinem Gedächnis verdrengt.

LG
Helga

"Daniel Schmitz" <DaSc...@lycos.de> schrieb im Newsbeitrag
news:a74ojq$h2$1...@news01.khis.de...

[Daniel Schmitz]

Hi Helga,

die Einzige Möglichkeit die ich da sehe ist, dass Du ein kleines
Makro einbindest. Da ich nicht weiß wie die Nummer aussieht
gehe ich mal von einem einfachen Integer aus (d.h. 1, 2, 3,...).
Dann wechsel mit Alt + F11 in den VBA Editor und mache
einen Doppelklick auf "DieseArbeitsmappe" in dem Projekt
in dem diese Nummer eingefügt werden soll. Und in dem dann
aufgehenden Fenster folgenden Code einfügen:

Private Sub Workbook_Open()
Dim nAnzahl As Integer
Dim rg As Range
Dim nAlt As Integer

nAnzahl = Worksheets(1).Range("A1").End(xlDown).Row

Set rg = Worksheets(1).Range("A" & nAnzahl)
nAlt = rg.Value
Set rg = rg.Offset(1, 0)
rg.Value = nAlt + 1
rg.Select

End Sub

Bei Fragen wieder hier melden und es wird geholfen (hoffentlich... ;) )

HTH
Daniel