Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einegefügte Tabellenblätter automatisch verschiebe

Forumthread: Einegefügte Tabellenblätter automatisch verschiebe

Einegefügte Tabellenblätter automatisch verschiebe
Don
Dank der lieben und kompetenten Hilfe aus diesem Forum heraus, bin ich schon ein ganzes
Stück weitergekommen.
Jetzt will ich die neu eingefügten Tabellenblätter automatisch ans Ende der Tabellenblätter schieben.
Hierzu habe ich auch schon ein Makro aufgezeichnet und wollte es an das bereits erstellte Makro
anhängen. Aber das Makro zeichnet auch die Namen der jeweiligen Tabellenblätter mit auf.
Somit würde es bei den nächsten Tabellenblättern nicht mehr gehen.
Nochmals kurz eine Info zu den Tabellenblättern:
Die Arbeitsmappe hat ein Tabellenblatt für Montag und für Dienstag - Freitag (wegen unterschiedlicher
bedingter Formatierung).
Per Makro lege ich jeweils Tabellenblätter für eine neue Woche an.
Die Register sind so beschriftet Mo 12.01.2009 Di 13.01.2009 usw.
Somit fällt auch die alphabetische Sortierung der Tabellenblätter aus.
Die Tabellenblätter 1 - 4 sollen unverändert an ihrem Platz stehen bleiben.
Ich freue mich auf Eure Unterstützung.
Gruß
Don
Anzeige

31
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Einegefügte Tabellenblätter automatisch verschiebe
Josef
Hallo Don,
erstelle die Bläztter doch gleich am Ende. "After:= Sheets(Sheets.Count)"
Gruß Sepp

AW: Einegefügte Tabellenblätter automatisch verschiebe
michael
Hi Don
Versuch mal....
aber NICHT gleich am Original !!

Sub TabellenNamenVergeben()
Dim anzahl As Integer
Dim i As Integer
anzahl = Val(InputBox("Anzahl Tabellenblätter: ", , 1))
If anzahl = 0 Then Exit Sub
For i = 1 To anzahl
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = InputBox("Name neues Blatt:", , "Tabelle" &  _
Worksheets.Count)
Next
End Sub


Lieben Gruß
der kleine michael

Anzeige
AW: Einegefügte Tabellenblätter automatisch verschiebe
Don
Hallo Sepp,
gehe mal davon aus, dass ich die Zeile ins Makro einpflegen muss. Leider funktioniert es nicht.
"Syntaxfehler".
Hallo Miachael,
tolles Makro, aber meine Register sind schon asutomatisch beschriftet.
Ich freue mich über weitere Vorschläge.
Don
AW: Einegefügte Tabellenblätter automatisch verschiebe
robert
hi,
..gehe mal davon aus, dass ich die Zeile ins Makro einpflegen muss. Leider funktioniert es nicht.
ich denke diese zeile musst du einfügen
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
gruß
robert
Anzeige
AW: Einegefügte Tabellenblätter automatisch verschiebe
Don
Hi Robert,
Danke, das klappt . . . leider nur für eine Woche und hat den unerfreulichen Nebeneffekt, dass 5 weitere
Tabellenblätter mitangelegt werden.
Lege ich eine neue Woche an, wird diese wieder vor die erstangelegte Woche gestellt.
AW: Einegefügte Tabellenblätter automatisch verschiebe
Tino
Hallo,
wie wäre es hiermit?
kommt als Code in DieseArbeitsmappe 
Option Explicit 
 
Private Sub Workbook_NewSheet(ByVal Sh As Object) 
 Sh.Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) 
End Sub


Gruß Tino

Anzeige
AW: Einegefügte Tabellenblätter automatisch verschiebe
Don
Hi Tino,
ähem, ich habe den Code in die zu kopierenden Tabellenblätter kopiert und
dann das Makro zweimal laufen lassen. Leider ist alles unverändert.
Die aktuellere Woche wird vor der älteren Woche eingefügt.
AW: Einegefügte Tabellenblätter automatisch verschiebe
Tino
Hallo,
steht doch groß dabei.
kommt als Code in DieseArbeitsmappe
Gruß Tino
Anzeige
AW: Einegefügte Tabellenblätter automatisch verschiebe
robert
hi,
dann wäre dein code interessant, wie du ein blatt einfügst
gruß
robert
AW: Einegefügte Tabellenblätter automatisch verschiebe
Don
Code wie gewünscht:

