Anzeige
Archiv - Navigation
1132to1136
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
Inhaltsverzeichnis

Tabellenblätter anlegen und mit Daten befüllen

Tabellenblätter anlegen und mit Daten befüllen
Mat
Hallo liebes Excelforum,
wer kann mir bei der folgenden Aufgabe mit einem Makro helfen.
Ich haben ein Datenblatt mit ca. 50 Namen, welche die dazugehörigen Werte in einer Liste beinhalten. Nun müsste für jeden Namen ein eigenes Tabellenblatt mit den jeweiligen Daten erstellt werden. Die Datenüberschriften sollten dabei in Spalte A transponiert und das Tabellenblatt nach dem Namen benannt werden.
Hier mein Beispiel: https://www.herber.de/bbs/user/67428.xls
Viele Grüße
Mat

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenblätter anlegen und mit Daten befüllen
22.01.2010 22:27:16
Christian
Hallo,
ein Ansatz
Gruß
Christian

Option Explicit
Sub VerteilDat()
Dim wks As Worksheet, i&, vntCapt, vntDat
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each wks In Worksheets
If wks.Name  "Data" Then wks.Delete
Next
Application.DisplayAlerts = True
With Sheets("Data")
vntCapt = .Cells(1, 2).Resize(, 20).Value
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
Set wks = Sheets.Add(, Sheets(Sheets.Count))
vntDat = .Cells(i, 2).Resize(, 20).Value
wks.Cells(1, 2) = .Cells(i, 1)
wks.Name = .Cells(i, 1)
wks.Cells(2, 1).Resize(20) = Application.Transpose(vntCapt)
wks.Cells(2, 2).Resize(20) = Application.Transpose(vntDat)
Next
End With
Application.ScreenUpdating = True
Set wks = Nothing
End Sub

Anzeige
AW: Tabellenblätter anlegen und mit Daten befüllen
23.01.2010 22:46:03
Mat
Hallo Christian,
vielen Dank für Deine Hilfe. Damit müsste ich gut zurecht kommen.
Bis zum nächsten mal.
Viele Grüße
Mat

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige