Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
328to332
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
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt beliebig oft kopieren (VBA)

Tabellenblatt beliebig oft kopieren (VBA)
28.10.2003 08:55:03
Wilfried
Hallo
Ich habe da ein Problem .....

Ich möchte (per Makro) in einer Arbeitsmappe ein Tabellenblatt beliebig oft kopieren (ca 30x)und würde mich über Eure Hilfe dazu freuen.

Gruss
Wilfried

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt beliebig oft kopieren (VBA)
28.10.2003 09:01:05
Hajo_Zi
Hallo Wilfried


Sub Makro1()
Dim Ini As Integer
For Ini = 1 To 30
Sheets("Tabelle1").Copy After:=Sheets(Worksheets.Count)
Next Ini
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.


frage an hajo
28.10.2003 09:25:02
Markus H.
Hallo Hajo,

wenn ich jetzt z.b. für die kws tabellenblätter kopieren lassen würd müsste ich das da so machen:


Sub Makro1()
Dim Ini As Integer
For Ini = 2 To 52
Sheets("1.KW").Copy After:=Sheets(Worksheets.Count)
Next Ini
End Sub


aber der würde mir doch sicher dann 1.KW2; 1.KW3

bringen oder??

wie müsst ich das umschreiben? und wenn ich das makro ausgeführt hab wöllt ich das dann gerne löschen also das nicht am anfang die frage nach aktivieren oder deaktivieren kommt.. wie mahc ich das??

thx

markus
Anzeige
AW: Code nach Ausführung löschen
28.10.2003 10:16:19
Hajo_Zi
Hallo Markus


Sub Makro2()
Dim Ini As Integer
For Ini = 2 To 52
Sheets("1.KW").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Ini & ".KW"
Next Ini
With Application.VBE.ActiveVBProject
.vbComponents.Remove .vbComponents("Modul1")
End With
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.


Anzeige
thx a lot!
28.10.2003 10:36:38
Markus H.
Du bist echt weltklasse!!

spart mir sehr viel arbeit!

Mfg

Markus
Vielen Dank Hajo, funktioniert super !!!!
28.10.2003 10:32:25
Wilfried
Hallo Hajo
wiedereinmal vielen Dank für Deine schnelle und einwandfrei funktionierende Lösung

Gruss
Wilfried

304 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
Blatt in selber Mappe kopieren und umbenennen
SteffenS

Hallo Zusammen,
ich habe ein Blatt M1 und möchte dieses per Makro gern in der gleichen Mappe noch 11x kopieren und gleichzeitig umbennenn (M2.....M12).
Wie stelle ich dies am Besten an?
Danke im Voraus.
MFG
Steffen Schmerler
14.04.2009 22:30:25
Thread-ID: 1068755
3 Beiträge
Tabellenblatt kopieren ohne Zellbezüge (VBA)
S.

Liebe Herber Excel-Gemeinde,
ich kopiere ein Tabellenblatt aus einem bestehenden Excel-Dokument in ein neues Dokument mit VBA. Dazu kopiere ich einfach das ganze Sheet, da es auch Diagramme enthält. Allerdings kopiert er bei dieser Methode auch die Zellbezüge zur Originaldatei mit. Dies möc...
11.08.2009 11:38:01
Thread-ID: 1094961
4 Beiträge
Anzeige
VBA Spalte kopieren und mehrfach (X-mal) einfügen
Sebastian

Hallo,
ich habe folgendes Problem:
Ich habe ein Excel Tabelle und möchte dort die komplette Spalte M kopieren und direkt rechts daneben mehrmals wieder einfügen (wenn möglich nicht nur die Inhalte sondern inkl. aller Formatierungen).
Die Menge, wie oft diese Spalte wieder eingefügt...
21.07.2010 15:44:35
Thread-ID: 1168151
6 Beiträge
Makro Tabellenblatt kopieren als Datei speichern
Milan

Hallo liebe Excel Helfer,
habe folgendes Problem:
Möchte aus eine Datei ein Tabellenblatt kopieren,
Tabellenblatt umbenennen und als neue Datei speichern.
Folgende Aufgabenstellung:
Dateiname: Wareneingang
Tabellenname: Auftrag
Tabellenblatt (Name: Auftrag) kopieren...
22.12.2010 18:02:21
Thread-ID: 1192575
8 Beiträge
Makro/VBA Sheets kopieren und einfügen
Thomas

Hallo liebe EXCEL-Spezialisten,
ich würde gerne wissen, ob ihr mir bei folgendem Anliegen weiterhelfen könntet:
Ich habe eine EXCEL-Datei erstellt, in der Schaltflächen hinterlegt sind, die spezielle Aufgaben erfüllen, u.a. Dateien öffnen, dann fragen, wo man sie speichern möchte, um so...
02.02.2011 14:19:48
Thread-ID: 1198561
3 Beiträge
VBA - Blatt x mal kopieren, umbenennen, ausfüllen
Wurstmensch

Hallo zusammen,
ich habe folgendes Problem:
In meinem Blatt "!!Steuerung!" befindet sich von C26 bis C36 (also max. 10 Einträge) eine Liste (keine Listbox, einfache, normale Zellen) mit Namen für neu anzulegende Arbeitsblätter. Ich möchte nun, dass für jeden Eintrag in der Liste eine Ko...
16.09.2011 12:36:40
Thread-ID: 1230158
4 Beiträge
VBA Zelle auf anderes Tabellenblatt kopieren
Timonski

Servus...
ich hätte gern beim aktivieren einer Tabelle einen bestimmten Teil eines Zellenwert auf einer anderen Tabelle stehen.
Quellezelle auf Tabellenblatt ABRECHNUNG H6
Ziel auf Tabellenblatt INDEX AY1
meine nicht funktionierende Formel :-)
Sheets("Index").Cells(1, 51) =...
20.03.2012 08:03:41
Thread-ID: 1255689
3 Beiträge

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
7
4
2
3
5
5
7
2
3
2
17
2
5
6
2
3
2
5
13
8
6
9
4
1
1