Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
648to652
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
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopieren von Sheets mit Namensverweis

Kopieren von Sheets mit Namensverweis
10.08.2005 10:28:38
Sheets
Hallo,
ich habe ein etwas komplexeres Problem: in beiliegendem Excel möchte ich die Tabelle in sheet2 in neu anzulegende Sheets kopieren, wobei die neuen sheets jeweils die Namen der Subprojekte aus sheet1 bekommen sollen.
Als Ergebnis habe ich dann zusätzlich 10 neue sheets mit den namen Projekt1, Projekt2, ...Projekt10 in denen jeweils die Inhalte des sheet2 zu finden ist.
Gibt es da eine Möglichkeit?
Vielen Dank für Eure Hilfe!!
Stephan
https://www.herber.de/bbs/user/25481.xls

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren von Sheets mit Namensverweis
10.08.2005 11:19:06
Sheets
Hallo,
in ein Modul:

Sub kopieren()
Dim i As Integer
For i = 2 To 11
Sheets(2).Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets(1).Cells(i, 2)
Next i
End Sub

Gruß
Geist ist geil!
AW: Kopieren von Sheets mit Namensverweis
10.08.2005 11:44:24
Sheets
funktioniert in diesem beispiel gut - danke!
nur wenn ich weniger projekte angebe bekomme ich eine fehlermeldung und es wird das sheet2 nochmal kopiert.
wie könnte man das flexibler gestalten?
AW: Kopieren von Sheets mit Namensverweis
10.08.2005 12:58:45
Sheets
Hallo,
For i=2 to Sheets(1).cells(65536,2).end(xlup).row
Gruß aus’m Pott
Udo

Anzeige
Perfekt - vielen Dank!!! (kT)
10.08.2005 14:45:46
Stephan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige