Rücksprung zum aktuellen Arbeitsblatt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich hänge mal das script rein - habe es gestern durchs Forum dankend erhalten. Nun gehts ans modifizieren. Möchte bevor die Schleife die nächste Abfrage startet und ein neues Datenblatt generiert noch Daten aus einem anderen Datenblatt hinzufügen.
Hintergrund ist welcher, dass ich aus einem zweiten Datenblatt in der Arbeitsmappe immer die Werte der Spalte A zur Diagrammerstellung benötige und diese in die generierten Blätter ebenfalls in Spalte A einfügen möchte.!!!!!!? (Sprich - gehe in Datenblatt Tabelle2 - kopiere Werte aus Spalte A ins aktuelle Blatt Spalte A)
Gruß Frank
Option Explicit


Sub Create_Sheets()
Dim i As Integer
Dim qWks As Worksheet, tWks As Worksheet
Set qWks = Worksheets("Tabelle1")
With qWks
For i = 2 To .Range("IV2").End(xlToLeft).Column
If .Cells(2, i) <> "" Then
Set tWks = ThisWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count))
tWks.Name = .Cells(2, i).Text
.Range(.Cells(2, i), .Cells(.Cells(65536, i).End(xlUp).Row, i)).Copy tkws.Cells(1, 2)
End If
Next i
End With
End Sub

Hi Marcl,
Ich habe eine Mappe mit zwei Blättern. 1.Datenblatt Tabelle1 werden Werte eingelesen (immer die selbe Anordnung - kann aber nach rechts varieren). 2.Datenblatt Namens Radius stehen feste Werte in Spalte A von A2 bis A28.
Das Makro soll folgendes machen - guckt in tabelle1 Zeile2 Anfang Spalte2 nach einem Eintrag -wenn ja soll ein Tabellenblatt mit diesem Namen angelegt und gleichzeitig die Werte dieser Spalte in Spalte B übernommen werden. Bevor die weiteren Datenblätter ebenso angelegt werden, sollen die Werte aus Tabellenblatt Radius ebenfalls in das generierte Tabellenblatt in Spalte A übernommen werden.
Das zweite "kleine" Problemchen ist, dass sich die Daten in Spalte B von B2 bis B224 erstrecken und ich gern noch diese umsetzen möchte (Werte 1-56 nach B1-B56)(57-112 nach C1-C56)(113-168 nach D1-D56) und 159- 226 nach E1-E56). Aber eins nach dem anderen. Erstmals müssen die Radius Formeln rüber.
Frank

Sub Create_Sheets() Dim i As Integer Dim qWks As Worksheet, tWks As Worksheet Dim ziel Set qWks = Worksheets("Tabelle1") With qWks For i = 2 To .Range("IV2").End(xlToLeft).Column If .Cells(2, i) <> "" Then Set tWks = ThisWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count)) tWks.Name = .Cells(2, i).Text .Range(.Cells(2, i), .Cells(.Cells(65536, i).End(xlUp).Row, i)).Copy tWks.Cells(1, 2) ziel = tWks.Name Sheets("Radius").Columns("A:A").Copy Sheets(ziel).Range("A1").Select ActiveSheet.Paste Sheets("Tabelle1").Range("B2:B57").Copy Range("B1").Select ' auf dem neu angelegten Blatt ActiveSheet.Paste Sheets("Tabelle1").Range("B57:B113").Copy Range("C1").Select ' auf dem neu angelegten Blatt ActiveSheet.Paste Sheets("Tabelle1").Range("B114:B159").Copy Range("D1").Select ' auf dem neu angelegten Blatt ActiveSheet.Paste Sheets("Tabelle1").Range("B160:B227").Copy Range("E1").Select ' auf dem neu angelegten Blatt ActiveSheet.Paste End If Next i End With End Sub

Beliebteste Forumthreads (12 Monate)

Rücksprung zum aktuellen Arbeitsblatt

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread