Office: Neues Tabellenblatt mit definiertem Namen erzeugen

Hallo,

ich habe ein Problem:

Wie kann ich in VBA (Excel) ein Tabellenblatt hinzufügen und beim Hinzufügen bereits einen Namen vergeben. Wenn ich "Sheets.Add" verwende, kann ich den Namen nicht steuern, der wird automaisch vergeben...?!

Gruß und Danke für Eure Hilfe!!!

Magico

P.S.: Zusatzfrage: Kann ich irgendwie den Namen des aktuellen Tabellenblatts auslesen?

:)

 

Hi,
hilft Dir das?:
Code:

 

Moin, Magico,

nutze das Setzen von Objekten für diese Aktion, um später auf das neu angelegte Tabellenblatt zuzugreifen (hier: Anlegen, Benennen und Verschieben ans Ende der Mappe):

Code:

 

Hallo!

Danke Jinx! Das war genau das, was ich gesucht habe!!!

Gruß und vielen, vielen Dank!!!

Magico*mrcool

 

Hallo,
ich habe den Code als Prozedur eingefügt. Damit kann ich ihn dann bei den Makros aufrufen. War das so richtig? Klappen tut es jedenfalls.
Welche Formel muss ich denn bei
.Name = "Magico_" & Format(Now, "yyyymmdd_hhmmss")
eingeben, damit er als Namen immer folgende Datumsangabe vergibt: Vorgängerblatt + 7 Tage. Also zB folgende Blattnamen: 22.07., 29.07., 05.08
Das Format ist wahrscheinlich so:
.Name = Format(Now, "dd.mm")
aber das er immer die Woche aufsummiert bekomme ich nicht hin.
Und toll wäre, wenn das auch über diesen Neues-Tabellenblattbutton ganz rechts neben den Tabellenblattnamen gehen würde und er das neue Blatt immer gleich mit einer vordefinierten Tabellenstruktur erstellen würde. Ähem, ich hoffe das klingt jetzt im Nachgang nicht etwas unverschämt. Liest sich fast so *rolleyes.gif*
Für Hilfe wäre ich dankbar.
Beste Grüße
Andreas

 

Hallo Andreas,

das geht so: Code:

Beispielmappe anbei.

 

Hallo Andreas,

Code:

Der Code setzt zwingend voraus, dass Deine Vorgaben (das Blatt mit dem letzten Datum steht ganz rechts und das Format ist "DD.MM.") sauber eingehalten werden. Entsprechende Prüfungsmechanismen für Abweichungen sind ratsam.
Woher das Jahr bekannt sein soll und was beim Jahreswechsel passieren soll, beschreibst Du nicht - ich gehe vom Jahr 2013 ohne Jahreswechsel aus.

Grüße
EarlFred

 

Hallo Ihr 2,
erstmal euch beiden vielen Dank für die schnelle Rückmeldung. Bei der Hitze muss ja alles entspannt laufen, daher doppeldanke *wink.gif*
@Hasso: Deinen Code bringe ich leider nicht zum laufen. Bin ja nicht so fit darin. Habe ihn an verschiedenen Stellen eingefügt und es ausprobiert. klappt bei mir nicht *frown.gif*
@EarlFred: Habe deinen Code in Diese Arbeitsmappe eingesetzt und es klappt. So hatte ich mir es auch gedacht. Vielen Dank. Das mit dem Jahreswechsel spielt keine große Rolle. Jedes Jahr wird eine neue Liste angelegt.
Gibt es eigentlich eine Möglichkeit, den Code direkt von diesem kleinen Button unten in der Blattnamenliste auszulösen, mit dem man ein neues Blatt erstellt? Das wäre toll.
Wünsche euch allen eine coole, also kühle Zeit.
Gruß
Andreas

 

Hallo,

ich klinke mich mal einfach hier mit ein, da ich ein ähnliches Anliegen habe:

Wie müsste der Code denn adaptiert werden, wenn der Blattname aus einer Zelle ausgelesen werden soll? Ich würde gern aus einem Übersichtsblatt aus Zeile 9 bis 74 die Namen auslesen und dazu ein entsprechendes Blatt öffnen.

Grüße
Jax

 

Hallo Jax,

Angenommen, die Namen stehen in Spalte A des Übersichtsblatts, den Code folgendermaßen ändern: Code:

 

Hallo Jarlaxle,
ich habe diesen Code verwendet um Blätter nach den Einträgen in Spalte A des Vorlageblattes anzulegen. Kannst Du bestimmt leicht umbauen. Den Code habe ich übrigens von Diamant. Danke nochmal.

Code:

Gruß
Andreas

 

Großartig.

Vielen Dank und nochmal ein ´tschuldigung für das "Kidnappen" das Thread. Hat mir wirklich weitergeholfen. Ich geh dann mal an das basteln.

 

Hallo,


das ganze Thema ist genau das, was ich gesucht habe. ABER es müsste für mich noch erweitert werden......FALLS DAS GEHT?!?!?

Ich habe den Teil mit dem automatischen Blätteranlegen schon eingepflegt und das funktioniert auch super.
Jetzt wäre einmal meine frage allein nur zum verständnis:
Die register die automatisch erstellt werden, werden die nochmal erstellt, wenn ich das makro z.B. am nächsten Tag neu starte? Was passiert dann mit dem Inhalt der ersten erstellten Tabellenblätter?

Wie kann ich die erstellten Blätter, mit dem dazugehörigen Inhalt automatisch füllen lassen?

Ich möchte Praktisch mit den Zahlen aus Spalte A neue Tabellenblätter erstellen(das Vba funktioniert). Dazu möchte ich das was in Spalte B - O steht in das passende Tabellenblatt schreiben lassen.

Da die Liste täglich aktualisiert wird, darf ein erstelltes Blatt nicht gelöscht werden, bzw es soll auch keines doppelt erstellt werden. Es sollte aber so sein, da sich einzelne Positionen in einem Auftrag verändern können, diese dann schon passend geändert werden.

Geht so etwas überhaupt?
Leider funktioniert das alles in unserem Millionenteuren SAP nicht so wie wir es brauchen würden.

Kann mir da jemand helfen?!??!