Fortlaufende Nummerierung bei Excel-Dokumenten
Wolf-Dieter Schellin
was muss ich tun, um in einem Feld meiner Excel-Datei
(Arbeitsauftrag) eine fortlaufende Belegnummer zu erreichen?
Gruß und Dank, Wolf-Dieter Schellin
Frank Kabel
wann soll sich diese Nummer denn ändern?
- beim Drucken
- beim Speichern
- beim Öffnen
>-----Originalnachricht-----
>.
>
Wolf-Dieter Schellin
beim Öffnen wäre wohl das optimale Ergebnis.
>-----Originalnachricht-----
>.
>
Frank Kabel
dann füge den folgenden Code in das Modul Deiner
Arbeitsmappe ein (nicht in ein Standardmodul):
sub workbook_Open()
with me.worksheets("Tabelle1").range("A1")
.value=.value
end with
end sub
Diese Prozedure erhöht die Zelle A1 in deinem
Tabellenblatt 'Tabelle1' jeweils um 1 beim Öffnen
>-----Originalnachricht-----
>.
>
Melanie Breden
Frank Kabel schrieb:
> dann füge den folgenden Code in das Modul Deiner
> Arbeitsmappe ein (nicht in ein Standardmodul):
>
> sub workbook_Open()
> with me.worksheets("Tabelle1").range("A1")
> .value=.value
> end with
> end sub
>
> Diese Prozedure erhöht die Zelle A1 in deinem
> Tabellenblatt 'Tabelle1' jeweils um 1 beim Öffnen
glaub ich nicht ;-)
--
Mit freundlichen Grüssen
Melanie Breden
- Microsoft MVP für Excel -
http://excel.codebooks.de (Das Excel-VBA Codebook)
#Excel-Auftragsprogrammierung#
Wolf-Dieter Schellin
Melanie hat recht: Geht nicht!
"Er" bleibt in der Zeile >..value=.value
stehen.
Gruß, Wolf-Dieter
>-----Originalnachricht-----
>Hi
>dann füge den folgenden Code in das Modul Deiner
>Arbeitsmappe ein (nicht in ein Standardmodul):
>
>sub workbook_Open()
>with me.worksheets("Tabelle1").range("A1")
>..value=.value
>end with
>end sub
>
>
>Diese Prozedure erhöht die Zelle A1 in deinem
>Tabellenblatt 'Tabelle1' jeweils um 1 beim Öffnen
>
>>-----Originalnachricht-----
>>Hallo Frank,
>>
>>beim Öffnen wäre wohl das optimale Ergebnis.
>>>-----Originalnachricht-----
>>>Hi
>>>wann soll sich diese Nummer denn ändern?
>>>- beim Drucken
>>>- beim Speichern
>>>- beim Öffnen
>>>
>>>>-----Originalnachricht-----
>>>>Guten Tag,
>>>>
>>>>was muss ich tun, um in einem Feld meiner Excel-Datei
>>>>(Arbeitsauftrag) eine fortlaufende Belegnummer zu
>>>erreichen?
>>>>
>>>>Gruß und Dank, Wolf-Dieter Schellin
>>>>.
>>>>
>>>.
>>>
>>.
>>
>.
>
anon...@discussions.microsoft.com
>-----Originalnachricht-----
>Hi
>dann füge den folgenden Code in das Modul Deiner
>Arbeitsmappe ein (nicht in ein Standardmodul):
>
>sub workbook_Open()
>with me.worksheets("Tabelle1").range("A1")
>end with
>end sub
>
>
>Diese Prozedure erhöht die Zelle A1 in deinem
>Tabellenblatt 'Tabelle1' jeweils um 1 beim Öffnen
>
>>-----Originalnachricht-----
>>Hallo Frank,
>>
>>beim Öffnen wäre wohl das optimale Ergebnis.
>>>-----Originalnachricht-----
>>>Hi
>>>wann soll sich diese Nummer denn ändern?
>>>- beim Drucken
>>>- beim Speichern
>>>- beim Öffnen
>>>
>>>>-----Originalnachricht-----
>>>>Guten Tag,
>>>>
>>>>was muss ich tun, um in einem Feld meiner Excel-Datei
>>>>(Arbeitsauftrag) eine fortlaufende Belegnummer zu
>>>erreichen?
>>>>
>>>>Gruß und Dank, Wolf-Dieter Schellin
>>>>.
>>>>
>>>.
>>>
>>.
>>
>
Peter
>-----Originalnachricht-----
besser wäre es gewesen die richtige Lösung zu posten.
Nämlich
sub workbook_Open()
with me.worksheets("Tabelle1").range("A1")
.value=.value+1
end with
end sub
Gruß Peter
Wolf-Dieter Schellin
und Danke für den Tipp. Funktionierte aber auch nicht:
wieder 'n Syntaxfehler. Habe den ersten Punkt vor
".Value=.value+1" entfernt. Nun zählt er ungehemmt.
Lieber Grüße an alle fleißigen HelferInnen.
Wolf-Dieter
>-----Originalnachricht-----
>..value=.value+1
>end with
>end sub
>
>Gruß Peter
>.
>
Melanie Breden
Wolf-Dieter Schellin schrieb:
> Melanie hat recht: Geht nicht!
> "Er" bleibt in der Zeile >..value=.value
> stehen.
ich bezog mich nur auf die fehlende 1:
.Value = .Value + 1
Ich rufe die NG mit Outlook Express ab, dort ist der zusätzlich
Punkt (..Value) zu Beginn der Zeile im Originalposting von Frank nicht
vorhanden und hat auch bei mir keinen Syntaxfehler hervorgerufen.
Über das Webinterface wird hier allerdings ein Punkt hinzugefügt
..value=.value
Warum das passiert ist mir völlig schleierhaft, konnte ich aber schon öfter beobachten.
Melanie Breden
Peter schrieb:
> besser wäre es gewesen die richtige Lösung zu posten.
> Nämlich
>
> sub workbook_Open()
> with me.worksheets("Tabelle1").range("A1")
> .value=.value+1
> end with
> end sub
sorry... meine Antwort war eher scherzhaft gemeint,
weil offensichtlich war, dass kein Wert geändert wird.
Und ich ging davon aus, dass Wolf-Dieter dies auch erkennt .
Frank Kabel
das ist wirklich interessant. Ich habe nur einen '.'
eingegeben :-)
tooles MS Web-Interface
Mit der fehlenden '1' hast Du natürlich recht
>-----Originalnachricht-----
>Hallo Wolf-Dieter,
>
> Wolf-Dieter Schellin schrieb:
>> Melanie hat recht: Geht nicht!
>> "Er" bleibt in der Zeile >..value=.value
>> stehen.
>
>ich bezog mich nur auf die fehlende 1:
> .Value = .Value + 1
>
>Ich rufe die NG mit Outlook Express ab, dort ist der
zusätzlich
>Punkt (..Value) zu Beginn der Zeile im Originalposting
von Frank nicht
>vorhanden und hat auch bei mir keinen Syntaxfehler
hervorgerufen.
>
>Über das Webinterface wird hier allerdings ein Punkt
hinzugefügt
>...value=.value
>Warum das passiert ist mir völlig schleierhaft, konnte
ich aber schon öfter beobachten.
>
>--
>Mit freundlichen Grüssen
>
>Melanie Breden
>- Microsoft MVP für Excel -
>
>http://excel.codebooks.de (Das Excel-VBA Codebook)
>#Excel-Auftragsprogrammierung#
>
>
>.
>
Wolf-Dieter Schellin
>-----Originalnachricht-----
>