|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
14.04.2014 11:54:26 |
cille40 |
|
|
 Automatische Nummerierung von kopierten Tabellenblättern |
14.04.2014 12:54:00 |
Gast83262 |
|
|
|
14.04.2014 13:27:01 |
Gast17724 |
|
|
|
14.04.2014 13:57:53 |
Gast15733 |
|
|
Von:
Gast83262 |
Datum:
14.04.2014 12:54:00 |
Views:
1408 |
Rating:
|
Antwort:
|
Thema:
Automatische Nummerierung von kopierten Tabellenblättern |
|
Hallo,
du gehtst ja all diese Arbeitsblätter in einer Schleife durch. Ließ also den Bereich A1 ein und merk dir von all diesen Nummern nur die größte.
Zum Beispiel so (innerhalb deiner Schleife):
if wb.Sheets(i).Range("A1").Value > max Then max = wb.Sheets(i).Range("A1").Value
Die Variable max ist dabei ein geeigneter Datentyp (z.B. Long). Du könnest hierzu auch Worksheetfunction.Max() verwenden.
Nachdem du alles kopiert hast, schreibst du in die Zelle deines neuen Blattes den neuen Wert: max + 1 hinein.
PS: Wenn sich die Blätter in geordneter Reihenfolge befinden, brauchst du dir einfach nur den Wert aus A1 vom Letzten zu merken. Diesen Wert + 1 schreibst du dann ins neue Blatt.
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
14.04.2014 11:54:26 |
cille40 |
|
|
Automatische Nummerierung von kopierten Tabellenblättern |
14.04.2014 12:54:00 |
Gast83262 |
|
|
|
14.04.2014 13:27:01 |
Gast17724 |
|
|
|
14.04.2014 13:57:53 |
Gast15733 |
|
|