Inhalt automatisch in neues Tabellenblatt kopieren
30.08.2016 11:54:22
Chris
für die Planung eines monatlich wiederkehrenden Zeitplans, welcher immer etwas abgeändert werden muss und bei welchem immer andere Personen teilnehmen möchte ich gern ein Excel bauen welches pro Teilnehmer ein eigenes Tabellenblatt erstellt und dann die Schulungen bei welchen der Teilnehmer eingetragen ist automatisch in sein Tabellenblatt kopiert und dieses bei änderungen auch wieder aktualisiert.
Ich hoffe ich hab mich verständlich ausgedrückt :)
Mein Aufbau:
- Im Tabellenblatt 1 werden alle Teilnehmer aufgelistet, jeder Teilnehmer hat ein eindeutiges Kürzel
- Tabellenblatt 2 ist die Planung der Schulungen, jede Zeile ist eine Schulung - die Kürzel der Teilnehmer habe ich per Dropdown zu auswählen eingefügt (das Kürzel jedes Teilnehmers wird in eine eigene Spalte geschrieben - in der gleichen Zeile wo auch die Schulung steht.
Das automatische erstellen der Tabellenblätter funktioniert
Sub Test_AutoTab()
Dim Bereich As String
Dim Zelle As Range
Dim Tabelle As Worksheet
Bereich = "a2:a9"
With ActiveWorkbook
For Each Zelle In ActiveSheet.Range(Bereich).Cells
Set Tabelle = .Sheets.Add(After:=.Sheets(Sheets.Count))
Tabelle.Name = Zelle.Text
Next Zelle
End With
End Sub
Meine Frage ist nun ob ich umdenken sollte bzw. hoffe ich auf Lösungsvorschläge :)
Danke!
Anzeige