|
Hallo zusammen,
ich habe bereits ein kleinen Code, der mir aus einer Liste von IDs benannte Tabs generiert.
Sub AddSheets()
'Updateby Extendoffice 20161215
Dim xRg As Excel.Range
Dim wSh As Excel.Worksheet
Dim wBk As Excel.Workbook
Set wSh = ActiveSheet
Set wBk = ActiveWorkbook
Application.ScreenUpdating = False
For Each xRg In wSh.Range("C2:C40")
With wBk
.Sheets.Add after:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xRg.Value
If Err.Number = 1004 Then
Debug.Print xRg.Value & " already used as a sheet name"
End If
On Error GoTo 0
End With
Next xRg
Application.ScreenUpdating = True
End Sub
Nun möchte ich diesem Code gerne ein Bestandteil hinzufügen, mit folgender Funktionalität: Für jede ID, die ich über den obrigen Code erzeuge, möchte ich eine variable Anzahl von Datenreihen aus einem anderen Report kopieren. z.B.: ID = 6 hat 7 Einträge in dem Datenexport. Also: Erstelle Tab aus ID Liste und kopiere alle Einträge aus dem Datenoutput mit ID = 6 in das Tab mit der ID = 6
Hat vlt. jdn. dieses Problem bereits einmal gelöst? Habe versucht das über eine Schleife zu lösen, aber da kam nur Blödsinn bei raus.
Danke vorab und vlG
Nils
|