Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 11:48:22
Blatt in HTML exportieren wenn Checkbox aktiv ist
16.04.2024 11:43:37
Mehrere Druckbereiche dynamisch festlegen
16.04.2024 11:32:40
Vergleich 2 Spalten in Abhängigkeit vom Namen
16.04.2024 11:08:47
Text in Spalten zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter prüfen und kopieren

Tabellenblätter prüfen und kopieren
25.09.2007 07:57:43
Andi
Guten Morgen,
ich habe ein kleines Problem.
Ich habe 2 Tabellenblätter. Die werden immer von Hand angelegt. Sie bekommen 2 Monatsnamen.
Ich bräuchte aber auf Knopfdruck dann die restlichen Monate als eigenständige Tabellenblätter hinzugefügt.
Eines der vorhandenen soll dann 10x kopiert werden mit allen Formeln. Vorlage ist das Erste Tabellenblatt.
Gruß
Andi

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter prüfen und kopieren
25.09.2007 08:34:00
Peter
Hallo Andi,
versuche doch mal diesen Code:
for i = 1 to 10
Sheets("Tabelle1").Copy After:=Sheets(3)
next i
Gruß, Peter

AW: Tabellenblätter prüfen und kopieren
25.09.2007 08:50:03
Andi
Hallo Peter,
ich habe immer unterschiedliche Monate als Vorgabe.
Beispiel: Datei 1.xls ist Januar und März angelegt. Per Knopfdruck dann die restlichen ergänzen.
Datei 2.xls Februar und Dezember angelegt.....
Gruß
Andreas

AW: Tabellenblätter prüfen und kopieren
25.09.2007 09:55:46
Mag
Hi,

Sub tt()
Dim i As Integer
For i = 1 To 12
If Sheets(1).Name  MonthName(i) And Sheets(2).Name  MonthName(i) Then
Sheets(1).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = MonthName(i)
End If
Next i
End Sub


Gruss

Anzeige
AW: Tabellenblätter prüfen und kopieren
25.09.2007 10:34:00
Mag
... sortieren?
dann anschließend noch:
Sheets("Januar").Move before:=Sheets(1)
For i = 2 To 12
Sheets(MonthName(i)).Move before:=Sheets(i)
Next i
Gruss

AW: Tabellenblätter prüfen und kopieren
25.09.2007 10:37:00
Mag
... besser:
For i = 1 To 12
Sheets(MonthName(i)).Move before:=Sheets(i)
Next i

AW: Tabellenblätter prüfen und kopieren
25.09.2007 10:38:00
Mag
... noch besser:
For i = 1 To 11
Sheets(MonthName(i)).Move before:=Sheets(i)
Next i

110 Forumthreads zu ähnlichen Themen

Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
Anzeige
Hyperlinks kopieren mit Advanced Filter
Oliver

Hallo,
ich habe ein Tabelle, die ich über eine Advanced Filter Routine in ein anderes Tabellenblatt innerhalb der gleichen Excel Datei filtere. Als VBA Laie habe ich mir die benötigten Makros aus diversen Foren zusammenkopiert und meine Tabellen "drum herum" gebaut. Funktioniert einwandfrei...
22.06.2009 19:43:04
Thread-ID: 1083580
6 Beiträge
In Tabelle Suchen und Bereich kopieren - Bitte Hil
Marc

Hallo,
auch nach ausgiebiger Suche habe ich leider keine Lösung zu meinem Problem gefunden.
Ich möchte aus einem anderen Workbook nach einem bestimmten Text suchen, dies mache ich bislang wie folgt
Dim Zelle as Range
Dim customers as Range
Set customers = Workbooks("Cus...
25.06.2009 20:52:35
Thread-ID: 1084450
4 Beiträge
Anzeige
Daten filtern, kopieren und inneue Tabelle einfüge
Luan

Hallo
Habe folgendes Problem
Ich möchte Daten aus der Grunddatentabelle filtern, kopieren und in die Tabelle Arbeitsplan einfügen
Dabei soll die Tabelle Arbeitsplan immer überschrieben werden.
Ich muss einzelne sog. Posten filtern und untereinander einfügen, gleichzeitig müssen...
17.06.2010 17:29:17
Thread-ID: 1161439
2 Beiträge
2 Mappen, 2 Tabellen, suchen und kopieren
Bernhard

Hallo zusammen,
ich habe ein Problem. Ich versuche in Datei 1 (ThisFileName), Tabelle 1("NewBOM") einen bestimmten Inhalt einer Spalte zu suchen, und bei jedem gefundenen Eintrag, die gesamt Zeile in Dateie 2(NewFileName) Tabelle 1 ("New BOM") zu kopieren. Mappen heißen unterschiedlich, die...
01.08.2010 08:22:35
Thread-ID: 1169876
8 Beiträge
Filtern und wegkopieren von bestimmten Zeilen
Josef

Guten Morgen!Ich habe z.B.in der Tabelle1 in Spalte A 20 Zeilen mit 1, danach 45 Zeilen mit 2, danach 80 Zeilen mit 3 usw.(von 1-9)Jetzt sollen alle Zeilen in denen in der Spalte A eine 2 vorkommt ausgeschnitten und in ein neues Blatt z.B.Tabelle2 kopiert werden. Das gleiche mit 3 in Tabelle3 u...
07.05.2002 08:43:09
Thread-ID: 119035
7 Beiträge
Tabelle filtern mit Formel und kopieren
Sid

Hallo zusammen,
ich habe folgendes Problem.
Ich möchte eine Tabelle mit einer Formel filtern lassen nach einen Kriterium und damit eine neue erstellen lassen. Meine Tabelle ist sehr umfangreich und ich habe daher ein kleines einfaches Beispiel gemacht.
Ich habe übrigens schon alles...
01.12.2010 12:02:57
Thread-ID: 1189564
8 Beiträge
Tabellen vergleichen und inhalte Kopieren
Reptil

Hallo Zusammen
Ich habe zwei Tabellen mit Daten, die ich miteinander vergleichen will.
Und zwar möchte ich die Einträge aus Tabelle 1, Spalte K mit den Einträgen aus Tabelle 2, Spalte O vergleichen. Wenn eine Übereinstimmung gefunden wurde, soll der Wert aus Tabelle 2, Spalte A in Tabel...
15.04.2011 09:33:47
Thread-ID: 1210518
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
1
5
3
5
1
7
6
7
14
3
7
1
6
2
12
1
1
5
6
5
6
2
1
2