Tabellenblätter nach Liste generieren
16.03.2015 15:34:53
Daniel
ich habe ein problem mit VBA:
Meine Excel Datei hat bisher 2 Laschen.
In Lasche 1 befindet sich eine Liste mit Nachnamen in Spalte D.
Die Vornamen stehen in Spalte C.
Aus diesen Werten sollen neue Tabellenblätter mit dem Namen angelegt werden.
Das bekomme eher bescheiden mit den Nachnamen hin und auch nur soweit keine doppelten (Namens)-Werte in Spalte D vorkommen mit:
Sub tabneu()
Dim i, z As Double
ActiveSheet.Range("A:A").End(xlDown).Offset(1, 0).Select
z = ActiveCell.Row
z = z - 1
For i = 1 To z
Sheets(2).Copy after:=Sheets(2)
ActiveSheet.Name = Sheets(1).Cells(z, 4).Value
z = z - 1
Next i
End Sub
Wie kann ich es schaffen, dass der Code mit den Dopplungen umgehen/weiterarbeiten kann? Auch mdie Kombination Name und Vorname kann doppelt vorkommen.
Die neu angelegten Tabellenblätter sollen außerdem wie ein Musterformular in Tabellenblatt2 aufgebaut sein. Perfekt wäre es wenn diese noch den Vor- und Nachnamen in Zellen C4:D4 und C8:D8 hätten.
Ich bin für alles dankbar was mich der Lösung näher bringt.
Vielen Dank
Daniel
Anzeige