Sub Woche()
' Woche Makro
' Tastenkombination: Strg+w
Sheets("Leerformular Di - Fr").Select
Sheets("Leerformular Di - Fr").Copy After:=Sheets(33)
Range("B1:N1").Select
ActiveCell.FormulaR1C1 = "=Date!R[4]C[-1]"
Sheets("Leerformular Di - Fr (2)").Select
ActiveWorkbook.Sheets("Leerformular Di - Fr (2)").Tab.ColorIndex = 6
Sheets("Leerformular Di - Fr (2)").Select
Sheets("Leerformular Di - Fr (2)").Name = "Fr 00.01.2009"
Range("B1:N1").Select
ActiveSheet.Name = Format(Range("B1").Value, "DDD DD.MM.YYYY")
Sheets("Leerformular Di - Fr").Select
Sheets("Leerformular Di - Fr").Copy After:=Sheets(33)
Range("B1:N1").Select
ActiveCell.FormulaR1C1 = "=Date!R[3]C[-1]"
Sheets("Leerformular Di - Fr (2)").Select
ActiveWorkbook.Sheets("Leerformular Di - Fr (2)").Tab.ColorIndex = 36
Sheets("Leerformular Di - Fr (2)").Select
Sheets("Leerformular Di - Fr (2)").Name = "Do 00.01.2009"
Range("B1:N1").Select
ActiveSheet.Name = Format(Range("B1").Value, "DDD DD.MM.YYYY")
Sheets("Leerformular Di - Fr").Select
Sheets("Leerformular Di - Fr").Copy After:=Sheets(33)
Range("B1:N1").Select
ActiveCell.FormulaR1C1 = "=Date!R[2]C[-1]"
Sheets("Leerformular Di - Fr (2)").Select
ActiveWorkbook.Sheets("Leerformular Di - Fr (2)").Tab.ColorIndex = 50
Sheets("Leerformular Di - Fr (2)").Select
Sheets("Leerformular Di - Fr (2)").Name = "Mi 00.01.2009"
Range("B1:N1").Select
ActiveSheet.Name = Format(Range("B1").Value, "DDD DD.MM.YYYY")
Sheets("Leerformular Di - Fr").Select
Sheets("Leerformular Di - Fr").Copy After:=Sheets(33)
Range("B1:N1").Select
ActiveCell.FormulaR1C1 = "=Date!R[1]C[-1]"
Sheets("Leerformular Di - Fr (2)").Select
ActiveWorkbook.Sheets("Leerformular Di - Fr (2)").Tab.ColorIndex = 43
Sheets("Leerformular Di - Fr (2)").Select
Sheets("Leerformular Di - Fr (2)").Name = "Di 00.01.2009"
Range("B1:N1").Select
ActiveSheet.Name = Format(Range("B1").Value, "DDD DD.MM.YYYY")
Sheets("Leerformular Mo").Select
Sheets("Leerformular Mo").Copy After:=Sheets(33)
Range("B1:N1").Select
ActiveCell.FormulaR1C1 = "=Date!RC[-1]"
Sheets("Leerformular Mo (2)").Select
ActiveWorkbook.Sheets("Leerformular Mo (2)").Tab.ColorIndex = 35
Sheets("Leerformular Mo (2)").Select
Sheets("Leerformular Mo (2)").Name = "Mo 00.01.2009"
Range("B1:N1").Select
ActiveSheet.Name = Format(Range("B1").Value, "DDD DD.MM.YYYY")
End Sub


Die Arbeitsmappe besteht zunächst aus
Tabellenblatt "Anleitung" für Nutzer
Tabellenblatt "Date" hier wird in Zelle A1 das gewünschte Montagsdatum eingegeben
und die weiteren Daten in Zelle A2 - und A5 automatisch berechnet (A2 = A1 +1 usw.)
Auf dem Tabellenblatt "Date" befindet sich ein Button "neue Woche anlegen", mit dem
der obige Code verknüpt ist.

Anzeige
AW: Einegefügte Tabellenblätter automatisch verschiebe
Tino
Hallo,
dieses Eventmakro (EnableEvents muss True sein),
startet sofort los sobald eine neue Tabelle eingefügt wird, egal ob von Hand oder mit Makro.
Gruß Tino
AW: Einefügte Tabellenblätter automatisch verschiebe
Don
Sorry, verstehe nur Bahnhof.
AW: Einegefügte Tabellenblätter automatisch verschiebe
robert
hi,
probier mal diesen befehl
Sheets("Leerformular Di - Fr").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count) - ermittelt die anzahl der vorhandenen blätter
und fügt das nächste hinten an
gruß
robert
Anzeige
AW: Einegefügte Tabellenblätter automatisch verschiebe
Don
Robert,
in welcher Zeile füge ich diesen Befehl (zusätzlich?) ein?
AW: Einegefügte Tabellenblätter automatisch verschiebe
robert
hi,
statt deinen ,siehe unten,befehlen, nicht zusätzlich
Sheets("Leerformular Di - Fr").Copy After.........
gruß
robert
So besser?
Tino
Userbild
Anzeige
AW: So besser?
Don
Tino,
vielen Dank für die sehr hilfreiche Darstellung.
Tut sich leider nix.
kann nicht sein.
Tino
Hallo,
lade mal ein Beispiel hoch.
Gruß Tino
AW: kann nicht sein.@Tino
robert
hi tino,
hast du schon seinen code gesehen?
heute 19:11:47
gruß
robert
Anzeige
AW: kann nicht sein.@Tino
Tino
Hallo,
jetzt ja ;-)
bei Copy gehts nicht :-(
So wird die Tabelle immer ans ende gestellt.
Beispiel aus dem Code:

Sheets("Leerformular Mo").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)


Gruß Tino

AW: kann nicht sein.@Tino
Don
Datei kann ich leider wegen sensibler Daten nicht hochladen.
Habe versucht die Arbeitsmappe entsprechend zu ändern; dann läuft aber das Makro nicht mehr.
Wie muss ich denn mein Makro ergänzen? Mit . . .
Sheets("Leerformular Mo").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Anzeige
AW: kann nicht sein.@Tino
robert
hi don,
diese teilbefehle in deinem makro müssen raus,
.Copy After:=Sheets(33)
stattdessen musst du diesen befehlsteil einfügen
.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
alles klar ?
gruß
robert
AW: kann nicht sein.@Tino
robert
hi,
nachtrag
diese müssen raus,
Sheets("Leerformular Di - Fr").Copy After:=Sheets(33)
diese müssen rein
Sheets("Leerformular Di - Fr").Copy After:=ThisWorkbook.Sheets(Sheets.Count)
gruß
robert
Anzeige
AW: kann nicht sein.@Tino
Don
Dank eurer tollen Hilfe klappts jetzt, vielen herzlichen Dank.
Gruß
Don
super oT.
Tino
TOLL - 17 mal der gleiche Betreff mit Tippfehlern
WF
.
Anzeige
AW: jomei, wir sind doch keine Deutschlehrer
Daniel
bei "einegefügte Tabellenblätter" zum 15. mal
WF
weiß der neutrale Leser ja sofort, daß dort der prima Lösungsansatz in "einegefügte Tabellenblätter" zum vierten mit dem Verbesserungsvorschlag in "einegefügte Tabellenblätter" zum neunten optimiert wurde.
AW: bei "eingefügte Tabellenblätter"
robert
glücklich ist, wer keine anderen sorgen hat..........
Anzeige
klasse Betreff
WF
.
AW: jomei, wir sind doch keine Deutschlehrer
Daniel

Forumthreads zu verwandten Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Häufigkeitslücken
Michi

Hallo,
google spuckt Zu "Excel" und "Häufigkeitslücken" lediglich 3 Treffer aus, die nicht gerade brauchbar für meine Aufgabe sind.
Ich muss für 3 Variablen eine Typisierung mit einer Häufigkeitslücke durchführen.
Hiermit bin ich fast gänzlich überfragt. Mit Quantilen hatte ich das...
11.08.2008 10:29:00
Thread-ID: 1000742
2 Beiträge
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
"Workbook"-Zugriff auf AddIn
Stefan

Hallo,
wie kann man auf eine Arbeitsmappe, z.B. auf Worksheets der Mappe zugreifen, wenn diese als AddIn gespeichert und geöffnet wird (egal ob installiert oder nicht) ?
Wo finde ich die geöffnete AddIn-Mappe, nicht in in der Workbooks-Auflistung, und wenn das AddIn nicht installiert is...
12.08.2008 21:23:00
Thread-ID: 1001316
6 Beiträge
Anzeige
mit VBA, VBA & Button's löschen
Remo

Hy Leute,
Ich möchte mit einem Button alle Button's und VBA löschen...
Geht das?
13.08.2008 08:16:00
Thread-ID: 1001365
6 Beiträge
ein Sheet "unlöschbar" machen
Daniel

Hallo zusammen!
Hätte mal wieder ne Frage!
kurz zur Info: Ich möchte ein Sheet in einer Arbeitsmappe per Mako unlöschbar, unbeschreibbar etc. machen und das ganze auch wieder aufheben....
Das mit dem unbeschreibbar geht auch ganz gut mit ThisWorkbook.Sheets(2).Protect password:="xx...
13.08.2008 11:11:00
Thread-ID: 1001439
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige