Live-Forum - Die aktuellen Beiträge
Datum
Titel
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

Automatische Kopie von Worksheet inkl. Werten

Automatische Kopie von Worksheet inkl. Werten
11.08.2005 09:27:30
Worksheet
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 spalte B bekommen sollen.
Dazu habe ich folgendes Makro:

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

https://www.herber.de/bbs/user/25512.xls
Ich würde jetzt noch gerne in einem Schritt den jeweiligen Namen der Subprojekte aus sheet1 Spalte B in die zelle c1 des neu angelegten Sheets pro Subprojekt schreiben und den jeweiligen Wert der Zelle E1 der neuen Sheets in sheet 1 ab D14 darstellen.
Nachdem ich es nicht schaffe, hoffe ich, dass Ihr mir helfen könnt.
LG, Stephan

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

Betreff
Datum
Anwender
Anzeige
AW: Automatische Kopie von Worksheet inkl. Werten
11.08.2005 11:23:47
Worksheet
Hallo Stephan,
eine mögliche Lösung wäre:

Sub kopieren()
Dim i As Integer
For i = 3 To Sheets(1).Cells(65536, 2).End(xlUp).Row
With Sheets(1).Cells(i, 2)
Sheets(2).Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = .Value
Sheets(Sheets.Count).Cells(1, 3).Value = .Value
.Offset(11, 1).Value = .Value
.Offset(11, 2).FormulaR1C1 = "=INDIRECT(""'""&RC[-1]&""'!E1"")"
End With
Next i
End Sub

Gruß
Gerd
Vielen Dank, Gerd - funktioniert super!! (oT)
11.08.2005 11:46:03
Stephan
AW: Automatische Kopie von Worksheet inkl. Werten
11.08.2005 11:28:40
Worksheet
Hallo,

Sub kopieren()
Dim i As Integer, strName As String
Application.ScreenUpdating = False
For i = 3 To Sheets(1).Cells(65536, 2).End(xlUp).Row
strName = Sheets(1).Cells(i, 2)
Sheets(2).Copy after:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = strName
.Range("C1") = strName
End With
With Sheets(1).Rows(11 + i)
.Cells(3) = strName
.Cells(4).FormulaLocal = "='" & strName & "'!$E$1"
End With
Next i
Sheets(1).Activate
Application.ScreenUpdating = True
End Sub
Gruß
Geist ist geil!
Anzeige
Danke!! Noch besser ;) (oT)
11.08.2005 11:51:23
Stephan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige