Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
296to300
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
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt mittels VBA mehrf. kopieren u. benennen

Blatt mittels VBA mehrf. kopieren u. benennen
19.08.2003 20:32:07
Fritz
Hallo Excellaner,
ich hoffe, dass mir einer von euch Experten bei folgender Problemstellung Hilfe anbieten kann:
In einer Arbeitsmappe befindet sich innerhalb des Tabellenblatts "Daten" in der Spalte E ab Zeile 7 eine Namensliste (variabel viele Namen bis zu 20, also maximal bis Zelle E 26). Je nach Anzahl der Namen soll das Arbeitsblatt "Muster" entsprechend oft kopiert werden und die Kopien des Arbeitsblattes entsprechend der Namen in der besagten Liste benannt werden.
Für eure Mühen und Hilfen bereits im Voraus besten Dank.
Gruß Fritz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt mittels VBA mehrf. kopieren u. benennen
19.08.2003 20:57:30
Michael Brüggemann
Hallo Fritz,
folgendes Makro tut, was Du brauchst:
Option Explicit
Option Base 1

Sub Kopiere_Sheets()
Dim i As Integer
' Bildschirmaktualisierung abschalten, um Zeit zu sparen und
' nerviges Geflacker zu vermeiden
Application.ScreenUpdating = False
' Zeilenzähler initialisieren
i = 7
' Solange die Zelle nicht leer ist, ...
Do While ThisWorkbook.Sheets("Daten").Cells(i, 5) <> ""
' Mustersheet ans Ende der Liste der Sheets kopieren
ThisWorkbook.Sheets("Muster").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
' Neu erzeugtes Sheet umbenennen
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = _
ThisWorkbook.Sheets("Daten").Cells(i, 5).Value
' Zeilenzähler hochzählen
i = i + 1
Loop
' Bildschirmaktualisierung wieder einschalten
Application.ScreenUpdating = True
End Sub

CIAO
Michael

Anzeige
AW: Blatt mittels VBA mehrf. kopieren u. benennen
19.08.2003 21:57:50
Aw: Funktioniert einwandfrei; Danke!
Hallo Michael,
vielen Dank! Funktioniert einwandfrei, genau so hab ich mir das vorgestellt.
Für mich als Anfänger in Sachen VBA sind die Kommentare besonders hilfreich.
Für Deine Mühen nochmals herzlichen Dank.

AW: Blatt mittels VBA mehrf. kopieren u. benennen
19.08.2003 22:24:55
Michael Brüggemann
Hallo Fritz,
immer wieder gerne.
Als ehemaliger "Anfänger" und auch heute bin ich immer wieder froh, wenn "ich hier geholfen" werde ;-))
CIAO
Michael

301 Forumthreads zu ähnlichen Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
ans Tabellenende mit Leerzeilen kopieren
Robert-M

Grüß´ Euch im Forum,
in einer Tabelle „MASTER“ will ich die Daten anderer Arbeitsmappen „DETAIL 1, -2, -3“ untereinander auflisten.
Der Vorgang ist simpel:
per Makro
kopiere ich nacheinander jeweils den Inhalt von „DETAIL 1 ...“,
gehe in die Tabelle MASTER,
suche hier di...
08.09.2008 21:49:00
Thread-ID: 1008257
10 Beiträge
Tabellenblatt mit Schleife mehrfach kopieren
Markus

Hallo zusammen,
ich möchte das erste Tabellenblatt mehrfach kopieren und jeder Kopie einen anderen Namen geben. Die Namen, die vergeben werden sollen, befinden sich im ersten Tabellenblatt (Spalte Z, ab Zeile 1). Derzeit sind es 10, es kommen aber leider immer welche hinzu bzw. die Namen än...
23.09.2008 21:07:55
Thread-ID: 1011888
5 Beiträge
Anzeige
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Tabelle mit eingebetteten Makro kopieren
köhler

Hallo!
Wenn ich in der Tabelle ein Makro eingebettet habe, dann wird beim Kopieren zu einer neuen Datei das Makro nicht mehr mit dem Button angesteuert. Das Makro wurde mitkopiert aber der Button hat dann ein Bezug auf die "alte" Datei, von der ich das Tabellenblatt kopiert habe.
Wie k...
08.01.2009 12:33:58
Thread-ID: 1037865
6 Beiträge
Objekte in neues Tabellenblatt kopieren
Bertram

Hallo zusammen,
ich kopiere ein komplettes Tabellenblatt per VBA in ein (temporäres) neues Tabellenblatt ohne den Code des TBs zu kopieren, verschiebe dieses und speichere es als neue Datei ab. Soweit so gut. Allerdings habe ich auch 4 Kästchen (OK1 bis OK4) auf meinem Tabellenblatt, die ic...
27.01.2009 15:22:00
Thread-ID: 1044271
4 Beiträge
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 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
4
3
9
4
3
1
4
5
3
7
4
2
2
5
1
3
2
4
5
2
6
4
2
4
7